chickadee » s9fes-char-graphics » virtual-circle-octant-visitor

Same as circle-octant-visitor but w/ virtual coordinates (see above).

X0 Y0

integer integer ; center

PLOTTER

octant-plotter

(import (s9fes char-canvas) (s9fes char-canvas shape oval))

(define (canvas-plot-circle cv x y r #!optional (pl (circle-octant-plotter)))
  (generate-virtual-circle-octant cv r (virtual-circle-octant-visitor x y pl)) )

(let* ((rw 5) (cl 5) (wd 100) (ht 250)
       (x0 (round (/ wd 2))) (y0 (round (/ ht 2))) (rd y0)
       (cv (make-canvas rw cl wd ht)) )
  (canvas-plot-circle cv x0 y0 rd)
  (canvas-print cv) )
;=>
 ***
*   *
*   *
*   *
 ***