/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / education / b / escher / !Q-11 / TileDetail

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 54 | 69 6c 65 44 65 74 61 69 |..... >T|ileDetai|
|00000010| 6c 0d 00 14 0b f4 20 20 | 51 2d 31 31 0d 00 1e 05 |l.....  |Q-11....|
|00000020| 3a 0d 00 28 0e dd 20 f2 | 64 69 61 67 72 61 6d 0d |:..(.. .|diagram.|
|00000030| 00 32 10 20 53 79 73 24 | 3d 22 51 2d 31 31 22 0d |.2. Sys$|="Q-11".|
|00000040| 00 3c 10 20 73 65 67 6d | 65 6e 74 73 25 3d 34 0d |.<. segm|ents%=4.|
|00000050| 00 46 0f 20 f2 64 69 6d | 65 6e 73 69 6f 6e 0d 00 |.F. .dim|ension..|
|00000060| 50 30 20 68 61 6e 64 25 | 28 30 29 3d 31 3a 68 61 |P0 hand%|(0)=1:ha|
|00000070| 6e 64 25 28 31 29 3d 31 | 3a 68 61 6e 64 25 28 32 |nd%(1)=1|:hand%(2|
|00000080| 29 3d 31 3a 68 61 6e 64 | 25 28 33 29 3d 31 0d 00 |)=1:hand|%(3)=1..|
|00000090| 5a 2e 20 64 69 72 25 28 | 30 29 3d 31 3a 64 69 72 |Z. dir%(|0)=1:dir|
|000000a0| 25 28 31 29 3d 2d 31 3a | 64 69 72 25 28 32 29 3d |%(1)=-1:|dir%(2)=|
|000000b0| 31 3a 64 69 72 25 28 33 | 29 3d 2d 31 0d 00 64 30 |1:dir%(3|)=-1..d0|
|000000c0| 20 63 6f 72 72 25 28 30 | 29 3d 31 3a 63 6f 72 72 | corr%(0|)=1:corr|
|000000d0| 25 28 31 29 3d 30 3a 63 | 6f 72 72 25 28 32 29 3d |%(1)=0:c|orr%(2)=|
|000000e0| 33 3a 63 6f 72 72 25 28 | 33 29 3d 32 0d 00 6e 3a |3:corr%(|3)=2..n:|
|000000f0| 20 63 6f 6c 25 28 30 29 | 3d 31 31 3a 63 6f 6c 25 | col%(0)|=11:col%|
|00000100| 28 31 29 3d 63 6f 6c 25 | 28 30 29 3a 63 6f 6c 25 |(1)=col%|(0):col%|
|00000110| 28 32 29 3d 31 33 3a 63 | 6f 6c 25 28 33 29 3d 63 |(2)=13:c|ol%(3)=c|
|00000120| 6f 6c 25 28 32 29 0d 00 | 78 1a 20 78 74 69 6c 65 |ol%(2)..|x. xtile|
|00000130| 25 3d 33 30 30 3a 79 74 | 69 6c 65 25 3d 34 30 30 |%=300:yt|ile%=400|
|00000140| 0d 00 82 14 20 e7 20 41 | 25 3d 30 20 84 20 41 25 |.... . A|%=0 . A%|
|00000150| 3d 32 20 8c 0d 00 8c 46 | 20 20 78 70 25 28 30 29 |=2 ....F|  xp%(0)|
|00000160| 3d 30 3a 79 70 25 28 30 | 29 3d 30 3a 78 70 25 28 |=0:yp%(0|)=0:xp%(|
|00000170| 31 29 3d 32 30 30 3a 79 | 70 25 28 31 29 3d 32 30 |1)=200:y|p%(1)=20|
|00000180| 30 2a b6 28 33 29 3a 78 | 70 25 28 32 29 3d 34 30 |0*.(3):x|p%(2)=40|
|00000190| 30 3a 79 70 25 28 32 29 | 3d 30 0d 00 96 21 20 20 |0:yp%(2)|=0...!  |
|000001a0| 78 70 25 28 33 29 3d 32 | 30 30 3a 79 70 25 28 33 |xp%(3)=2|00:yp%(3|
|000001b0| 29 3d 2d 32 30 30 2f b6 | 28 33 29 0d 00 a0 0b 20 |)=-200/.|(3).... |
|000001c0| 20 f2 6b 69 74 65 0d 00 | aa 14 20 20 ef 20 32 39 | .kite..|..  . 29|
|000001d0| 2c 31 30 34 30 3b 34 37 | 30 3b 0d 00 b4 1a 20 20 |,1040;47|0;....  |
|000001e0| e3 20 6e 25 3d 30 20 b8 | 20 73 65 67 6d 65 6e 74 |. n%=0 .| segment|
|000001f0| 73 25 2d 31 0d 00 be 19 | 20 20 20 f2 61 72 72 6f |s%-1....|   .arro|
|00000200| 77 6c 69 6e 65 28 6e 25 | 2c 30 2e 35 29 0d 00 c8 |wline(n%|,0.5)...|
|00000210| 07 20 20 ed 0d 00 d2 06 | 20 cd 0d 00 dc 05 e1 0d |.  .....| .......|
|00000220| 00 e6 05 3a 0d 00 f0 0b | dd 20 f2 6b 69 74 65 0d |...:....|. .kite.|
|00000230| 00 fa 18 20 ef 20 32 39 | 2c 78 74 69 6c 65 25 3b |... . 29|,xtile%;|
|00000240| 79 74 69 6c 65 25 3b 0d | 01 04 0a 20 fb 20 31 34 |ytile%;.|... . 14|
|00000250| 30 0d 01 0e 0b 20 e6 20 | 33 2c 31 31 0d 01 18 22 |0.... . |3,11..."|
|00000260| 20 86 20 78 70 25 28 30 | 29 2c 79 70 25 28 30 29 | . xp%(0|),yp%(0)|
|00000270| 2c 78 70 25 28 31 29 2c | 79 70 25 28 31 29 0d 01 |,xp%(1),|yp%(1)..|
|00000280| 22 22 20 86 20 78 70 25 | 28 31 29 2c 79 70 25 28 |"" . xp%|(1),yp%(|
|00000290| 31 29 2c 78 70 25 28 32 | 29 2c 79 70 25 28 32 29 |1),xp%(2|),yp%(2)|
|000002a0| 0d 01 2c 4c 20 72 65 64 | 25 3d b6 28 28 78 70 25 |..,L red|%=.((xp%|
|000002b0| 28 30 29 2d 78 70 25 28 | 31 29 29 2a 28 78 70 25 |(0)-xp%(|1))*(xp%|
|000002c0| 28 30 29 2d 78 70 25 28 | 31 29 29 2b 28 79 70 25 |(0)-xp%(|1))+(yp%|
|000002d0| 28 30 29 2d 79 70 25 28 | 31 29 29 2a 28 79 70 25 |(0)-yp%(|1))*(yp%|
|000002e0| 28 30 29 2d 79 70 25 28 | 31 29 29 29 0d 01 36 0b |(0)-yp%(|1)))..6.|
|000002f0| 20 e6 20 33 2c 31 33 0d | 01 40 22 20 86 20 78 70 | . 3,13.|.@" . xp|
|00000300| 25 28 32 29 2c 79 70 25 | 28 32 29 2c 78 70 25 28 |%(2),yp%|(2),xp%(|
|00000310| 33 29 2c 79 70 25 28 33 | 29 0d 01 4a 22 20 86 20 |3),yp%(3|)..J" . |
|00000320| 78 70 25 28 33 29 2c 79 | 70 25 28 33 29 2c 78 70 |xp%(3),y|p%(3),xp|
|00000330| 25 28 30 29 2c 79 70 25 | 28 30 29 0d 01 54 4e 20 |%(0),yp%|(0)..TN |
|00000340| 67 72 65 65 6e 25 3d b6 | 28 28 78 70 25 28 33 29 |green%=.|((xp%(3)|
|00000350| 2d 78 70 25 28 30 29 29 | 2a 28 78 70 25 28 33 29 |-xp%(0))|*(xp%(3)|
|00000360| 2d 78 70 25 28 30 29 29 | 2b 28 79 70 25 28 33 29 |-xp%(0))|+(yp%(3)|
|00000370| 2d 79 70 25 28 30 29 29 | 2a 28 79 70 25 28 33 29 |-yp%(0))|*(yp%(3)|
|00000380| 2d 79 70 25 28 30 29 29 | 29 0d 01 5e 0b 20 e6 20 |-yp%(0))|)..^. . |
|00000390| 33 2c 31 34 0d 01 68 21 | 20 c8 93 20 c8 90 20 78 |3,14..h!| .. .. x|
|000003a0| 70 25 28 30 29 2d 32 30 | 2c 79 70 25 28 30 29 2d |p%(0)-20|,yp%(0)-|
|000003b0| 32 30 2c 34 30 0d 01 72 | 21 20 c8 93 20 c8 90 20 |20,40..r|! .. .. |
|000003c0| 78 70 25 28 32 29 2d 32 | 30 2c 79 70 25 28 32 29 |xp%(2)-2|0,yp%(2)|
|000003d0| 2d 32 30 2c 34 30 0d 01 | 7c 22 20 f2 77 72 69 74 |-20,40..||" .writ|
|000003e0| 65 28 31 31 30 34 2c 39 | 30 30 2c 53 79 73 24 2c |e(1104,9|00,Sys$,|
|000003f0| 22 62 6c 61 63 6b 22 29 | 0d 01 86 31 20 f2 77 72 |"black")|...1 .wr|
|00000400| 69 74 65 28 31 30 30 38 | 2c 38 33 32 2c 22 41 6e |ite(1008|,832,"An|
|00000410| 79 20 36 30 2c 31 32 30 | 20 64 65 67 72 65 65 22 |y 60,120| degree"|
|00000420| 2c 22 62 6c 61 63 6b 22 | 29 0d 01 90 31 20 f2 77 |,"black"|)...1 .w|
|00000430| 72 69 74 65 28 31 30 30 | 38 2c 38 30 30 2c 22 20 |rite(100|8,800," |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 4b 69 74 65 |        |    Kite|
|00000450| 22 2c 22 62 6c 61 63 6b | 22 29 0d 01 9a 2c 20 f2 |","black|")..., .|
|00000460| 77 72 69 74 65 28 31 30 | 34 36 2c 33 32 30 2c 22 |write(10|46,320,"|
|00000470| 4c 69 6e 65 20 4c 65 6e | 67 74 68 73 22 2c 22 62 |Line Len|gths","b|
|00000480| 6c 61 63 6b 22 29 0d 01 | a4 28 20 f2 77 72 69 74 |lack")..|.( .writ|
|00000490| 65 28 31 30 31 34 2c 32 | 35 36 2c 22 52 65 64 20 |e(1014,2|56,"Red |
|000004a0| 6c 69 6e 65 22 2c 22 62 | 6c 61 63 6b 22 29 0d 01 |line","b|lack")..|
|000004b0| ae 2a 20 f2 77 72 69 74 | 65 28 31 30 31 34 2c 32 |.* .writ|e(1014,2|
|000004c0| 32 34 2c 22 47 72 65 65 | 6e 20 6c 69 6e 65 22 2c |24,"Gree|n line",|
|000004d0| 22 62 6c 61 63 6b 22 29 | 0d 01 b8 20 20 e6 20 31 |"black")|...  . 1|
|000004e0| 32 3a c8 93 20 c8 90 20 | 39 31 30 2c 2d 32 30 38 |2:.. .. |910,-208|
|000004f0| 2c 32 35 36 2c 31 30 30 | 0d 01 c2 2a 20 f2 77 72 |,256,100|...* .wr|
|00000500| 69 74 65 28 31 31 39 30 | 2c 32 35 36 2c 22 3d 20 |ite(1190|,256,"= |
|00000510| 22 2b c3 28 72 65 64 25 | 29 2c 22 62 6c 61 63 6b |"+.(red%|),"black|
|00000520| 22 29 0d 01 cc 2c 20 f2 | 77 72 69 74 65 28 31 31 |")..., .|write(11|
|00000530| 39 30 2c 32 32 34 2c 22 | 3d 20 22 2b c3 28 67 72 |90,224,"|= "+.(gr|
|00000540| 65 65 6e 25 29 2c 22 62 | 6c 61 63 6b 22 29 0d 01 |een%),"b|lack")..|
|00000550| d6 2b 20 f2 77 72 69 74 | 65 28 31 30 36 30 2c 36 |.+ .writ|e(1060,6|
|00000560| 37 32 2c 22 42 61 73 69 | 63 20 4d 6f 74 69 66 22 |72,"Basi|c Motif"|
|00000570| 2c 22 62 6c 61 63 6b 22 | 29 0d 01 e0 0a 20 fb 20 |,"black"|).... . |
|00000580| 31 32 38 0d 01 ea 05 e1 | 0d 01 f4 05 3a 0d 01 fe |128.....|....:...|
|00000590| 17 dd 20 f2 6d 6f 74 69 | 66 70 72 6f 70 6f 72 74 |.. .moti|fproport|
|000005a0| 69 6f 6e 73 0d 02 08 18 | 20 ef 20 32 39 2c 78 74 |ions....| . 29,xt|
|000005b0| 69 6c 65 25 3b 79 74 69 | 6c 65 25 3b 0d 02 12 09 |ile%;yti|le%;....|
|000005c0| 20 c8 97 20 ee 0d 02 1c | 06 20 f5 0d 02 26 2a 20 | .. ....|. ...&* |
|000005d0| 20 f5 20 c8 97 20 6d 78 | 25 2c 6d 79 25 2c 62 25 | . .. mx|%,my%,b%|
|000005e0| 3a fd 20 62 25 3d 31 20 | 84 20 62 25 3d 34 20 84 |:. b%=1 |. b%=4 .|
|000005f0| 20 62 25 3d 35 0d 02 30 | 0e 20 20 e7 20 62 25 3d | b%=5..0|.  . b%=|
|00000600| 31 20 8c 0d 02 3a 2e 20 | 20 20 e7 20 a4 70 6f 73 |1 ...:. |  . .pos|
|00000610| 69 74 69 6f 6e 28 6d 78 | 25 2c 6d 79 25 2c 78 70 |ition(mx|%,my%,xp|
|00000620| 25 28 32 29 2c 79 70 25 | 28 32 29 2c 35 30 29 20 |%(2),yp%|(2),50) |
|00000630| 8c 0d 02 44 0d 20 20 20 | 20 f2 6b 69 74 65 0d 02 |...D.   | .kite..|
|00000640| 4e 2b 20 20 20 20 78 70 | 25 28 32 29 3d 6d 78 25 |N+    xp|%(2)=mx%|
|00000650| 3a 78 70 25 28 31 29 3d | 28 78 70 25 28 30 29 2b |:xp%(1)=|(xp%(0)+|
|00000660| 78 70 25 28 32 29 29 2f | 32 0d 02 58 2c 20 20 20 |xp%(2))/|2..X,   |
|00000670| 20 79 70 25 28 31 29 3d | 79 70 25 28 30 29 2b b6 | yp%(1)=|yp%(0)+.|
|00000680| 28 33 29 2a 28 78 70 25 | 28 32 29 2d 78 70 25 28 |(3)*(xp%|(2)-xp%(|
|00000690| 30 29 29 2f 32 0d 02 62 | 3c 20 20 20 20 78 70 25 |0))/2..b|<    xp%|
|000006a0| 28 33 29 3d 78 70 25 28 | 31 29 3a 79 70 25 28 33 |(3)=xp%(|1):yp%(3|
|000006b0| 29 3d 79 70 25 28 30 29 | 2d 28 78 70 25 28 32 29 |)=yp%(0)|-(xp%(2)|
|000006c0| 2d 78 70 25 28 30 29 29 | 2f 28 32 2a b6 28 33 29 |-xp%(0))|/(2*.(3)|
|000006d0| 29 0d 02 6c 0d 20 20 20 | 20 f2 6b 69 74 65 0d 02 |)..l.   | .kite..|
|000006e0| 76 08 20 20 20 cd 0d 02 | 80 2e 20 20 20 e7 20 a4 |v.   ...|..   . .|
|000006f0| 70 6f 73 69 74 69 6f 6e | 28 6d 78 25 2c 6d 79 25 |position|(mx%,my%|
|00000700| 2c 78 70 25 28 30 29 2c | 79 70 25 28 30 29 2c 35 |,xp%(0),|yp%(0),5|
|00000710| 30 29 20 8c 0d 02 8a 0d | 20 20 20 20 f2 6b 69 74 |0) .....|    .kit|
|00000720| 65 0d 02 94 25 20 20 20 | 20 64 78 25 3d 6d 78 25 |e...%   | dx%=mx%|
|00000730| 2d 78 70 25 28 30 29 3a | 64 79 25 3d 6d 79 25 2d |-xp%(0):|dy%=my%-|
|00000740| 79 70 25 28 30 29 0d 02 | 9e 1a 20 20 20 20 e3 20 |yp%(0)..|..    . |
|00000750| 6e 25 3d 30 20 b8 20 73 | 65 67 6d 65 6e 74 73 25 |n%=0 . s|egments%|
|00000760| 0d 02 a8 30 20 20 20 20 | 20 78 70 25 28 6e 25 29 |...0    | xp%(n%)|
|00000770| 3d 78 70 25 28 6e 25 29 | 2b 64 78 25 3a 79 70 25 |=xp%(n%)|+dx%:yp%|
|00000780| 28 6e 25 29 3d 79 70 25 | 28 6e 25 29 2b 64 79 25 |(n%)=yp%|(n%)+dy%|
|00000790| 0d 02 b2 09 20 20 20 20 | ed 0d 02 bc 0d 20 20 20 |....    |.....   |
|000007a0| 20 f2 6b 69 74 65 0d 02 | c6 08 20 20 20 cd 0d 02 | .kite..|..   ...|
|000007b0| d0 07 20 20 cd 0d 02 da | 12 20 fd 20 62 25 3d 34 |..  ....|. . b%=4|
|000007c0| 20 84 20 62 25 3d 35 0d | 02 e4 16 20 f2 74 69 6c | . b%=5.|... .til|
|000007d0| 69 6e 67 70 61 72 61 6d | 65 74 65 72 73 0d 02 ee |ingparam|eters...|
|000007e0| 05 e1 0d 02 f8 05 3a 0d | 03 02 17 dd 20 f2 74 69 |......:.|.... .ti|
|000007f0| 6c 69 6e 67 70 61 72 61 | 6d 65 74 65 72 73 0d 03 |lingpara|meters..|
|00000800| 0c 57 20 78 72 65 70 25 | 3d 34 2a 28 79 70 25 28 |.W xrep%|=4*(yp%(|
|00000810| 31 29 2d 79 70 25 28 30 | 29 29 2f b6 28 33 29 3a |1)-yp%(0|))/.(3):|
|00000820| 79 72 65 70 25 3d 28 79 | 70 25 28 31 29 2d 79 70 |yrep%=(y|p%(1)-yp|
|00000830| 25 28 33 29 29 2a 33 2f | 32 3a 78 6f 66 66 73 65 |%(3))*3/|2:xoffse|
|00000840| 74 25 3d 78 72 65 70 25 | 2f 32 3a 79 6f 66 66 73 |t%=xrep%|/2:yoffs|
|00000850| 65 74 25 3d 30 0d 03 16 | 05 e1 0d 03 20 05 3a 0d |et%=0...|.... .:.|
|00000860| 03 2a 14 dd 20 f2 63 6c | 75 73 74 65 72 64 65 74 |.*.. .cl|usterdet|
|00000870| 61 69 6c 0d 03 34 27 20 | 20 78 6f 72 69 67 25 3d |ail..4' | xorig%=|
|00000880| 34 30 30 3a 79 6f 72 69 | 67 25 3d 34 30 30 3a f2 |400:yori|g%=400:.|
|00000890| 64 72 61 77 63 75 72 76 | 65 73 0d 03 3e 0e 20 20 |drawcurv|es..>.  |
|000008a0| f2 74 68 69 72 64 70 69 | 0d 03 48 41 20 20 58 70 |.thirdpi|..HA  Xp|
|000008b0| 25 28 30 29 3d 28 78 70 | 25 28 30 29 2d b6 28 33 |%(0)=(xp|%(0)-.(3|
|000008c0| 29 2a 79 70 25 28 30 29 | 29 2f 32 3a 59 70 25 28 |)*yp%(0)|)/2:Yp%(|
|000008d0| 30 29 3d 28 b6 28 33 29 | 2a 78 70 25 28 30 29 2b |0)=(.(3)|*xp%(0)+|
|000008e0| 79 70 25 28 30 29 29 2f | 32 0d 03 52 5d 20 20 78 |yp%(0))/|2..R]  x|
|000008f0| 6f 72 69 67 25 3d 34 30 | 30 2b 28 78 70 25 28 30 |orig%=40|0+(xp%(0|
|00000900| 29 2d 58 70 25 28 30 29 | 29 2f 32 2b 28 78 70 25 |)-Xp%(0)|)/2+(xp%|
|00000910| 28 32 29 2d 78 70 25 28 | 30 29 29 2f 32 3a 79 6f |(2)-xp%(|0))/2:yo|
|00000920| 72 69 67 25 3d 34 30 30 | 2b 28 79 70 25 28 30 29 |rig%=400|+(yp%(0)|
|00000930| 2d 59 70 25 28 30 29 29 | 2f 32 3a f2 64 72 61 77 |-Yp%(0))|/2:.draw|
|00000940| 63 75 72 76 65 73 0d 03 | 5c 0e 20 20 f2 74 68 69 |curves..|\.  .thi|
|00000950| 72 64 70 69 0d 03 66 42 | 20 20 58 70 25 28 30 29 |rdpi..fB|  Xp%(0)|
|00000960| 3d 2d 28 78 70 25 28 30 | 29 2b b6 28 33 29 2a 79 |=-(xp%(0|)+.(3)*y|
|00000970| 70 25 28 30 29 29 2f 32 | 3a 59 70 25 28 30 29 3d |p%(0))/2|:Yp%(0)=|
|00000980| 28 b6 28 33 29 2a 78 70 | 25 28 30 29 2d 79 70 25 |(.(3)*xp|%(0)-yp%|
|00000990| 28 30 29 29 2f 32 0d 03 | 70 81 20 20 78 6f 72 69 |(0))/2..|p.  xori|
|000009a0| 67 25 3d 34 30 30 2b 28 | 78 70 25 28 30 29 2d 58 |g%=400+(|xp%(0)-X|
|000009b0| 70 25 28 30 29 29 2f 32 | 2b 28 78 70 25 28 32 29 |p%(0))/2|+(xp%(2)|
|000009c0| 2d 78 70 25 28 30 29 29 | 2f 32 2b 28 78 70 25 28 |-xp%(0))|/2+(xp%(|
|000009d0| 31 29 2d 78 70 25 28 30 | 29 29 2f 32 3a 79 6f 72 |1)-xp%(0|))/2:yor|
|000009e0| 69 67 25 3d 34 30 30 2b | 28 79 70 25 28 30 29 2d |ig%=400+|(yp%(0)-|
|000009f0| 59 70 25 28 30 29 29 2f | 32 2b 28 79 70 25 28 31 |Yp%(0))/|2+(yp%(1|
|00000a00| 29 2d 79 70 25 28 30 29 | 29 2f 32 3a f2 64 72 61 |)-yp%(0)|)/2:.dra|
|00000a10| 77 63 75 72 76 65 73 0d | 03 7a 0e 20 20 f2 74 68 |wcurves.|.z.  .th|
|00000a20| 69 72 64 70 69 0d 03 84 | 55 20 20 78 6f 72 69 67 |irdpi...|U  xorig|
|00000a30| 25 3d 34 30 30 2b 78 70 | 25 28 30 29 2b 28 78 70 |%=400+xp|%(0)+(xp|
|00000a40| 25 28 32 29 2d 78 70 25 | 28 30 29 29 2f 32 3a 79 |%(2)-xp%|(0))/2:y|
|00000a50| 6f 72 69 67 25 3d 34 30 | 30 2b 79 70 25 28 30 29 |orig%=40|0+yp%(0)|
|00000a60| 2b 79 70 25 28 31 29 2d | 79 70 25 28 30 29 3a f2 |+yp%(1)-|yp%(0):.|
|00000a70| 64 72 61 77 63 75 72 76 | 65 73 0d 03 8e 0e 20 20 |drawcurv|es....  |
|00000a80| f2 74 68 69 72 64 70 69 | 0d 03 98 43 20 20 58 70 |.thirdpi|...C  Xp|
|00000a90| 25 28 30 29 3d 2d 28 78 | 70 25 28 30 29 2d b6 28 |%(0)=-(x|p%(0)-.(|
|00000aa0| 33 29 2a 79 70 25 28 30 | 29 29 2f 32 3a 59 70 25 |3)*yp%(0|))/2:Yp%|
|00000ab0| 28 30 29 3d 2d 28 b6 28 | 33 29 2a 78 70 25 28 30 |(0)=-(.(|3)*xp%(0|
|00000ac0| 29 2b 79 70 25 28 30 29 | 29 2f 32 0d 03 a2 59 20 |)+yp%(0)|)/2...Y |
|00000ad0| 20 78 6f 72 69 67 25 3d | 34 30 30 2b 28 78 70 25 | xorig%=|400+(xp%|
|00000ae0| 28 30 29 2d 58 70 25 28 | 30 29 29 2f 32 3a 79 6f |(0)-Xp%(|0))/2:yo|
|00000af0| 72 69 67 25 3d 34 30 30 | 2b 28 79 70 25 28 30 29 |rig%=400|+(yp%(0)|
|00000b00| 2d 59 70 25 28 30 29 29 | 2f 32 2b 79 70 25 28 31 |-Yp%(0))|/2+yp%(1|
|00000b10| 29 2d 79 70 25 28 30 29 | 3a f2 64 72 61 77 63 75 |)-yp%(0)|:.drawcu|
|00000b20| 72 76 65 73 0d 03 ac 0e | 20 20 f2 74 68 69 72 64 |rves....|  .third|
|00000b30| 70 69 0d 03 b6 42 20 20 | 58 70 25 28 30 29 3d 28 |pi...B  |Xp%(0)=(|
|00000b40| 78 70 25 28 30 29 2b b6 | 28 33 29 2a 79 70 25 28 |xp%(0)+.|(3)*yp%(|
|00000b50| 30 29 29 2f 32 3a 59 70 | 25 28 30 29 3d 2d 28 b6 |0))/2:Yp|%(0)=-(.|
|00000b60| 28 33 29 2a 78 70 25 28 | 30 29 2d 79 70 25 28 30 |(3)*xp%(|0)-yp%(0|
|00000b70| 29 29 2f 32 0d 03 c0 6f | 20 20 78 6f 72 69 67 25 |))/2...o|  xorig%|
|00000b80| 3d 34 30 30 2b 28 78 70 | 25 28 30 29 2d 58 70 25 |=400+(xp|%(0)-Xp%|
|00000b90| 28 30 29 29 2f 32 2d 28 | 78 70 25 28 33 29 2d 78 |(0))/2-(|xp%(3)-x|
|00000ba0| 70 25 28 30 29 29 2f 32 | 3a 79 6f 72 69 67 25 3d |p%(0))/2|:yorig%=|
|00000bb0| 34 30 30 2b 28 79 70 25 | 28 30 29 2d 59 70 25 28 |400+(yp%|(0)-Yp%(|
|00000bc0| 30 29 29 2f 32 2b 28 79 | 70 25 28 31 29 2d 79 70 |0))/2+(y|p%(1)-yp|
|00000bd0| 25 28 30 29 29 2f 32 3a | f2 64 72 61 77 63 75 72 |%(0))/2:|.drawcur|
|00000be0| 76 65 73 0d 03 ca 05 e1 | 0d ff                   |ves.....|..      |
+--------+-------------------------+-------------------------+--------+--------+