前回*1の続き。円を描く。使うのは以下のプログラム。 ;;; circle.scm (define (gr_circle xc yc r color) (define x r) (define y 0) (do ;;; update rule ([i 0 (+ i 1)]) ;;; condition ([< x y]) ;;; body (begin (gr_dot (+ xc x) (+ yc y) color) (gr_…