Lines Matching refs:piston

16         [piston-height (make-slider "Piston height" 20 40 20)]
17         [piston-width 12]
32     (make-rect (make-posn (- x-center crank radius gap piston-width)
33                           (- y-center (/ piston-height 2)))
35                piston-height
40     ; piston head
41     (make-rect (make-posn (- x-center x0 piston-width)
42                           (- y-center (/ piston-height 2)))
43                piston-width piston-height "black")
52     (make-line (make-posn (- x-center radius crank piston-width gap)
53                           (- y-center (/ piston-height 2) 1))
54                (make-posn (+ (- x-center radius crank piston-width) cylinder-width)
55                           (- y-center (/ piston-height 2) 1)) "black")
56     (make-line (make-posn (- x-center radius crank piston-width gap)
57                           (+ y-center (/ piston-height 2)))
58                (make-posn (+ (- x-center radius crank piston-width) cylinder-width)
59                           (+ y-center (/ piston-height 2))) "black")
60     (make-line (make-posn (- x-center radius crank piston-width gap 1)
61                           (- y-center (/ piston-height 2) 1))
62                (make-posn (- x-center radius crank piston-width gap 1)
63                           (+ y-center (/ piston-height 2))) "black"))))