David and Robbie Baby Scheme

Baby Scheme, Created in Dr.Scheme

When we made the activity 4 we used the scheme code to create a wonderful image that helped our understanding of scheme programming and graphic design. We used basic shapes such as disks, circles, rectangles, and lines. These shapes come together to make a single graphic image. This helped us see the programming can be used for artistic things other than mathematical equations.

;;-------------DRAWING CANVAS---------------
(start 640 480)
;;-------------CONSTANT DATA----------------
(define Head
  (and
   (draw-circle (make-posn 320 100) 44 'black)
   (draw-circle (make-posn 300 95) 8 'green)
   (draw-solid-disk (make-posn 300 95) 7 'blue)
   (draw-solid-disk (make-posn 300 95) 3 'black)
   (draw-solid-disk (make-posn 340 95) 8 'green)
   (draw-solid-disk (make-posn 340 95) 7 'blue)
   (draw-solid-disk (make-posn 340 95) 3 'black)
   (draw-solid-rect (make-posn 315 108) 8 8 'black)
   (draw-solid-line (make-posn 315 125) (make-posn 320 130) 'red)
   (draw-solid-line (make-posn 315 126) (make-posn 320 131) 'red)
   (draw-solid-line (make-posn 325 125) (make-posn 320 130) 'red)
   (draw-solid-line (make-posn 325 126) (make-posn 320 131) 'red)
   ))

(define Body
  (and
   (draw-solid-rect (make-posn 305 145) 30 90 'red)
   (draw-solid-disk (make-posn 320 175) 30 'red)
   (draw-solid-rect (make-posn 290 235) 20 10 'red)
   (draw-solid-rect (make-posn 325 235) 20 10 'red)
   ))

(define Hair
  (and
   (draw-circle (make-posn 320 50) 5 'black)
   (draw-circle (make-posn 315 53) 5 'black)
   (draw-circle (make-posn 325 53) 5 'black)
   (draw-solid-line (make-posn 310 56) (make-posn 300 80) 'black)
   ))

(define (ground length width)
  (draw-solid-rect (make-posn 50 245) length width 'green))
(ground 350 10)
(ground 300 20)
(ground 250 30)

(define (sun center-x center-y radius)
  (and
   (draw-solid-disk (make-posn center-x center-y) radius 'yellow)
   (draw-solid-disk (make-posn center-x center-y) (- radius 10) 'red)
   (draw-solid-disk (make-posn center-x center-y) (- radius 20) 'yellow)
   (draw-solid-disk (make-posn center-x center-y) (- radius 30) 'white)
   (draw-solid-disk (make-posn center-x center-y) (- radius 40) 'yellow)
   ))

(sun 500 50 50)
(sun 550 30 50)

David and Robbies Balloon

Test in doctor scheme

When we made the project we decided to keep it a simple as possible while making it quality work. The program was made using simple shapes to build upon each other, creating a complex image. This image was used to represent the complex unity of the two thought processes (mathematical and artistic). When the image was complete we found that in completing it, we had learned more about the scheme program then we expected to learn.

(start 640 480)
(define BACKGROUND
  (and
   (draw-solid-rect(make-posn 0 0)640 480 'black)
   (draw-solid-rect(make-posn 0 450) 640 40 'green)))
(define BALLOONS
  (and
   (draw-circle(make-posn 100 200) 50 'red)
    (draw-circle(make-posn 100 200) 49 'red)
     (draw-circle(make-posn 100 200) 48 'red)
     (draw-solid-line(make-posn 100 250)(make-posn 150 360)'white)
     (draw-solid-disk(make-posn 300 200) 60 'yellow)
     (draw-solid-line(make-posn 300 260)(make-posn 300 300)'white)
     (draw-solid-disk(make-posn 430 300) 50 'blue)
     (draw-solid-line(make-posn 430 340)(make-posn 430 430)'white)))
(define PRESENT
  (and
   (draw-solid-rect(make-posn 150 360) 300 100 'blue)
   (draw-solid-line(make-posn 150 380) (make-posn 447 377) 'red)
   (draw-solid-line(make-posn 150 400) (make-posn 447 400) 'red)
   (draw-circle(make-posn 300 330) 30 'red)
    (draw-circle(make-posn 340 320) 30 'red)
(draw-circle(make-posn 260 320) 30 'red)))