PasteRack.org
Paste # 4678
2013-10-10 16:12:30

Fork as a new paste.

Paste viewed 1728 times.


Embed:

htdp/bsl + 2htdp/image

  1. #lang htdp/bsl
  2. (require 2htdp/image)
  3. (overlay (ellipse 10 10 "solid" "red")
  4.            (ellipse 20 20 "solid" "black")
  5.            (ellipse 30 30 "solid" "red")
  6.            (ellipse 40 40 "solid" "black")
  7.            (ellipse 50 50 "solid" "red")
  8.            (ellipse 60 60 "solid" "black"))
  9.  
  10. (overlay (regular-polygon 20 5 "solid" (make-color  50  50 255))
  11.            (regular-polygon 26 5 "solid" (make-color 100 100 255))
  12.            (regular-polygon 32 5 "solid" (make-color 150 150 255))
  13.            (regular-polygon 38 5 "solid" (make-color 200 200 255))
  14.            (regular-polygon 44 5 "solid" (make-color 250 250 255)))
  15. (overlay/offset
  16.    (overlay/offset (circle 30 'solid (color 0 150 0 127))
  17.                    26 0
  18.                    (circle 30 'solid (color 0 0 255 127)))
  19.    0 26
  20.    (circle 30 'solid (color 200 0 0 127)))

=>

image

image

image