chickadee » s9fes-char-graphics » cross-x-plotter

WD

integer

HT

integer ; default WD

CONFIG

(or false char (list-of (or false char))) ; drawing pattern, 2 elements, #f for skip or a char to draw; default is (current-plotter-char).

(let ((cv (make-canvas 10 5 10 10)))
  (cross-x-plotter cv 10)
  (canvas-print cv) )
=>
##      **
  ##  **
    **
  **  ##
**      ##