Axes

From MHCGraphics

; Example Mead program to draw the coordinate axes in different
; colors
;
; Jim Teresco, 2/3/2008
; Mount Holyoke College
; Computer Science 110
;
; $Id: Axes.scm 451 2008-02-04 04:32:56Z terescoj $
;
(require (lib "Defs.ss" "Mead"))

; draw the y-axis as a red cylinder
(tell scene
      (add cylinder redPlaster
           (xform
            (scale .01 100  .01)
            )
       )
)

; draw the z-axis as a blue cylinder
(tell scene
      (add cylinder bluePlaster
           (xform
            (scale .01 5 .01)
            (xRot 90)
           )
       )
)

; draw the x-axis as a yellow cylinder
(tell scene
      (add cylinder yellowPlaster
           (xform
            (scale .01 100 .01)
            (zRot 90)
            )
       )
)

(tell camera
      (shoot)
)