Technology
Applications Period 2, May 2004 / angelina_s
5/17/04 |
|
 |
 |
 |
Dr. Scheme: What I learned in Dr. Scheme was that you can actually make a really pretty picture with just circles and lines… like my flower pot picture. I also learned that drawing a picture in scheme is harder than you think… but when you get the hang of it, it's not hard at all.
This is the code that I used to make my picture.
(start 640 480)
(draw-solid-line(make-posn 315 240)(make-posn 315 360)'green)
(draw-solid-line(make-posn 220 360)(make-posn 220 380)'blue)
(draw-solid-line(make-posn 220 360)(make-posn 400 360)'blue)
(draw-solid-line(make-posn 400 360)(make-posn 400 380)'blue)
(draw-solid-line(make-posn 220 380)(make-posn 400 380)'blue)
(draw-solid-line(make-posn 240 380)(make-posn 380 380)'blue)
(draw-solid-line(make-posn 264 460)(make-posn 355 460)'blue)
(draw-solid-line(make-posn 240 380)(make-posn 264 460)'blue)
(draw-solid-line(make-posn 380 380)(make-posn 355 460)'blue)
(draw-solid-disk(make-posn 120 60 )40 'yellow)
(draw-solid-disk(make-posn 190 85)20 'blue)
(draw-solid-disk(make-posn 225 80)20 'blue)
(draw-solid-disk(make-posn 240 96)20 'blue)
(draw-solid-disk(make-posn 210 101)20 'blue)
(draw-solid-disk(make-posn 300 42)20 'blue)
(draw-solid-disk(make-posn 300 40)20 'blue)
(draw-solid-disk(make-posn 322 62)20 'blue)
(draw-solid-disk(make-posn 360 60)20 'blue)
(draw-solid-disk(make-posn 450 58)20 'blue)
(draw-solid-disk(make-posn 488 63)20 'blue)
(draw-solid-disk(make-posn 460 84)20 'blue)
(draw-solid-disk(make-posn 440 84)20 'blue)
(draw-solid-disk(make-posn 335 40)20 'blue)
(draw-solid-disk(make-posn 280 238)20 'red)
(draw-solid-disk(make-posn 315 220)20 'red)
(draw-solid-disk(make-posn 340 238)20 'red)
(draw-solid-disk(make-posn 330 270)20 'red)
(draw-solid-disk(make-posn 290 270)20 'red)
(draw-solid-disk(make-posn 313 250)20 'yellow)