;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: De Stijl ;;; ;;; Description: ;;; (append ('a scheme learner) ;;; ('Piet Cornelies Mondrian)) ;;; ; When scheme meets modern art (define (draw) (define I-want-my 'token) (define number-is 2017) (if (#t) (define cs61a 'is-fun) nil) (if (#f) nil ('final-will-be-cancelled)) ; Let's create a pen! (define (square size x y color) (pixelsize size) (pixel x y color) ) ; Let's choose some nice color! (define blue "#0007d3") (define red "#db0000") (define yellow "#fff200") (define black "#000000") (define white "#ffffff") ; Let's draw a De Stijl abstract picture! ; Let's draw a line in a stupid way! (square 10 40 55 black) (square 10 41 55 black) (square 10 42 55 black) (square 10 43 55 black) (square 10 44 55 black) (square 10 45 55 black) (square 10 46 55 black) (square 10 47 55 black) (square 10 48 55 black) (square 10 49 55 black) (square 10 50 55 black) (square 10 50 55 black) (square 10 51 55 black) (square 10 52 55 black) (square 10 53 55 black) (square 10 54 55 black) (square 10 55 55 black) (square 10 56 55 black) (square 10 57 55 black) (square 10 58 55 black) (square 10 59 55 black) (square 10 60 55 black) (square 10 61 55 black) (square 10 62 55 black) (square 10 63 55 black) (square 10 64 55 black) (square 10 65 55 black) (square 10 66 55 black) (square 10 67 55 black) (square 10 68 55 black) (square 10 69 55 black) (square 10 70 55 black) (square 10 71 55 black) ; Draw some squares! (square 550 0 0 blue) (square 400 0 1 red) (square 200 1 1 yellow) ; Let's draw a line in a stupid way! (square 10 0 20 black) (square 10 1 20 black) (square 10 2 20 black) (square 10 3 20 black) (square 10 4 20 black) (square 10 5 20 black) (square 10 6 20 black) (square 10 7 20 black) (square 10 8 20 black) (square 10 9 20 black) (square 10 10 20 black) (square 10 11 20 black) (square 10 12 20 black) (square 10 13 20 black) (square 10 14 20 black) (square 10 15 20 black) (square 10 16 20 black) (square 10 17 20 black) (square 10 18 20 black) (square 10 19 20 black) (square 10 20 20 black) (square 10 21 20 black) (square 10 22 20 black) (square 10 23 20 black) (square 10 24 20 black) (square 10 25 20 black) (square 10 26 20 black) (square 10 27 20 black) (square 10 28 20 black) (square 10 29 20 black) (square 10 30 20 black) (square 10 31 20 black) (square 10 32 20 black) (square 10 33 20 black) (square 10 34 20 black) (square 10 35 20 black) (square 10 36 20 black) (square 10 37 20 black) (square 10 38 20 black) (square 10 39 20 black) (square 10 40 20 black) (square 10 41 20 black) (square 10 42 20 black) (square 10 43 20 black) (square 10 44 20 black) (square 10 45 20 black) (square 10 46 20 black) (square 10 47 20 black) (square 10 48 20 black) (square 10 49 20 black) (square 10 50 20 black) (square 10 51 20 black) (square 10 52 20 black) (square 10 53 20 black) (square 10 54 20 black) (square 10 55 20 black) (square 10 56 20 black) (square 10 57 20 black) (square 10 58 20 black) (square 10 59 20 black) (square 10 60 20 black) (square 10 61 20 black) (square 10 62 20 black) (square 10 63 20 black) (square 10 64 20 black) (square 10 65 20 black) (square 10 66 20 black) (square 10 67 20 black) (square 10 68 20 black) (square 10 69 20 black) (square 10 70 20 black) (square 10 71 20 black) (square 10 72 20 black) (square 10 73 20 black) ; I want a yellow square (square 100 6 0 yellow) ; Let's draw a line in a stupid way! (square 10 40 1 black) (square 10 40 2 black) (square 10 40 3 black) (square 10 40 4 black) (square 10 40 5 black) (square 10 40 6 black) (square 10 40 7 black) (square 10 40 8 black) (square 10 40 9 black) (square 10 40 10 black) (square 10 40 11 black) (square 10 40 12 black) (square 10 40 13 black) (square 10 40 14 black) (square 10 40 15 black) (square 10 40 16 black) (square 10 40 17 black) (square 10 40 18 black) (square 10 40 19 black) (square 10 40 20 black) (square 10 40 21 black) (square 10 40 22 black) (square 10 40 23 black) (square 10 40 24 black) (square 10 40 25 black) (square 10 40 26 black) (square 10 40 27 black) (square 10 40 28 black) (square 10 40 29 black) (square 10 40 30 black) (square 10 40 31 black) (square 10 40 32 black) (square 10 40 33 black) (square 10 40 34 black) (square 10 40 35 black) (square 10 40 36 black) (square 10 40 37 black) (square 10 40 38 black) (square 10 40 39 black) (square 10 40 40 black) (square 10 40 41 black) (square 10 40 42 black) (square 10 40 43 black) (square 10 40 44 black) (square 10 40 45 black) (square 10 40 46 black) (square 10 40 47 black) (square 10 40 48 black) (square 10 40 49 black) (square 10 40 50 black) (square 10 40 51 black) (square 10 40 52 black) (square 10 40 53 black) (square 10 40 54 black) (square 10 40 55 black) (square 10 40 56 black) (square 10 40 57 black) (square 10 40 58 black) (square 10 40 59 black) (square 10 40 60 black) (square 10 40 61 black) (square 10 40 62 black) (square 10 40 63 black) (square 10 40 64 black) (square 10 40 65 black) (square 10 40 66 black) (square 10 40 67 black) ; Let's draw a line in a stupid way! (square 10 20 1 black) (square 10 20 2 black) (square 10 20 3 black) (square 10 20 4 black) (square 10 20 5 black) (square 10 20 6 black) (square 10 20 7 black) (square 10 20 8 black) (square 10 20 9 black) (square 10 20 10 black) (square 10 20 11 black) (square 10 20 12 black) (square 10 20 13 black) ; Now I want a red square! (square 200 0 0 red) ; Let's draw a line in a stupid way! (square 10 20 14 black) (square 10 20 15 black) (square 10 20 16 black) (square 10 20 17 black) (square 10 20 18 black) (square 10 20 19 black) (square 10 20 20 black) (square 10 20 21 black) (square 10 20 22 black) (square 10 20 23 black) (square 10 20 24 black) (square 10 20 25 black) (square 10 20 26 black) (square 10 20 27 black) (square 10 20 28 black) (square 10 20 29 black) (square 10 20 30 black) (square 10 20 31 black) (square 10 20 32 black) (square 10 20 33 black) (square 10 20 34 black) (square 10 20 35 black) (square 10 20 36 black) (square 10 20 37 black) (square 10 20 38 black) (square 10 20 39 black) ; Draw an imaginary line. (square 10 17 7 black) (square 10 17 9 black) (square 10 17 1 black) (square 10 17 3 black) (square 10 17 5 black) (square 10 17 17 black) (square 10 17 15 black) (square 10 17 11 black) (square 10 17 13 black) (square 10 17 19 black) ; Draw an imaginary line. I can't stop my hand! (square 10 23 27 black) (square 10 23 29 black) (square 10 23 21 black) (square 10 23 23 black) (square 10 23 25 black) (square 10 23 37 black) (square 10 23 35 black) (square 10 23 31 black) (square 10 23 33 black) (square 10 23 39 black) ; Draw an imaginary line. Ok I'll stop. (square 10 41 65 black) (square 10 53 65 black) (square 10 43 65 black) (square 10 55 65 black) (square 10 45 65 black) (square 10 57 65 black) (square 10 47 65 black) (square 10 59 65 black) (square 10 49 65 black) (square 10 59 65 black) (square 10 51 65 black) ; Draw an imaginary line (square 10 70 1 black) (square 10 70 2 black) (square 10 70 3 black) (square 10 70 4 black) (square 10 70 5 black) (square 10 70 6 black) (square 10 70 7 black) (square 10 70 8 black) (square 10 70 9 black) (square 10 70 10 black) (square 10 70 11 black) (square 10 70 12 black) (square 10 70 13 black) (square 10 70 14 black) (square 10 70 15 black) (square 10 70 16 black) (square 10 70 17 black) (square 10 70 18 black) (square 10 70 19 black) (square 10 70 20 black) (square 10 70 21 black) (square 10 70 22 black) (square 10 70 23 black) (square 10 70 24 black) (square 10 70 25 black) (square 10 70 26 black) (square 10 70 27 black) (square 10 70 28 black) (square 10 70 29 black) (square 10 70 30 black) (square 10 70 31 black) (square 10 70 32 black) (square 10 70 33 black) (square 10 70 34 black) (square 10 70 35 black) (square 10 70 36 black) (square 10 70 37 black) (square 10 70 38 black) (square 10 70 39 black) (square 10 70 40 black) (square 10 70 41 black) (square 10 70 42 black) (square 10 70 43 black) (square 10 70 44 black) (square 10 70 45 black) (square 10 70 46 black) (square 10 70 47 black) (square 10 70 48 black) (square 10 70 49 black) (square 10 70 50 black) (square 10 70 51 black) (square 10 70 52 black) (square 10 70 53 black) (square 10 70 54 black) (square 10 70 55 black) (square 10 70 56 black) (square 10 70 57 black) (square 10 70 58 black) (square 10 70 59 black) (square 10 70 60 black) (square 10 70 61 black) (square 10 70 62 black) (square 10 70 63 black) (square 10 70 64 black) (square 10 70 65 black) (square 10 70 66 black) (square 10 70 67 black) ; Some more squares! (square 100 6 1 red) (square 100 6 6 blue) ; Let's draw a line in a stupid way! (square 10 60 1 black) (square 10 60 2 black) (square 10 60 3 black) (square 10 60 4 black) (square 10 60 5 black) (square 10 60 6 black) (square 10 60 7 black) (square 10 60 8 black) (square 10 60 9 black) (square 10 60 10 black) (square 10 60 11 black) (square 10 60 12 black) (square 10 60 13 black) (square 10 60 14 black) (square 10 60 15 black) (square 10 60 16 black) (square 10 60 17 black) (square 10 60 18 black) (square 10 60 19 black) (square 10 60 20 black) (square 10 60 21 black) (square 10 60 22 black) (square 10 60 23 black) (square 10 60 24 black) (square 10 60 25 black) (square 10 60 26 black) (square 10 60 27 black) (square 10 60 28 black) (square 10 60 29 black) (square 10 60 30 black) (square 10 60 31 black) (square 10 60 32 black) (square 10 60 33 black) (square 10 60 34 black) (square 10 60 35 black) (square 10 60 36 black) (square 10 60 37 black) (square 10 60 38 black) (square 10 60 39 black) (square 10 60 40 black) (square 10 60 41 black) (square 10 60 42 black) (square 10 60 43 black) (square 10 60 44 black) (square 10 60 45 black) (square 10 60 46 black) (square 10 60 47 black) (square 10 60 48 black) (square 10 60 49 black) (square 10 60 50 black) (square 10 60 51 black) (square 10 60 52 black) (square 10 60 53 black) (square 10 60 54 black) (square 10 60 55 black) (square 10 60 56 black) (square 10 60 57 black) (square 10 60 58 black) (square 10 60 59 black) (square 10 60 60 black) (square 10 60 61 black) (square 10 60 62 black) (square 10 60 63 black) (square 10 60 64 black) (square 10 60 65 black) (square 10 60 66 black) (square 10 60 67 black) ; Finally, another imaginary line! (square 10 61 60 black) (square 10 62 60 black) (square 10 63 60 black) (square 10 64 60 black) (square 10 65 60 black) (square 10 66 60 black) (square 10 67 60 black) (square 10 68 60 black) (square 10 69 60 black) (exitonclick)) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)