SHAPE
FILE INFORMATION
FILENAME(S): SHAPE
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
fcbc1408966c002563d4edec77f3468842a8e94934c5daf883e6e95d0ae22ec2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL | SHAPE | PRG | DuncanTwain | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 53 48 41 50 45 20 3D 3D |..'.d.. SHAPE ==| 00000010: 20 55 49 54 20 50 42 45 20 31 39 38 33 20 2F 20 | UIT PBE 1983 / | 00000020: 50 41 47 20 31 30 37 00 2D 08 6E 00 3A 00 6A 08 |PAG 107.-.n.:.j.| 00000030: 73 00 8F 20 20 20 20 20 20 20 3D 3D 20 41 41 4E |s.. == AAN| 00000040: 47 45 50 41 53 54 20 56 4F 4F 52 20 53 49 4D 4F |GEPAST VOOR SIMO| 00000050: 4E 53 27 20 42 41 53 49 43 20 44 4F 4F 52 20 4B |NS' BASIC DOOR K| 00000060: 45 45 53 20 41 47 45 64 59 4B 00 74 08 91 00 64 |EES AGEdYK.t...d| 00000070: 4E 20 31 30 00 80 08 96 00 99 20 C7 28 31 34 29 |N 10...... .(14)| 00000080: 00 B2 08 A0 00 53 B2 31 30 AD 32 3A 53 58 B2 33 |.....S.10.2:SX.3| 00000090: 31 39 AD 32 3A 43 58 B2 53 58 3A 53 59 B2 31 39 |19.2:CX.SX:SY.19| 000000A0: 39 AD 32 3A 43 59 B2 53 59 3A 44 B2 33 30 3A 43 |9.2:CY.SY:D.30:C| 000000B0: B2 31 00 B8 08 AA 00 3A 00 D6 08 B4 00 86 20 54 |.1.....:...... T| 000000C0: 31 28 34 2C 34 29 2C 54 32 28 34 2C 34 29 2C 54 |1(4,4),T2(4,4),T| 000000D0: 33 28 34 2C 34 29 00 F4 08 BE 00 86 20 54 34 28 |3(4,4)...... T4(| 000000E0: 34 2C 34 29 2C 54 35 28 34 2C 34 29 2C 54 36 28 |4,4),T5(4,4),T6(| 000000F0: 34 2C 34 29 00 0A 09 C8 00 86 20 45 31 28 34 2C |4,4)...... E1(4,| 00000100: 34 29 2C 45 32 28 34 2C 34 29 00 10 09 D2 00 3A |4),E2(4,4).....:| 00000110: 00 30 09 DC 00 8F 20 49 4E 49 54 49 41 4C 49 5A |.0.... INITIALIZ| 00000120: 45 45 52 20 44 45 20 4D 41 54 52 49 43 45 53 3A |EER DE MATRICES:| 00000130: 00 36 09 E6 00 3A 00 7C 09 F0 00 81 20 49 B2 31 |.6...:.|.... I.1| 00000140: 20 A4 20 34 3A 20 54 31 28 49 2C 49 29 B2 31 3A | . 4: T1(I,I).1:| 00000150: 54 35 28 49 2C 49 29 B2 31 3A 54 36 28 49 2C 49 |T5(I,I).1:T6(I,I| 00000160: 29 B2 31 3A 54 33 28 49 2C 49 29 B2 31 3A 54 34 |).1:T3(I,I).1:T4| 00000170: 28 49 2C 49 29 B2 31 3A 20 82 20 49 00 AC 09 FA |(I,I).1: . I....| 00000180: 00 54 32 28 31 2C 31 29 B2 31 3A 20 54 32 28 32 |.T2(1,1).1: T2(2| 00000190: 2C 33 29 B2 AB 31 3A 20 54 32 28 33 2C 32 29 B2 |,3)..1: T2(3,2).| 000001A0: 31 3A 20 54 32 28 34 2C 34 29 B2 31 00 D3 09 04 |1: T2(4,4).1....| 000001B0: 01 54 35 28 33 2C 33 29 B2 AB 31 3A 54 36 28 31 |.T5(3,3)..1:T6(1| 000001C0: 2C 31 29 B2 44 AD 53 3A 54 36 28 32 2C 32 29 B2 |,1).D.S:T6(2,2).| 000001D0: 44 AD 53 00 D9 09 0E 01 3A 00 FD 09 18 01 85 22 |D.S.....:......"| 000001E0: 93 11 11 11 11 11 11 11 57 45 4C 4B 45 20 27 2E |........WELKE '.| 000001F0: 53 48 50 27 20 46 49 4C 45 22 3B 46 24 00 1A 0A |SHP' FILE";F$...| 00000200: 1D 01 85 22 11 57 45 4C 4B 20 44 45 56 49 43 45 |...".WELK DEVICE| 00000210: 20 20 38 9D 9D 9D 22 3B 44 56 00 36 0A 22 01 9F | 8...";DV.6."..| 00000220: 20 31 2C 44 56 2C 31 30 2C 46 24 AA 22 2E 53 48 | 1,DV,10,F$.".SH| 00000230: 50 2C 53 2C 52 22 00 3C 0A 2C 01 3A 00 4A 0A 36 |P,S,R".<.,.:.J.6| 00000240: 01 84 31 2C 4E 25 2C 41 50 25 00 5C 0A 3B 01 86 |..1,N%,AP%.\.;..| 00000250: 20 50 4E 25 28 41 50 25 2C 31 35 29 00 7D 0A 40 | PN%(AP%,15).}.@| 00000260: 01 86 20 48 50 28 4E 25 2C 34 29 2C 48 43 28 4E |.. HP(N%,4),HC(N| 00000270: 25 2C 35 29 2C 48 53 28 4E 25 2C 35 29 00 83 0A |%,5),HS(N%,5)...| 00000280: 4A 01 3A 00 92 0A 54 01 81 20 49 B2 31 20 A4 20 |J.:...T.. I.1 . | 00000290: 4E 25 00 A2 0A 5E 01 3A 20 81 20 58 B2 31 20 A4 |N%...^.: . X.1 .| 000002A0: 20 33 00 B5 0A 68 01 3A 20 3A 20 84 31 2C 48 50 | 3...h.: : .1,HP| 000002B0: 28 49 2C 58 29 00 BF 0A 72 01 3A 20 82 20 58 00 |(I,X)...r.: . X.| 000002C0: E5 0A 7C 01 3A 20 48 50 28 49 2C 34 29 B2 31 3A |..|.: HP(I,4).1:| 000002D0: 20 48 43 28 49 2C 34 29 B2 31 3A 20 48 53 28 49 | HC(I,4).1: HS(I| 000002E0: 2C 34 29 B2 31 00 ED 0A 86 01 82 20 49 00 F3 0A |,4).1...... I...| 000002F0: 90 01 3A 00 F9 0A 9A 01 3A 00 09 0B A4 01 81 20 |..:.....:...... | 00000300: 49 B2 31 20 A4 20 41 50 25 00 27 0B AE 01 3A 20 |I.1 . AP%.'...: | 00000310: 84 31 2C 50 4E 25 28 49 2C 30 29 3A 20 8F 20 23 |.1,PN%(I,0): . #| 00000320: 20 50 55 4E 54 45 4E 00 3E 0B B8 01 3A 20 81 20 | PUNTEN.>...: . | 00000330: 58 B2 31 20 A4 20 50 4E 25 28 49 2C 30 29 00 52 |X.1 . PN%(I,0).R| 00000340: 0B C2 01 3A 20 3A 20 84 31 2C 50 4E 25 28 49 2C |...: : .1,PN%(I,| 00000350: 58 29 00 5C 0B CC 01 3A 20 82 20 58 00 64 0B D1 |X).\...: . X.d..| 00000360: 01 82 20 49 00 6A 0B D6 01 3A 00 72 0B E0 01 A0 |.. I.j...:.r....| 00000370: 20 31 00 78 0B EA 01 3A 00 9E 0B F4 01 8F 20 49 | 1.x...:...... I| 00000380: 4E 20 48 50 28 2E 2C 2E 29 20 20 53 54 41 41 4E |N HP(.,.) STAAN| 00000390: 20 44 45 20 48 4F 45 4B 50 55 4E 54 45 4E 00 C2 | DE HOEKPUNTEN..| 000003A0: 0B FE 01 8F 20 49 4E 20 50 4E 25 28 51 2C 2E 29 |.... IN PN%(Q,.)| 000003B0: 20 53 54 41 41 54 20 44 41 54 20 44 45 20 50 4F | STAAT DAT DE PO| 000003C0: 4C 59 00 E0 0B 08 02 8F 20 51 20 42 45 53 54 41 |LY...... Q BESTA| 000003D0: 41 54 20 55 49 54 20 44 45 20 50 55 4E 54 45 4E |AT UIT DE PUNTEN| 000003E0: 00 03 0C 12 02 8F 20 50 4E 25 28 51 2C 31 29 20 |...... PN%(Q,1) | 000003F0: 54 2F 4D 20 50 4E 25 28 51 2C 50 4E 25 28 51 2C |T/M PN%(Q,PN%(Q,| 00000400: 30 29 29 00 27 0C 1C 02 8F 20 44 45 5A 45 20 44 |0)).'.... DEZE D| 00000410: 49 45 4E 45 4E 20 41 4C 53 20 49 4E 44 45 58 20 |IENEN ALS INDEX | 00000420: 56 4F 4F 52 20 48 50 00 2D 0C 26 02 3A 00 33 0C |VOOR HP.-.&.:.3.| 00000430: 30 02 3A 00 60 0C 3A 02 85 20 22 11 11 11 50 55 |0.:.`.:.. "...PU| 00000440: 4E 54 20 56 41 4E 20 48 45 54 20 4F 4F 47 20 28 |NT VAN HET OOG (| 00000450: 58 2C 59 2C 5A 29 22 3B 47 58 2C 47 59 2C 47 5A |X,Y,Z)";GX,GY,GZ| 00000460: 00 91 0C 44 02 85 20 22 11 47 45 5A 49 43 48 54 |...D.. ".GEZICHT| 00000470: 53 43 45 4E 54 52 55 4D 20 20 20 30 2C 30 2C 30 |SCENTRUM 0,0,0| 00000480: 9D 9D 9D 9D 9D 9D 9D 22 3B 4D 58 2C 4D 59 2C 4D |.......";MX,MY,M| 00000490: 5A 00 97 0C 4E 02 3A 00 B3 0C 53 02 99 22 11 11 |Z...N.:...S.."..| 000004A0: 45 56 45 4E 20 47 45 44 55 4C 44 20 41 2E 55 2E |EVEN GEDULD A.U.| 000004B0: 42 2E 22 00 B9 0C 58 02 3A 00 D3 0C 62 02 8F 20 |B."...X.:...b.. | 000004C0: 4D 41 41 4B 20 44 45 20 54 2D 4D 41 54 52 49 43 |MAAK DE T-MATRIC| 000004D0: 45 53 3A 00 D9 0C 6C 02 3A 00 01 0D 76 02 54 31 |ES:...l.:...v.T1| 000004E0: 28 34 2C 31 29 B2 AB 47 58 3A 54 31 28 34 2C 32 |(4,1)..GX:T1(4,2| 000004F0: 29 B2 AB 47 59 3A 54 31 28 34 2C 33 29 B2 AB 47 |)..GY:T1(4,3)..G| 00000500: 5A 00 07 0D 80 02 3A 00 28 0D BC 02 59 4F B2 47 |Z.....:.(...YO.G| 00000510: 59 AB 4D 59 3A 20 58 4F B2 47 58 AB 4D 58 3A 20 |Y.MY: XO.GX.MX: | 00000520: 5A 4F B2 47 5A AB 4D 5A 00 51 0D C6 02 4C 31 B2 |ZO.GZ.MZ.Q...L1.| 00000530: BA 28 58 4F AC 58 4F AA 59 4F AC 59 4F 29 3A 20 |.(XO.XO.YO.YO): | 00000540: 4C 32 B2 BA 28 4C 31 AC 4C 31 AA 5A 4F AC 5A 4F |L2..(L1.L1.ZO.ZO| 00000550: 29 00 57 0D D0 02 3A 00 70 0D DA 02 8F 20 4D 41 |).W...:.p.... MA| 00000560: 41 4B 20 44 45 20 54 33 2D 4D 41 54 52 49 58 3A |AK DE T3-MATRIX:| 00000570: 00 76 0D E4 02 3A 00 8F 0D EE 02 43 54 B2 AB 59 |.v...:.....CT..Y| 00000580: 4F AD 4C 31 3A 20 53 4E B2 AB 58 4F AD 4C 31 00 |O.L1: SN..XO.L1.| 00000590: AB 0D F8 02 54 33 28 31 2C 31 29 B2 43 54 3A 20 |....T3(1,1).CT: | 000005A0: 54 33 28 31 2C 33 29 B2 AB 53 4E 00 C7 0D 02 03 |T3(1,3)..SN.....| 000005B0: 54 33 28 33 2C 31 29 B2 53 4E 3A 20 54 33 28 33 |T3(3,1).SN: T3(3| 000005C0: 2C 33 29 B2 20 43 54 00 CD 0D 0C 03 3A 00 E6 0D |,3). CT.....:...| 000005D0: 16 03 8F 20 4D 41 41 4B 20 44 45 20 54 34 2D 4D |... MAAK DE T4-M| 000005E0: 41 54 52 49 58 3A 00 EC 0D 20 03 3A 00 03 0E 2A |ATRIX:... .:...*| 000005F0: 03 43 46 B2 4C 31 AD 4C 32 3A 20 53 46 B2 5A 4F |.CF.L1.L2: SF.ZO| 00000600: AD 4C 32 00 1E 0E 34 03 54 34 28 32 2C 32 29 B2 |.L2...4.T4(2,2).| 00000610: 43 46 3A 20 54 34 28 32 2C 33 29 B2 53 46 00 3A |CF: T4(2,3).SF.:| 00000620: 0E 3E 03 54 34 28 33 2C 32 29 B2 AB 53 46 3A 20 |.>.T4(3,2)..SF: | 00000630: 54 34 28 33 2C 33 29 B2 43 46 00 40 0E 48 03 3A |T4(3,3).CF.@.H.:| 00000640: 00 61 0E 52 03 8F 20 4D 41 41 4B 20 44 45 20 4E |.a.R.. MAAK DE N| 00000650: 2D 4D 41 54 52 49 58 20 28 53 43 48 41 41 4C 29 |-MATRIX (SCHAAL)| 00000660: 3A 00 67 0E 5C 03 3A 00 8B 0E 7A 03 8F 20 41 4C |:.g.\.:...z.. AL| 00000670: 4C 45 20 4D 41 54 52 49 43 45 53 20 5A 49 4A 4E |LE MATRICES ZIJN| 00000680: 20 4E 55 20 42 45 4B 45 4E 44 21 00 AC 0E 84 03 | NU BEKEND!.....| 00000690: 8F 20 47 41 20 5A 45 20 4E 55 20 56 45 52 4D 45 |. GA ZE NU VERME| 000006A0: 4E 49 47 56 55 4C 44 49 47 45 4E 2E 00 B2 0E 8E |NIGVULDIGEN.....| 000006B0: 03 3A 00 D6 0E 98 03 81 20 52 B2 31 20 A4 20 34 |.:...... R.1 . 4| 000006C0: 3A 20 81 20 4B B2 31 20 A4 20 34 3A 20 45 32 28 |: . K.1 . 4: E2(| 000006D0: 52 2C 4B 29 B2 30 00 0D 0F A2 03 81 20 50 B2 31 |R,K).0...... P.1| 000006E0: 20 A4 20 34 3A 20 45 32 28 52 2C 4B 29 B2 45 32 | . 4: E2(R,K).E2| 000006F0: 28 52 2C 4B 29 AA 54 35 28 52 2C 50 29 AC 54 36 |(R,K).T5(R,P).T6| 00000700: 28 50 2C 4B 29 3A 82 20 50 2C 4B 2C 52 00 13 0F |(P,K):. P,K,R...| 00000710: AC 03 3A 00 37 0F B6 03 81 20 52 B2 31 20 A4 20 |..:.7.... R.1 . | 00000720: 34 3A 20 81 20 4B B2 31 20 A4 20 34 3A 20 45 31 |4: . K.1 . 4: E1| 00000730: 28 52 2C 4B 29 B2 30 00 6E 0F C0 03 81 20 50 B2 |(R,K).0.n.... P.| 00000740: 31 20 A4 20 34 3A 20 45 31 28 52 2C 4B 29 B2 45 |1 . 4: E1(R,K).E| 00000750: 31 28 52 2C 4B 29 AA 54 34 28 52 2C 50 29 AC 45 |1(R,K).T4(R,P).E| 00000760: 32 28 50 2C 4B 29 3A 82 20 50 2C 4B 2C 52 00 74 |2(P,K):. P,K,R.t| 00000770: 0F CA 03 3A 00 98 0F D4 03 81 20 52 B2 31 20 A4 |...:...... R.1 .| 00000780: 20 34 3A 20 81 20 4B B2 31 20 A4 20 34 3A 20 45 | 4: . K.1 . 4: E| 00000790: 32 28 52 2C 4B 29 B2 30 00 CF 0F DE 03 81 20 50 |2(R,K).0...... P| 000007A0: B2 31 20 A4 20 34 3A 20 45 32 28 52 2C 4B 29 B2 |.1 . 4: E2(R,K).| 000007B0: 45 32 28 52 2C 4B 29 AA 54 33 28 52 2C 50 29 AC |E2(R,K).T3(R,P).| 000007C0: 45 31 28 50 2C 4B 29 3A 82 20 50 2C 4B 2C 52 00 |E1(P,K):. P,K,R.| 000007D0: D5 0F E8 03 3A 00 F9 0F F2 03 81 20 52 B2 31 20 |....:...... R.1 | 000007E0: A4 20 34 3A 20 81 20 4B B2 31 20 A4 20 34 3A 20 |. 4: . K.1 . 4: | 000007F0: 45 31 28 52 2C 4B 29 B2 30 00 30 10 FC 03 81 20 |E1(R,K).0.0.... | 00000800: 50 B2 31 20 A4 20 34 3A 20 45 31 28 52 2C 4B 29 |P.1 . 4: E1(R,K)| 00000810: B2 45 31 28 52 2C 4B 29 AA 54 32 28 52 2C 50 29 |.E1(R,K).T2(R,P)| 00000820: AC 45 32 28 50 2C 4B 29 3A 82 20 50 2C 4B 2C 52 |.E2(P,K):. P,K,R| 00000830: 00 36 10 06 04 3A 00 5A 10 10 04 81 20 52 B2 31 |.6...:.Z.... R.1| 00000840: 20 A4 20 34 3A 20 81 20 4B B2 31 20 A4 20 34 3A | . 4: . K.1 . 4:| 00000850: 20 45 32 28 52 2C 4B 29 B2 30 00 91 10 1A 04 81 | E2(R,K).0......| 00000860: 20 50 B2 31 20 A4 20 34 3A 20 45 32 28 52 2C 4B | P.1 . 4: E2(R,K| 00000870: 29 B2 45 32 28 52 2C 4B 29 AA 54 31 28 52 2C 50 |).E2(R,K).T1(R,P| 00000880: 29 AC 45 31 28 50 2C 4B 29 3A 82 20 50 2C 4B 2C |).E1(P,K):. P,K,| 00000890: 52 00 B2 10 24 04 8F 20 45 32 28 29 20 49 53 20 |R...$.. E2() IS | 000008A0: 44 45 20 43 4F 4D 50 4C 45 54 45 20 4D 41 54 52 |DE COMPLETE MATR| 000008B0: 49 58 00 B8 10 2E 04 3A 00 C7 10 38 04 81 20 50 |IX.....:...8.. P| 000008C0: B2 31 20 A4 20 4E 25 00 E7 10 42 04 3A 20 81 20 |.1 . N%...B.: . | 000008D0: 51 B2 31 20 A4 20 33 3A 20 48 43 28 50 2C 51 29 |Q.1 . 3: HC(P,Q)| 000008E0: B2 30 3A 20 82 20 51 00 2A 11 4C 04 3A 20 81 20 |.0: . Q.*.L.: . | 000008F0: 52 B2 31 20 A4 20 34 3A 20 81 20 4B B2 31 20 A4 |R.1 . 4: . K.1 .| 00000900: 20 34 3A 20 48 43 28 50 2C 52 29 B2 48 43 28 50 | 4: HC(P,R).HC(P| 00000910: 2C 52 29 AA 45 32 28 4B 2C 52 29 AC 48 50 28 50 |,R).E2(K,R).HP(P| 00000920: 2C 4B 29 3A 20 82 20 4B 2C 52 00 49 11 56 04 82 |,K): . K,R.I.V..| 00000930: 20 50 3A 20 8F 20 48 43 20 4D 41 54 52 49 58 20 | P: . HC MATRIX | 00000940: 4E 55 20 42 45 4B 45 4E 44 00 4F 11 60 04 3A 00 |NU BEKEND.O.`.:.| 00000950: 6E 11 6A 04 64 01 20 30 2C 33 20 20 20 3A 20 8F |n.j.d. 0,3 : .| 00000960: 20 57 49 53 20 64 01 20 53 43 48 45 52 4D 00 74 | WIS d. SCHERM.t| 00000970: 11 6F 04 3A 00 84 11 74 04 81 20 4C B2 31 20 A4 |.o.:...t.. L.1 .| 00000980: 20 41 50 25 00 9D 11 7E 04 3A 20 81 20 57 B2 31 | AP%...~.: . W.1| 00000990: 20 A4 20 50 4E 25 28 4C 2C 30 29 AB 31 00 BE 11 | . PN%(L,0).1...| 000009A0: 88 04 3A 20 3A 20 8D 20 31 33 32 30 3A 20 8F 20 |..: : . 1320: . | 000009B0: 43 4C 49 50 20 48 43 20 4D 41 54 52 49 58 00 E9 |CLIP HC MATRIX..| 000009C0: 11 92 04 3A 20 3A 20 8B 20 48 43 28 48 30 25 2C |...: : . HC(H0%,| 000009D0: 35 29 B2 30 20 B0 20 48 43 28 48 31 25 2C 35 29 |5).0 . HC(H1%,5)| 000009E0: B2 30 20 A7 20 31 32 33 30 00 02 12 9C 04 3A 20 |.0 . 1230.....: | 000009F0: 3A 20 58 31 B2 53 58 AC 28 58 31 AD 5A 31 29 AA |: X1.SX.(X1.Z1).| 00000A00: 43 58 00 1B 12 A6 04 3A 20 3A 20 58 32 B2 53 58 |CX.....: : X2.SX| 00000A10: AC 28 58 32 AD 5A 32 29 AA 43 58 00 34 12 B0 04 |.(X2.Z2).CX.4...| 00000A20: 3A 20 3A 20 59 31 B2 53 59 AC 28 59 31 AD 5A 31 |: : Y1.SY.(Y1.Z1| 00000A30: 29 AA 43 59 00 4D 12 BA 04 3A 20 3A 20 59 32 B2 |).CY.M...: : Y2.| 00000A40: 53 59 AC 28 59 32 AD 5A 32 29 AA 43 59 00 53 12 |SY.(Y2.Z2).CY.S.| 00000A50: BF 04 3A 00 74 12 C4 04 3A 20 3A 20 64 03 20 58 |..:.t...: : d. X| 00000A60: 31 2C 32 30 30 AB 59 31 2C 58 32 2C 32 30 30 AB |1,200.Y1,X2,200.| 00000A70: 59 32 2C 43 00 9B 12 C5 04 3A 20 3A 20 8F 20 50 |Y2,C.....: : . P| 00000A80: 4C 4F 54 20 45 45 4E 20 4C 49 4A 4E 20 54 55 53 |LOT EEN LIJN TUS| 00000A90: 53 45 4E 20 28 58 31 2C 59 31 29 00 BD 12 C6 04 |SEN (X1,Y1).....| 00000AA0: 3A 20 3A 20 8F 20 20 45 4E 20 28 58 32 2C 59 32 |: : . EN (X2,Y2| 00000AB0: 29 20 4D 45 54 20 4B 4C 45 55 52 20 43 00 C5 12 |) MET KLEUR C...| 00000AC0: C9 04 3A 20 3A 00 CF 12 CE 04 3A 20 82 20 57 00 |..: :.....: . W.| 00000AD0: D7 12 D8 04 82 20 4C 00 E1 12 E2 04 89 20 35 37 |..... L...... 57| 00000AE0: 30 00 E7 12 EC 04 80 00 ED 12 F6 04 3A 00 0C 13 |0...........:...| 00000AF0: 00 05 8F 20 44 49 54 20 43 4C 49 50 50 45 44 20 |... DIT CLIPPED | 00000B00: 44 45 20 48 43 20 4D 41 54 52 49 58 00 2D 13 0A |DE HC MATRIX.-..| 00000B10: 05 8F 20 49 4E 44 49 45 4E 20 48 43 28 4C 49 4A |.. INDIEN HC(LIJ| 00000B20: 4E 2C 35 29 3D 30 20 44 41 4E 20 49 53 00 4B 13 |N,5)=0 DAN IS.K.| 00000B30: 14 05 8F 20 20 44 45 20 4C 49 4A 4E 20 4E 49 45 |... DE LIJN NIE| 00000B40: 54 20 5A 49 43 48 54 42 41 41 52 00 51 13 1E 05 |T ZICHTBAAR.Q...| 00000B50: 3A 00 71 13 28 05 48 30 25 B2 50 4E 25 28 4C 2C |:.q.(.H0%.PN%(L,| 00000B60: 57 29 3A 48 31 25 B2 50 4E 25 28 4C 2C 57 AA 31 |W):H1%.PN%(L,W.1| 00000B70: 29 00 9C 13 32 05 58 31 B2 48 43 28 48 30 25 2C |)...2.X1.HC(H0%,| 00000B80: 31 29 3A 59 31 B2 48 43 28 48 30 25 2C 32 29 3A |1):Y1.HC(H0%,2):| 00000B90: 5A 31 B2 48 43 28 48 30 25 2C 33 29 00 C7 13 3C |Z1.HC(H0%,3)...<| 00000BA0: 05 58 32 B2 48 43 28 48 31 25 2C 31 29 3A 59 32 |.X2.HC(H1%,1):Y2| 00000BB0: B2 48 43 28 48 31 25 2C 32 29 3A 5A 32 B2 48 43 |.HC(H1%,2):Z2.HC| 00000BC0: 28 48 31 25 2C 33 29 00 E3 13 46 05 48 43 28 48 |(H1%,3)...F.HC(H| 00000BD0: 30 25 2C 35 29 B2 31 3A 48 43 28 48 31 25 2C 35 |0%,5).1:HC(H1%,5| 00000BE0: 29 B2 31 00 FC 13 50 05 43 25 B2 30 3A 20 8D 20 |).1...P.C%.0: . | 00000BF0: 31 36 30 30 3A 20 8D 20 31 36 36 30 00 14 14 5A |1600: . 1660...Z| 00000C00: 05 8B 20 43 31 25 B2 30 20 AF 20 43 32 25 B2 30 |.. C1%.0 . C2%.0| 00000C10: 20 A7 20 8E 00 47 14 64 05 8B 20 28 43 31 25 20 | . ..G.d.. (C1% | 00000C20: AF 20 43 32 25 29 B3 B1 30 20 A7 20 48 43 28 48 |. C2%)..0 . HC(H| 00000C30: 30 25 2C 35 29 B2 30 3A 20 48 43 28 48 31 25 2C |0%,5).0: HC(H1%,| 00000C40: 35 29 B2 30 3A 20 8E 00 63 14 6E 05 43 25 B2 43 |5).0: ..c.n.C%.C| 00000C50: 31 25 3A 20 8B 20 43 25 B2 30 20 A7 20 43 25 B2 |1%: . C%.0 . C%.| 00000C60: 43 32 25 00 7C 14 78 05 8B 20 28 43 25 20 AF 20 |C2%.|.x.. (C% . | 00000C70: 32 29 B3 B1 32 20 A7 20 31 34 34 30 00 9C 14 82 |2)..2 . 1440....| 00000C80: 05 54 B2 28 5A 31 AA 58 31 29 AD 28 28 58 31 AB |.T.(Z1.X1).((X1.| 00000C90: 58 32 29 AB 28 5A 32 AB 5A 31 29 29 00 C5 14 8C |X2).(Z2.Z1))....| 00000CA0: 05 5A B2 54 AC 28 5A 32 AB 5A 31 29 AA 5A 31 3A |.Z.T.(Z2.Z1).Z1:| 00000CB0: 20 58 B2 AB 5A 3A 20 59 B2 54 AC 28 59 32 AB 59 | X..Z: Y.T.(Y2.Y| 00000CC0: 31 29 AA 59 31 00 D0 14 96 05 89 20 31 35 35 30 |1).Y1...... 1550| 00000CD0: 00 E9 14 A0 05 8B 20 28 43 25 20 AF 20 34 29 B3 |...... (C% . 4).| 00000CE0: B1 34 20 A7 20 31 34 38 30 00 09 15 AA 05 54 B2 |.4 . 1480.....T.| 00000CF0: 28 5A 31 AB 58 31 29 AD 28 28 58 32 AB 58 31 29 |(Z1.X1).((X2.X1)| 00000D00: AB 28 5A 32 AB 5A 31 29 29 00 31 15 B4 05 5A B2 |.(Z2.Z1)).1...Z.| 00000D10: 54 AC 28 5A 32 AB 5A 31 29 AA 5A 31 3A 20 58 B2 |T.(Z2.Z1).Z1: X.| 00000D20: 5A 3A 20 59 B2 54 AC 28 59 32 AB 59 31 29 AA 59 |Z: Y.T.(Y2.Y1).Y| 00000D30: 31 00 3C 15 BE 05 89 20 31 35 35 30 00 55 15 C8 |1.<.... 1550.U..| 00000D40: 05 8B 20 28 43 25 20 AF 20 38 29 B3 B1 38 20 A7 |.. (C% . 8)..8 .| 00000D50: 20 31 35 32 30 00 75 15 D2 05 54 B2 28 5A 31 AA | 1520.u...T.(Z1.| 00000D60: 59 31 29 AD 28 28 59 31 AB 59 32 29 AB 28 5A 32 |Y1).((Y1.Y2).(Z2| 00000D70: AB 5A 31 29 29 00 9E 15 DC 05 5A B2 54 AC 28 5A |.Z1)).....Z.T.(Z| 00000D80: 32 AB 5A 31 29 AA 5A 31 3A 20 59 B2 AB 5A 3A 20 |2.Z1).Z1: Y..Z: | 00000D90: 58 B2 54 AC 28 58 32 AB 58 31 29 AA 58 31 00 A9 |X.T.(X2.X1).X1..| 00000DA0: 15 E6 05 89 20 31 35 35 30 00 C4 15 F0 05 8B 20 |.... 1550...... | 00000DB0: 28 43 25 20 AF 20 31 36 29 B3 B1 31 36 20 A7 20 |(C% . 16)..16 . | 00000DC0: 31 35 35 30 00 E4 15 FA 05 54 B2 28 5A 31 AB 59 |1550.....T.(Z1.Y| 00000DD0: 31 29 AD 28 28 59 32 AB 59 31 29 AB 28 5A 32 AB |1).((Y2.Y1).(Z2.| 00000DE0: 5A 31 29 29 00 0C 16 04 06 5A B2 54 AC 28 5A 32 |Z1)).....Z.T.(Z2| 00000DF0: AB 5A 31 29 AA 5A 31 3A 20 59 B2 5A 3A 20 58 B2 |.Z1).Z1: Y.Z: X.| 00000E00: 54 AC 28 58 32 AB 58 31 29 AA 58 31 00 3C 16 0E |T.(X2.X1).X1.<..| 00000E10: 06 8B 20 43 25 B2 43 31 25 20 A7 20 58 31 B2 58 |.. C%.C1% . X1.X| 00000E20: 3A 20 59 31 B2 59 3A 20 5A 31 B2 5A 3A 20 8D 20 |: Y1.Y: Z1.Z: . | 00000E30: 31 36 30 30 3A 20 89 20 31 35 37 30 00 59 16 18 |1600: . 1570.Y..| 00000E40: 06 58 32 B2 58 3A 20 59 32 B2 59 3A 20 5A 32 B2 |.X2.X: Y2.Y: Z2.| 00000E50: 5A 3A 20 8D 20 31 36 36 30 00 64 16 22 06 89 20 |Z: . 1660.d.".. | 00000E60: 31 33 37 30 00 6A 16 2C 06 3A 00 70 16 36 06 3A |1370.j.,.:.p.6.:| 00000E70: 00 8C 16 40 06 43 31 25 B2 30 3A 20 8B 20 58 31 |...@.C1%.0: . X1| 00000E80: B3 AB 5A 31 20 A7 20 43 31 25 B2 32 00 A1 16 4A |..Z1 . C1%.2...J| 00000E90: 06 8B 20 58 31 B1 20 5A 31 20 A7 20 43 31 25 B2 |.. X1. Z1 . C1%.| 00000EA0: 34 00 BA 16 54 06 8B 20 59 31 B3 AB 5A 31 20 A7 |4...T.. Y1..Z1 .| 00000EB0: 20 43 31 25 B2 43 31 25 AA 38 00 D4 16 5E 06 8B | C1%.C1%.8...^..| 00000EC0: 20 59 31 B1 20 5A 31 20 A7 20 43 31 25 B2 43 31 | Y1. Z1 . C1%.C1| 00000ED0: 25 AA 31 36 00 DA 16 68 06 8E 00 E0 16 72 06 3A |%.16...h.....r.:| 00000EE0: 00 FC 16 7C 06 43 32 25 B2 30 3A 20 8B 20 58 32 |...|.C2%.0: . X2| 00000EF0: B3 AB 5A 32 20 A7 20 43 32 25 B2 32 00 11 17 86 |..Z2 . C2%.2....| 00000F00: 06 8B 20 58 32 B1 20 5A 32 20 A7 20 43 32 25 B2 |.. X2. Z2 . C2%.| 00000F10: 34 00 2A 17 90 06 8B 20 59 32 B3 AB 5A 32 20 A7 |4.*.... Y2..Z2 .| 00000F20: 20 43 32 25 B2 43 32 25 AA 38 00 44 17 9A 06 8B | C2%.C2%.8.D....| 00000F30: 20 59 32 B1 20 5A 32 20 A7 20 43 32 25 B2 43 32 | Y2. Z2 . C2%.C2| 00000F40: 25 AA 31 36 00 4A 17 A4 06 8E 00 00 00 |%.16.J....... |
..'.D.. SHAPE == UIT PBE 1983 / PAG 107. -.N.:.J.S.. == AANGEPAST VOOR SIMO NS' BASIC DOOR KEES AGEDYK.T...DN 10.... .. G(14)... .S.10.2:SX.319.2:CX.SX:SY.19 9.2:CY.SY:D.30:C.1.....:.V.... T1(4,4),T 2(4,4),T3(4,4)...... T4(4,4),T5(4,4),T6( 4,4)...H.. E1(4,4),E2(4,4)...R.:.0.... I NITIALIZEER DE MATRICES:.6...:.|.... I.1 . 4: T1(I,I).1:T5(I,I).1:T6(I,I).1:T3(I ,I).1:T4(I,I).1: . I.....T2(1,1).1: T2(2 ,3)..1: T2(3,2).1: T2(4,4).1.S...T5(3,3) ..1:T6(1,1).D.S:T6(2,2).D.S.Y...:......" ........WELKE '.SHP' FILE";F$......".WEL K DEVICE 8...";DV.6.".. 1,DV,10,F$.".SH P,S,R".<.,.:.J.6..1,N%,AP%.\.;.. PN%(AP% ,15).}.@.. HP(N%,4),HC(N%,5),HS(N%,5)... J.:...T.. I.1 . N%...^.: . X.1 . 3...H.: : .1,HP(I,X)...R.: . X...|.: HP(I,4).1: HC(I,4).1: HS(I,4).1...... I.....:..... :...... I.1 . AP%.'...: .1,PN%(I,0): . # PUNTEN.>...: . X.1 . PN%(I,0).R.B.: : . 1,PN%(I,X).\.L.: . X.D.Q.. I.J.V.:.R... 1.X...:...... IN HP(.,.) STAAN DE HOEK PUNTEN.B.... IN PN%(Q,.) STAAT DAT DE PO LY...... Q BESTAAT UIT DE PUNTEN...... P N%(Q,1) T/M PN%(Q,PN%(Q,0)).'.... DEZE D IENEN ALS INDEX VOOR HP.-.&.:.3.0.:.`.:. . "...PUNT VAN HET OOG (X,Y,Z)";GX,GY,GZ ...D.. ".GEZICHTSCENTRUM 0,0,0......." ;MX,MY,MZ...N.:...S.."..EVEN GEDULD A.U. B."...X.:.S.B.. MAAK DE T-MATRICES:.Y.L. :...V.T1(4,1)..GX:T1(4,2)..GY:T1(4,3)..G Z.....:.(...YO.GY.MY: XO.GX.MX: ZO.GZ.MZ .Q.F.L1..(XO.XO.YO.YO): L2..(L1.L1.ZO.ZO ).W.P.:.P.Z.. MAAK DE T3-MATRIX:.V...:.. ...CT..YO.L1: SN..XO.L1.....T3(1,1).CT: T3(1,3)..SN.G...T3(3,1).SN: T3(3,3). CT. M...:...... MAAK DE T4-MATRIX:... .:...* .CF.L1.L2: SF.ZO.L2...4.T4(2,2).CF: T4(2 ,3).SF.:.>.T4(3,2)..SF: T4(3,3).CF.@.H.: .A.R.. MAAK DE N-MATRIX (SCHAAL):.G.\.:. ..Z.. ALLE MATRICES ZIJN NU BEKEND!..... . GA ZE NU VERMENIGVULDIGEN......:.V.... R.1 . 4: . K.1 . 4: E2(R,K).0...... P.1 . 4: E2(R,K).E2(R,K).T5(R,P).T6(P,K):. P,K,R.....:.7.... R.1 . 4: . K.1 . 4: E1 (R,K).0.N.... P.1 . 4: E1(R,K).E1(R,K).T 4(R,P).E2(P,K):. P,K,R.T.J.:...T.. R.1 . 4: . K.1 . 4: E2(R,K).0.O.... P.1 . 4: E2(R,K).E2(R,K).T3(R,P).E1(P,K):. P,K,R. U...:...... R.1 . 4: . K.1 . 4: E1(R,K). 0.0.... P.1 . 4: E1(R,K).E1(R,K).T2(R,P) .E2(P,K):. P,K,R.6...:.Z.... R.1 . 4: . K.1 . 4: E2(R,K).0...... P.1 . 4: E2(R,K ).E2(R,K).T1(R,P).E1(P,K):. P,K,R...$.. E2() IS DE COMPLETE MATRIX.....:.G.8.. P .1 . N%...B.: . Q.1 . 3: HC(P,Q).0: . Q. *.L.: . R.1 . 4: . K.1 . 4: HC(P,R).HC(P ,R).E2(K,R).HP(P,K): . K,R.I.V.. P: . HC MATRIX NU BEKEND.O.`.:.N.J.D. 0,3 : . WIS D. SCHERM.T.O.:...T.. L.1 . AP%...~ .: . W.1 . PN%(L,0).1.....: : . 1320: . CLIP HC MATRIX.....: : . HC(H0%,5).0 . H C(H1%,5).0 . 1230.....: : X1.SX.(X1.Z1). CX.....: : X2.SX.(X2.Z2).CX.4...: : Y1.S Y.(Y1.Z1).CY.M...: : Y2.SY.(Y2.Z2).CY.S. ..:.T.D.: : D. X1,200.Y1,X2,200.Y2,C...E .: : . PLOT EEN LIJN TUSSEN (X1,Y1)...F. : : . EN (X2,Y2) MET KLEUR C.E.I.: :.O. N.: . W.W.X.. L...... 570...........:... ... DIT CLIPPED DE HC MATRIX.-.... INDIE N HC(LIJN,5)=0 DAN IS.K.... DE LIJN NIE T ZICHTBAAR.Q...:.Q.(.H0%.PN%(L,W):H1%.P N%(L,W.1)...2.X1.HC(H0%,1):Y1.HC(H0%,2): Z1.HC(H0%,3).G.<.X2.HC(H1%,1):Y2.HC(H1%, 2):Z2.HC(H1%,3)...F.HC(H0%,5).1:HC(H1%,5 ).1...P.C%.0: . 1600: . 1660...Z.. C1%.0 . C2%.0 . ..G.D.. (C1% . C2%)..0 . HC(H 0%,5).0: HC(H1%,5).0: ..C.N.C%.C1%: . C% .0 . C%.C2%.|.X.. (C% . 2)..2 . 1440.... .T.(Z1.X1).((X1.X2).(Z2.Z1)).E...Z.T.(Z2 .Z1).Z1: X..Z: Y.T.(Y2.Y1).Y1.P.... 1550 ... .. (C% . 4)..4 . 1480.....T.(Z1.X1). ((X2.X1).(Z2.Z1)).1...Z.T.(Z2.Z1).Z1: X. Z: Y.T.(Y2.Y1).Y1.<.... 1550.U.H.. (C% . 8)..8 . 1520.U.R.T.(Z1.Y1).((Y1.Y2).(Z2 .Z1)).....Z.T.(Z2.Z1).Z1: Y..Z: X.T.(X2. X1).X1...... 1550.D.... (C% . 16)..16 . 1550.....T.(Z1.Y1).((Y2.Y1).(Z2.Z1)).... .Z.T.(Z2.Z1).Z1: Y.Z: X.T.(X2.X1).X1.<.. .. C%.C1% . X1.X: Y1.Y: Z1.Z: . 1600: . 1570.Y...X2.X: Y2.Y: Z2.Z: . 1660.D.".. 1370.J.,.:.P.6.:...@.C1%.0: . X1..Z1 . C 1%.2...J.. X1. Z1 . C1%.4...T.. Y1..Z1 . C1%.C1%.8.T.^.. Y1. Z1 . C1%.C1%.16.Z.H .....R.:...|.C2%.0: . X2..Z2 . C2%.2.... .. X2. Z2 . C2%.4.*.... Y2..Z2 . C2%.C2% .8.D.... Y2. Z2 . C2%.C2%.16.J.......
> CLICK IMAGE PREVIEW FOR FULL MODAL