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

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

RADIUS

integer ; radius

VISITOR

octant-visitor

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

(define (canvas-draw-circle cv c r w #!optional (pl (circle-octant-plotter)))
  (generate-circle-octant cv w (circle-octant-visitor c r pl)) )

(let* ((rw 5) (cl 5)
       (cr (quotient rw 2)) (cc (quotient cl 2)) (rd cc)
       (cv (make-canvas cl rw)) )
  (canvas-draw-circle cv cc cr rd)
  (canvas-print cv) )
;=>
 ***
*   *
*   *
*   *
 ***