//The dots are multiplying!! //It's the geometric progression 3*2^r forever { paper 7 pen 100 //box 1 = 1 dot set [19 81] 100 //box 2 = 6 dots set [48 81] 100 set [48 76] 100 set [48 86] 100 set [54 76] 100 set [54 81] 100 set [54 86] 100 //box 3 = 12 dots repeat C 0 1 { set [(74 + C*5) 81] 100 set [(74 + C*5) 76] 100 set [(74 + C*5) 86] 100 set [(84 + C*5) 76] 100 set [(84 + C*5) 81] 100 set [(84 + C*5) 86] 100 } //box 4 = 24 dots repeat C 0 1 { set [(12 + C*5) 49] 100 set [(12 + C*5) 43] 100 set [(12 + C*5) 55] 100 set [(22 + C*5) 43] 100 set [(22 + C*5) 49] 100 set [(22 + C*5) 55] 100 set [(12 + C*5) 46] 100 set [(12 + C*5) 52] 100 set [(12 + C*5) 58] 100 set [(22 + C*5) 46] 100 set [(22 + C*5) 52] 100 set [(22 + C*5) 58] 100 } //box 5 = 48 dots repeat C 0 7 { set [(40 + C*3) 40] 100 set [(40 + C*3) 44] 100 set [(40 + C*3) 48] 100 set [(40 + C*3) 52] 100 set [(40 + C*3) 56] 100 set [(40 + C*3) 60] 100 } //box 6 = 96 dots repeat C 0 7 { set [(71 + C*3) 40] 100 set [(71 + C*3) 44] 100 set [(71 + C*3) 48] 100 set [(71 + C*3) 52] 100 set [(71 + C*3) 56] 100 set [(71 + C*3) 60] 100 set [(71 + C*3) 42] 100 set [(71 + C*3) 46] 100 set [(71 + C*3) 50] 100 set [(71 + C*3) 54] 100 set [(71 + C*3) 58] 100 set [(71 + C*3) 62] 100 } //box 7 = 192 dots repeat C 0 11 { set [(8 + C*2) 9] 100 set [(8 + C*2) 11] 100 set [(8 + C*2) 13] 100 set [(8 + C*2) 15] 100 set [(8 + C*2) 17] 100 set [(8 + C*2) 19] 100 set [(8 + C*2) 21] 100 set [(8 + C*2) 23] 100 set [(8 + C*2) 25] 100 set [(8 + C*2) 27] 100 set [(8 + C*2) 29] 100 set [(8 + C*2) 31] 100 } //box 8 = 384 dots pen 50 repeat F 0 6 { line 40 (10+ 3*F) 62 (10+ 3*F) } pen 100 repeat E 0 11 { line (40 + 2*E) 7 (40+2*E) 31 } //box 9 = 768 dots command box X Y S P { pen P repeat A X (X + S) { line A Y A (Y + S) } } box (7+31*2) 7 25 100 }