chickadee » s9fes-char-graphics-shapes » shape-cross-x

shape-cross-obar WD #!optional HT CONFIGprocedure
shape-cross-abar WD #!optional HT CONFIGprocedure
shape-cross-x WD #!optional HT CONFIGprocedure
WD
integer
HT
integer ; default WD
(import (s9fes char-canvas) (s9fes char-canvas shape cross))

(define canvas-plot-x@100x100 (shape-cross-x 100))

(let ((cv (make-canvas 10 5 100 100)))
  (canvas-plot-x@100x100 cv)
  (canvas-print cv) )
;=>
**      **
  **  **
    **
  **  **
**      **