Dr. Scheme:
What I learned
is how to do different things. I learned how to draw pictures using code. My picture is all lines that I put together to make a design. When I was making this project I found it kind of hard to do in the begging but once I got the hang of it the project was easy. I also added a code to change the color of the lines.
This is my code:
(start 400 400)
(draw-solid-line(make-posn 200 80)(make-posn 180 200) ' blue)
(draw-solid-line(make-posn 200 80) (make-posn 200 320) 'black)
(draw-solid-line(make-posn 200 100) (make-posn 160 200) 'black)
(draw-solid-line(make-posn 200 120) (make-posn 140 200) 'black)
(draw-solid-line(make-posn 200 140) (make-posn 120 200) 'blue)
(draw-solid-line(make-posn 200 160) (make-posn 100 200) 'black)
(draw-solid-line(make-posn 200 180) (make-posn 80 200) 'blue)
(draw-solid-line(make-posn 80 200) (make-posn 320 200) 'black)
(draw-solid-line(make-posn 200 80) (make-posn 220 200) 'blue)
(draw-solid-line(make-posn 200 120) (make-posn 260 200) 'black)
(draw-solid-line(make-posn 200 140) (make-posn 280 200) 'blue)
(draw-solid-line(make-posn 200 160) (make-posn 300 200) 'black)
(draw-solid-line(make-posn 200 180) (make-posn 320 200) 'blue)
(draw-solid-line(make-posn 200 100) (make-posn 240 200) 'black)
(draw-solid-line(make-posn 320 200) (make-posn 200 220) 'blue)
(draw-solid-line(make-posn 300 200) (make-posn 200 240) 'black)
(draw-solid-line(make-posn 280 200) (make-posn 200 260) 'blue)
(draw-solid-line(make-posn 260 200) (make-posn 200 280) 'black)
(draw-solid-line(make-posn 240 200) (make-posn 200 300) 'black)
(draw-solid-line(make-posn 220 200) (make-posn 200 320) 'blue)
(draw-solid-line(make-posn 80 200) (make-posn 200 220) 'blue)
(draw-solid-line(make-posn 100 200) (make-posn 200 240) 'black)
(draw-solid-line(make-posn 120 200) (make-posn 200 260) 'blue)
(draw-solid-line(make-posn 140 200) (make-posn 200 280) 'black)
(draw-solid-line(make-posn 160 200) (make-posn 200 300) 'black)
(draw-solid-line(make-posn 180 200) (make-posn 200 320) 'blue)
(draw-solid-line(make-posn 320 200) (make-posn 200 220) 'blue)
;(draw-solid-line(make-posn 140 140) (make-posn 172 159) 'blue)
;(draw-solid-line(make-posn 140 140) (make-posn 167 163) 'blue)
;(draw-solid-line(make-posn 140 140) (make-posn 164 166) 'blue)
;(draw-solid-line(make-posn 148 148) (make-posn 176 156) 'blue)
;(draw-solid-line(make-posn 160 160) (make-posn 180 150) 'black)
;(draw-solid-line(make-posn 140 140) (make-posn 170 160) 'black)
;(draw-solid-line(make-posn 140 140) (make-posn 160 170) 'black)
;(draw-solid-line(make-posn 148 148) (make-posn 156 171) 'black)
;(draw-solid-line(make-posn 160 160) (make-posn 145 181) 'black)