// cubist clock pen 100 paper 0 command rectangle X Y W L P { pen P repeat E X (X+W) { line E Y E (Y+L) } } command square X Y S P { pen P repeat A X (X + S) { line A Y A (Y + S) } } command band X Y L P { pen P repeat B X (X + L) { line X Y B (Y + L) } } command outline X Y L P { pen P line X Y X (Y+L) line X (Y+L) (X+L) (Y+L) line (X+L) (Y+L) (X+L) Y line (x+L) Y X Y } command threeline X Y L D P { pen P line X Y (X+L) Y line X (Y+D) (X + L) (Y+D) line X (Y+D+D) (X+L) (Y+D+D) } //the background rectangle 20 0 80 50 9 rectangle 50 37 83 69 12 rectangle 0 60 69 40 7 rectangle 0 0 27 80 3 //the face of the clock square 33 43 45 35 square 52 33 35 20 outline 48 48 35 69 square 26 15 41 53 outline 42 24 37 42 square 15 42 29 60 outline 20 26 25 20 //time--hours band 47 86 11 79 //time--minutes threeline 80 50 17 3 100 //time--seconds outline 39 42 17 50 outline 40 43 15 50 outline 41 44 13 35 outline 42 45 11 35 outline 43 46 9 22 outline 44 47 7 22 square 45 48 5 12