Spot-net.nl Forums

Code: Selecteer alles

#lang slideshow

(define (square n)
  (filled-rectangle n n))

(define (mcp)
  (define c (circle 15))
  (define p (square 15))
  (define r (colorize p "red"))
  (define b (colorize p "black"))
  (define rb (hc-append r b))
  (define br (hc-append b r))
  (define rc (hc-append rb (colorize c "red") (colorize c "black") rb))
  (define hc (hc-append br (colorize c "black") (colorize c "red") br))
  (define vc (vc-append rc hc))
  (define block (vc-append rb br))
  (define h (hc-append block block block))
  (vc-append h vc h))