//expanding the box! // load dbnletters.dbn //this is pretty restrictive... TypeP 13 177 TypeL 26 177 TypeE 39 177 TypeA 52 177 TypeS 65 177 TypeE 78 177 TypeP 13 164 TypeL 26 164 TypeA 39 164 TypeC 52 164 TypeE 65 164 TypeT 13 151 TypeH 26 151 TypeE 39 151 TypeM 13 138 TypeO 26 138 TypeU 39 138 TypeS 52 138 TypeE 65 138 TypeH 13 125 TypeE 26 125 TypeR 39 125 TypeE 52 125 line 70 130 100 130 line 100 130 100 105 line 105 110 100 105 line 95 110 100 105 line 70 129 100 129 line 101 130 101 105 line 106 110 101 105 line 96 110 101 105 set [13 120] 100 set [13 121] 100 set [13 119] 100 set [12 120] 100 set [14 120] 100 set [23 120] 100 set [23 121] 100 set [23 119] 100 set [22 120] 100 set [24 120] 100 set [33 120] 100 set [33 121] 100 set [33 119] 100 set [32 120] 100 set [34 120] 100 set A 0 set B 0 set C 10 set D 10 pause 300 forever { paper 100 pen 0 command rectangle X1 Y1 X2 Y2 { repeat Z Y1 Y2 { line X1 Z X2 Z } } set M1set M2 pen 100 rectangle (M1-2) (M2-2)(M1+2) (M2+2) pen 0 rectangle A B C D smaller? M1 A { set A M1 rectangle A B C D } notsmaller? M1 C { set C M1 rectangle A B C D } smaller? M2 B { set B M2 rectangle A B C D } notsmaller? M2 D { set D M2 rectangle A B C D } //the pointer pen 100 rectangle (M1-3) (M2-3)(M1+3) (M2+3) //much better... smaller? A 1 { smaller? B 1 { notsmaller? C 200 { notsmaller? D 200 { TypeA 82 95 TypeA 95 95 TypeH 108 95 line 123 95 123 105 set [123 92] 100 set [123 93] 100 set [123 91] 100 set [122 92] 100 set [124 92] 100 } } } } }