Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;-------------------------------------------------------------------------------
- ;;tetras
- ;;O tetra
- (define O (make-tetra
- (make-posn (/ WIDTH 2) (* -1 BLOCK-SIZE))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'green)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'green)
- (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'green)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'green))))
- ;;I tetra
- (define I (make-tetra
- (make-posn (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'blue)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'blue)
- (make-block (- (/ WIDTH 2) (* 3 HALF-SIZE))
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'blue)
- (make-block (+ (/ WIDTH 2) (* 3 HALF-SIZE))
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'blue))))
- ;;L tetra
- (define L (make-tetra
- (make-posn (/ WIDTH 2) (* -2 HALF-SIZE))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'purple)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'purple)
- (make-block (- (/ WIDTH 2) (* 3 HALF-SIZE))
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'purple)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'purple))))
- ;;J tetra
- (define J (make-tetra
- (make-posn (/ WIDTH 2) (* -2 HALF-SIZE))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'cyan)
- (make-block (+ (/ WIDTH 2) (* 3 HALF-SIZE))
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'cyan)
- (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'cyan)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'cyan))))
- ;;T tetra
- (define T (make-tetra
- (make-posn (- (/ WIDTH 2) HALF-SIZE) (* -1 HALF-SIZE))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'orange)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE)(* 2 BLOCK-SIZE)) 'orange)
- (make-block (- (/ WIDTH 2) (* 3 HALF-SIZE))
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'orange)
- (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'orange))))
- ;;Z tetra
- (define Z (make-tetra
- (make-posn (/ WIDTH 2) (* -2 HALF-SIZE))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'pink)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'pink)
- (make-block (+ (/ WIDTH 2) (* 3 HALF-SIZE))
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'pink)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'pink))))
- ;;S tetra
- (define S (make-tetra
- (make-posn (/ WIDTH 2) (* -2 HALF-SIZE))
- (list (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'red)
- (make-block (+ (/ WIDTH 2) HALF-SIZE)
- (- HALF-SIZE (* 2 BLOCK-SIZE)) 'red)
- (make-block (- (/ WIDTH 2) HALF-SIZE)
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'red)
- (make-block (- (/ WIDTH 2) (* 3 HALF-SIZE))
- (- (* 3 HALF-SIZE) (* 2 BLOCK-SIZE)) 'red))))
Add Comment
Please, Sign In to add comment