STELLATION
FILE INFORMATION
FILENAME(S): STELLATION
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-19 22:49:24
APPEARS ON: 2 disk(s)
FILE HASH
394a62b1a2045e07e3ec37bef09f225a546267121c9ffce1b9ca56e9259b31e4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK NOV85 | STELLATION | PRG | Radd Maxx | 6 | 2 | DOWNLOAD FILE |
| ARNOLD | STELLATION | PRG | DuncanTwain | 20 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 0A 00 8F 20 22 53 54 45 4C 4C 41 54 |..P.... "STELLAT|
00000010: 49 4F 4E 22 20 44 52 41 57 20 41 20 53 4D 41 4C |ION" DRAW A SMAL|
00000020: 4C 20 53 54 45 4C 4C 41 54 45 44 20 44 4F 44 45 |L STELLATED DODE|
00000030: 43 41 48 45 44 52 4F 4E 20 49 4E 20 56 41 52 49 |CAHEDRON IN VARI|
00000040: 4F 55 53 20 4F 52 49 45 4E 54 41 54 49 4F 4E 53 |OUS ORIENTATIONS|
00000050: 00 84 08 14 00 8F 20 20 41 4E 44 20 53 54 59 4C |...... AND STYL|
00000060: 45 53 20 20 20 52 49 43 48 41 52 44 20 4C 2E 20 |ES RICHARD L. |
00000070: 52 59 4C 41 4E 44 45 52 20 20 20 20 20 31 32 2F |RYLANDER 12/|
00000080: 35 2F 38 34 00 8A 08 1E 00 3A 00 AB 08 28 00 47 |5/84.....:...(.G|
00000090: 52 B2 34 39 33 37 38 20 20 20 20 3A 8F 20 47 52 |R.49378 :. GR|
000000A0: 41 50 48 49 43 53 20 4D 4F 44 45 00 C8 08 32 00 |APHICS MODE...2.|
000000B0: 54 58 B2 34 39 34 31 31 20 20 20 20 3A 8F 20 54 |TX.49411 :. T|
000000C0: 45 58 54 20 4D 4F 44 45 00 E8 08 3C 00 42 4F B2 |EXT MODE...<.BO.|
000000D0: 35 33 32 38 30 20 20 20 20 3A 8F 20 42 4F 52 44 |53280 :. BORD|
000000E0: 45 52 20 43 4F 4C 4F 52 00 EE 08 46 00 3A 00 17 |ER COLOR...F.:..|
000000F0: 09 50 00 8F 20 20 49 4E 49 54 49 41 4C 49 5A 45 |.P.. INITIALIZE|
00000100: 20 41 20 46 45 57 20 53 54 59 4C 45 20 50 41 52 | A FEW STYLE PAR|
00000110: 41 4D 45 54 45 52 53 00 52 09 5A 00 97 20 38 33 |AMETERS.R.Z.. 83|
00000120: 39 2C 31 20 20 3A 8F 20 53 43 41 4C 45 20 28 33 |9,1 :. SCALE (3|
00000130: 3A 34 29 20 46 4F 52 20 55 4E 44 49 53 54 4F 52 |:4) FOR UNDISTOR|
00000140: 54 45 44 20 53 43 52 45 45 4E 20 44 49 53 50 4C |TED SCREEN DISPL|
00000150: 41 59 00 88 09 64 00 97 20 38 37 31 2C 30 20 3A |AY...d.. 871,0 :|
00000160: 8F 20 46 41 43 45 54 20 45 44 47 45 2F 4C 49 4E |. FACET EDGE/LIN|
00000170: 45 20 4D 4F 44 45 20 28 30 3D 44 52 41 57 2C 20 |E MODE (0=DRAW, |
00000180: 31 3D 45 52 41 53 45 29 00 BD 09 6E 00 53 48 B2 |1=ERASE)...n.SH.|
00000190: 38 33 38 20 20 20 20 20 3A 8F 20 53 48 41 44 45 |838 :. SHADE|
000001A0: 20 53 54 59 4C 45 20 28 30 3D 52 41 4E 44 4F 4D | STYLE (0=RANDOM|
000001B0: 2C 20 31 3D 48 41 4C 46 54 4F 4E 45 29 00 01 0A |, 1=HALFTONE)...|
000001C0: 78 00 45 47 B2 38 36 38 20 20 20 20 20 3A 8F 20 |x.EG.868 :. |
000001D0: 45 44 47 45 53 20 46 4C 41 47 20 28 30 3D 4E 4F |EDGES FLAG (0=NO|
000001E0: 52 4D 41 4C 2C 20 31 3D 41 44 44 20 4C 49 4E 45 |RMAL, 1=ADD LINE|
000001F0: 53 20 54 4F 20 46 41 43 45 54 20 45 44 47 45 53 |S TO FACET EDGES|
00000200: 29 00 07 0A 82 00 3A 00 22 0A 8C 00 8F 20 20 20 |).....:.".... |
00000210: 46 55 4E 43 54 49 4F 4E 20 4C 4F 43 41 54 49 4F |FUNCTION LOCATIO|
00000220: 4E 53 00 41 0A 96 00 43 4C B2 35 31 39 37 39 20 |NS.A...CL.51979 |
00000230: 20 20 3A 8F 20 43 4C 45 41 52 20 42 49 54 4D 41 | :. CLEAR BITMA|
00000240: 50 00 62 0A A0 00 43 4F B2 35 32 30 30 31 20 20 |P.b...CO.52001 |
00000250: 20 3A 8F 20 46 49 4C 4C 20 43 4F 4C 4F 52 20 4D | :. FILL COLOR M|
00000260: 41 50 00 88 0A AA 00 46 43 B2 35 32 30 35 32 20 |AP.....FC.52052 |
00000270: 20 20 3A 8F 20 44 52 41 57 20 41 20 53 48 41 44 | :. DRAW A SHAD|
00000280: 45 44 20 46 41 43 45 54 00 A8 0A B4 00 4B 53 B2 |ED FACET.....KS.|
00000290: 35 33 30 38 31 20 20 20 3A 8F 20 44 4F 20 4B 45 |53081 :. DO KE|
000002A0: 59 45 44 20 53 4F 52 54 00 AE 0A BE 00 3A 00 E7 |YED SORT.....:..|
000002B0: 0A C8 00 58 43 B2 31 36 30 3A 59 43 B2 31 32 30 |...XC.160:YC.120|
000002C0: 20 20 3A 8F 20 28 53 43 41 4C 45 44 29 20 53 43 | :. (SCALED) SC|
000002D0: 52 45 45 4E 20 43 45 4E 54 45 52 20 43 4F 4F 52 |REEN CENTER COOR|
000002E0: 44 49 4E 41 54 45 53 00 ED 0A D2 00 3A 00 1A 0B |DINATES.....:...|
000002F0: DC 00 99 22 93 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |...". *******|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 46 0B E6 00 99 |*********".F....|
00000320: 22 20 20 20 20 2A 20 53 4D 41 4C 4C 20 53 54 45 |" * SMALL STE|
00000330: 4C 4C 41 54 45 44 20 44 4F 44 45 43 41 48 45 44 |LLATED DODECAHED|
00000340: 52 4F 4E 20 2A 22 00 72 0B F0 00 99 22 20 20 20 |RON *".r...." |
00000350: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 22 00 92 0B FA 00 99 22 11 11 20 53 45 4C 45 |*"......".. SELE|
00000380: 43 54 20 53 48 41 44 49 4E 47 20 53 54 59 4C 45 |CT SHADING STYLE|
00000390: 3A 22 00 AF 0B 04 01 99 22 20 52 3D 52 41 4E 44 |:"......" R=RAND|
000003A0: 4F 4D 2C 20 48 3D 48 41 4C 46 54 4F 4E 45 22 00 |OM, H=HALFTONE".|
000003B0: CE 0B 0E 01 85 22 11 20 59 4F 55 52 20 43 48 4F |.....". YOUR CHO|
000003C0: 49 43 45 20 20 20 48 9D 9D 9D 22 3B 41 24 00 EB |ICE H...";A$..|
000003D0: 0B 18 01 97 20 53 48 2C 30 3A 8B 20 41 24 B2 22 |.... SH,0:. A$."|
000003E0: 48 22 20 A7 20 97 20 53 48 2C 31 00 0F 0C 22 01 |H" . . SH,1...".|
000003F0: 99 22 11 11 20 53 45 4C 45 43 54 20 53 54 59 4C |.".. SELECT STYL|
00000400: 45 20 46 4F 52 20 44 52 41 57 49 4E 47 3A 22 00 |E FOR DRAWING:".|
00000410: 3D 0C 2C 01 99 22 11 20 4E 20 2D 20 4E 4F 52 4D |=.,..". N - NORM|
00000420: 41 4C 22 3A 99 22 11 20 45 20 2D 20 45 44 47 45 |AL":.". E - EDGE|
00000430: 53 20 45 4D 50 48 41 53 49 5A 45 44 22 00 6C 0C |S EMPHASIZED".l.|
00000440: 36 01 99 22 11 20 57 20 2D 20 57 49 52 45 20 46 |6..". W - WIRE F|
00000450: 52 41 4D 45 20 28 48 49 44 44 45 4E 20 4C 49 4E |RAME (HIDDEN LIN|
00000460: 45 53 20 52 45 4D 4F 56 45 44 29 22 00 8B 0C 40 |ES REMOVED)"...@|
00000470: 01 85 22 11 20 59 4F 55 52 20 43 48 4F 49 43 45 |..". YOUR CHOICE|
00000480: 20 20 20 4E 9D 9D 9D 22 3B 41 24 00 AA 0C 4A 01 | N...";A$...J.|
00000490: 97 20 45 47 2C 30 3A 57 49 B2 30 3A 8B 20 41 24 |. EG,0:WI.0:. A$|
000004A0: B2 22 4E 22 20 A7 20 33 36 30 00 C6 0C 54 01 97 |."N" . 360...T..|
000004B0: 20 45 47 2C 31 3A 8B 20 41 24 B2 22 57 22 20 A7 | EG,1:. A$."W" .|
000004C0: 20 57 49 B2 AB 31 00 CC 0C 5E 01 3A 00 E9 0C 68 | WI..1...^.:...h|
000004D0: 01 99 22 11 20 52 45 41 44 49 4E 47 20 56 45 52 |..". READING VER|
000004E0: 54 45 58 20 44 41 54 41 22 00 1B 0D 72 01 56 4E |TEX DATA"...r.VN|
000004F0: B2 33 32 3A 86 20 50 25 28 56 4E AB 31 2C 32 29 |.32:. P%(VN.1,2)|
00000500: 3A 8F 20 20 56 4E 20 3D 20 4E 55 4D 42 45 52 20 |:. VN = NUMBER |
00000510: 4F 46 20 56 45 52 54 49 43 45 53 00 48 0D 7C 01 |OF VERTICES.H.|.|
00000520: 81 20 4E B2 30 20 A4 20 56 4E AB 31 3A 87 20 50 |. N.0 . VN.1:. P|
00000530: 25 28 4E 2C 30 29 2C 50 25 28 4E 2C 31 29 2C 50 |%(N,0),P%(N,1),P|
00000540: 25 28 4E 2C 32 29 3A 82 00 4E 0D 86 01 3A 00 7D |%(N,2):..N...:.}|
00000550: 0D 90 01 99 22 11 20 45 4E 54 45 52 20 58 2C 20 |....". ENTER X, |
00000560: 59 2C 20 41 4E 44 20 5A 20 41 4E 47 4C 45 53 20 |Y, AND Z ANGLES |
00000570: 46 4F 52 20 52 4F 54 41 54 49 4F 4E 22 00 9F 0D |FOR ROTATION"...|
00000580: 9A 01 99 22 20 20 20 20 20 20 20 28 41 4E 47 4C |..." (ANGL|
00000590: 45 53 20 49 4E 20 44 45 47 52 45 45 53 29 22 00 |ES IN DEGREES)".|
000005A0: AB 0D A4 01 85 20 58 2C 59 2C 5A 00 D2 0D AE 01 |..... X,Y,Z.....|
000005B0: 4A B2 33 2E 31 34 31 35 39 32 36 35 AD 31 38 30 |J.3.14159265.180|
000005C0: 3A 58 B2 58 AC 4A 3A 59 B2 59 AC 4A 3A 5A B2 5A |:X.X.J:Y.Y.J:Z.Z|
000005D0: AC 4A 00 0E 0E B8 01 58 30 B2 BE 28 59 29 AC BE |.J.....X0..(Y)..|
000005E0: 28 5A 29 AB BF 28 58 29 AC BF 28 59 29 AC BF 28 |(Z)..(X)..(Y)..(|
000005F0: 5A 29 3A 58 31 B2 BE 28 59 29 AC BF 28 5A 29 AA |Z):X1..(Y)..(Z).|
00000600: BF 28 58 29 AC BF 28 59 29 AC BE 28 5A 29 00 43 |.(X)..(Y)..(Z).C|
00000610: 0E C2 01 58 32 B2 AB BE 28 58 29 AC BF 28 59 29 |...X2...(X)..(Y)|
00000620: 3A 59 30 B2 AB BE 28 58 29 AC BF 28 5A 29 3A 59 |:Y0...(X)..(Z):Y|
00000630: 31 B2 BE 28 58 29 AC BE 28 5A 29 3A 59 32 B2 BF |1..(X)..(Z):Y2..|
00000640: 28 58 29 00 63 0E CC 01 5A 30 B2 BF 28 59 29 AC |(X).c...Z0..(Y).|
00000650: BE 28 5A 29 AA BF 28 58 29 AC BE 28 59 29 AC BF |.(Z)..(X)..(Y)..|
00000660: 28 5A 29 00 90 0E D6 01 5A 31 B2 BF 28 59 29 AC |(Z).....Z1..(Y).|
00000670: BF 28 5A 29 AB BF 28 58 29 AC BE 28 59 29 AC BE |.(Z)..(X)..(Y)..|
00000680: 28 5A 29 3A 5A 32 B2 BE 28 58 29 AC BE 28 59 29 |(Z):Z2..(X)..(Y)|
00000690: 00 AD 0E E0 01 99 22 11 20 50 45 52 46 4F 52 4D |......". PERFORM|
000006A0: 49 4E 47 20 52 4F 54 41 54 49 4F 4E 22 00 BE 0E |ING ROTATION"...|
000006B0: EA 01 81 20 4E B2 30 20 A4 20 56 4E AB 31 00 E0 |... N.0 . VN.1..|
000006C0: 0E F4 01 58 B2 50 25 28 4E 2C 30 29 3A 59 B2 50 |...X.P%(N,0):Y.P|
000006D0: 25 28 4E 2C 31 29 3A 5A B2 50 25 28 4E 2C 32 29 |%(N,1):Z.P%(N,2)|
000006E0: 00 2B 0F FE 01 50 25 28 4E 2C 30 29 B2 58 30 AC |.+...P%(N,0).X0.|
000006F0: 58 AA 58 31 AC 59 AA 58 32 AC 5A 3A 50 25 28 4E |X.X1.Y.X2.Z:P%(N|
00000700: 2C 31 29 B2 59 30 AC 58 AA 59 31 AC 59 AA 59 32 |,1).Y0.X.Y1.Y.Y2|
00000710: AC 5A 3A 50 25 28 4E 2C 32 29 B2 5A 30 AC 58 AA |.Z:P%(N,2).Z0.X.|
00000720: 5A 31 AC 59 AA 5A 32 AC 5A 3A 82 00 31 0F 08 02 |Z1.Y.Z2.Z:..1...|
00000730: 3A 00 56 0F 12 02 46 41 B2 36 30 3A 20 8F 20 20 |:.V...FA.60: . |
00000740: 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 20 |TOTAL NUMBER OF |
00000750: 46 41 43 45 54 53 00 82 0F 1C 02 86 20 46 25 28 |FACETS...... F%(|
00000760: 46 41 AD 32 2C 32 29 2C 53 48 28 46 41 AD 32 29 |FA.2,2),SH(FA.2)|
00000770: 2C 5A 25 28 46 41 AD 32 29 2C 4B 25 28 46 41 AD |,Z%(FA.2),K%(FA.|
00000780: 32 29 00 AE 0F 26 02 99 22 20 52 45 41 44 49 4E |2)...&.." READIN|
00000790: 47 20 43 4F 4E 4E 45 43 54 49 4F 4E 20 44 41 54 |G CONNECTION DAT|
000007A0: 41 20 20 20 20 20 20 20 20 20 20 20 20 22 00 D2 |A "..|
000007B0: 0F 30 02 56 46 B2 AB 31 3A 20 8F 20 20 56 46 20 |.0.VF..1: . VF |
000007C0: 3D 20 23 20 56 49 53 49 42 4C 45 20 46 41 43 45 |= # VISIBLE FACE|
000007D0: 54 53 00 E1 0F 3A 02 81 20 4E B2 31 20 A4 20 46 |TS...:.. N.1 . F|
000007E0: 41 00 ED 0F 44 02 56 46 B2 56 46 AA 31 00 09 10 |A...D.VF.VF.1...|
000007F0: 4E 02 81 20 49 B2 30 20 A4 20 32 20 3A 87 20 46 |N.. I.0 . 2 :. F|
00000800: 25 28 56 46 2C 49 29 3A 82 00 4E 10 58 02 8F 20 |%(VF,I):..N.X.. |
00000810: 20 43 41 4C 43 55 4C 41 54 45 20 43 4F 4D 50 4F | CALCULATE COMPO|
00000820: 4E 45 4E 54 53 20 4F 46 20 4E 4F 52 4D 41 4C 20 |NENTS OF NORMAL |
00000830: 56 45 43 54 4F 52 20 54 4F 20 44 45 54 45 52 4D |VECTOR TO DETERM|
00000840: 49 4E 45 20 56 49 53 49 42 49 4C 49 54 59 00 94 |INE VISIBILITY..|
00000850: 10 62 02 5A B2 28 50 25 28 46 25 28 56 46 2C 32 |.b.Z.(P%(F%(VF,2|
00000860: 29 2C 30 29 AB 50 25 28 46 25 28 56 46 2C 31 29 |),0).P%(F%(VF,1)|
00000870: 2C 30 29 29 AC 28 50 25 28 46 25 28 56 46 2C 30 |,0)).(P%(F%(VF,0|
00000880: 29 2C 31 29 AB 50 25 28 46 25 28 56 46 2C 31 29 |),1).P%(F%(VF,1)|
00000890: 2C 31 29 29 00 DC 10 6C 02 5A B2 5A AB 28 50 25 |,1))...l.Z.Z.(P%|
000008A0: 28 46 25 28 56 46 2C 30 29 2C 30 29 AB 50 25 28 |(F%(VF,0),0).P%(|
000008B0: 46 25 28 56 46 2C 31 29 2C 30 29 29 AC 28 50 25 |F%(VF,1),0)).(P%|
000008C0: 28 46 25 28 56 46 2C 32 29 2C 31 29 AB 50 25 28 |(F%(VF,2),1).P%(|
000008D0: 46 25 28 56 46 2C 31 29 2C 31 29 29 00 09 11 76 |F%(VF,1),1))...v|
000008E0: 02 8B 20 5A B2 B3 30 20 A7 20 37 32 30 3A 8F 20 |.. Z..0 . 720:. |
000008F0: 20 46 41 43 45 54 20 4E 4F 54 20 56 49 53 49 42 | FACET NOT VISIB|
00000900: 4C 45 2C 20 47 4F 20 4F 4E 00 4F 11 80 02 58 B2 |LE, GO ON.O...X.|
00000910: 28 50 25 28 46 25 28 56 46 2C 32 29 2C 31 29 AB |(P%(F%(VF,2),1).|
00000920: 50 25 28 46 25 28 56 46 2C 31 29 2C 31 29 29 AC |P%(F%(VF,1),1)).|
00000930: 28 50 25 28 46 25 28 56 46 2C 30 29 2C 32 29 AB |(P%(F%(VF,0),2).|
00000940: 50 25 28 46 25 28 56 46 2C 31 29 2C 32 29 29 00 |P%(F%(VF,1),2)).|
00000950: 97 11 8A 02 58 B2 58 AB 28 50 25 28 46 25 28 56 |....X.X.(P%(F%(V|
00000960: 46 2C 30 29 2C 31 29 AB 50 25 28 46 25 28 56 46 |F,0),1).P%(F%(VF|
00000970: 2C 31 29 2C 31 29 29 AC 28 50 25 28 46 25 28 56 |,1),1)).(P%(F%(V|
00000980: 46 2C 32 29 2C 32 29 AB 50 25 28 46 25 28 56 46 |F,2),2).P%(F%(VF|
00000990: 2C 31 29 2C 32 29 29 00 DD 11 94 02 59 B2 28 50 |,1),2)).....Y.(P|
000009A0: 25 28 46 25 28 56 46 2C 32 29 2C 32 29 AB 50 25 |%(F%(VF,2),2).P%|
000009B0: 28 46 25 28 56 46 2C 31 29 2C 32 29 29 AC 28 50 |(F%(VF,1),2)).(P|
000009C0: 25 28 46 25 28 56 46 2C 30 29 2C 30 29 AB 50 25 |%(F%(VF,0),0).P%|
000009D0: 28 46 25 28 56 46 2C 31 29 2C 30 29 29 00 25 12 |(F%(VF,1),0)).%.|
000009E0: 9E 02 59 B2 59 AB 28 50 25 28 46 25 28 56 46 2C |..Y.Y.(P%(F%(VF,|
000009F0: 30 29 2C 32 29 AB 50 25 28 46 25 28 56 46 2C 31 |0),2).P%(F%(VF,1|
00000A00: 29 2C 32 29 29 AC 28 50 25 28 46 25 28 56 46 2C |),2)).(P%(F%(VF,|
00000A10: 32 29 2C 30 29 AB 50 25 28 46 25 28 56 46 2C 31 |2),0).P%(F%(VF,1|
00000A20: 29 2C 30 29 29 00 56 12 A8 02 4E 43 B2 BA 28 58 |),0)).V...NC..(X|
00000A30: AC 58 AA 59 AC 59 AA 5A AC 5A 29 3A 8F 20 20 4C |.X.Y.Y.Z.Z):. L|
00000A40: 45 4E 47 54 48 20 4F 46 20 4E 4F 52 4D 41 4C 20 |ENGTH OF NORMAL |
00000A50: 56 45 43 54 4F 52 00 71 12 B2 02 53 48 28 56 46 |VECTOR.q...SH(VF|
00000A60: 29 B2 32 36 AC 28 32 AC 5A AA 58 AA 59 29 AD 4E |).26.(2.Z.X.Y).N|
00000A70: 43 00 B0 12 BC 02 53 48 28 56 46 29 B2 28 53 48 |C.....SH(VF).(SH|
00000A80: 28 56 46 29 AA 36 34 29 AC 28 53 48 28 56 46 29 |(VF).64).(SH(VF)|
00000A90: AA 36 34 29 AD 32 35 36 3A 8F 20 52 41 49 53 45 |.64).256:. RAISE|
00000AA0: 44 20 43 4F 53 49 4E 45 20 53 48 41 44 49 4E 47 |D COSINE SHADING|
00000AB0: 00 BA 12 C6 02 89 20 37 33 30 00 C6 12 D0 02 56 |...... 730.....V|
00000AC0: 46 B2 56 46 AB 31 00 CC 12 DA 02 82 00 D2 12 E4 |F.VF.1..........|
00000AD0: 02 3A 00 F2 12 EE 02 99 22 20 53 43 41 4C 49 4E |.:......" SCALIN|
00000AE0: 47 20 54 4F 20 44 49 53 50 4C 41 59 20 53 49 5A |G TO DISPLAY SIZ|
00000AF0: 45 22 00 25 13 F8 02 59 B2 30 3A 81 20 4E B2 30 |E".%...Y.0:. N.0|
00000B00: 20 A4 20 56 4E AB 31 3A 8B 20 B6 28 50 25 28 4E | . VN.1:. .(P%(N|
00000B10: 2C 31 29 29 B1 59 20 A7 20 59 B2 B6 28 50 25 28 |,1)).Y . Y..(P%(|
00000B20: 4E 2C 31 29 29 00 33 13 02 03 82 3A 53 B2 31 31 |N,1)).3....:S.11|
00000B30: 39 AD 59 00 70 13 0C 03 81 20 4E B2 30 20 A4 20 |9.Y.p.... N.0 . |
00000B40: 56 4E AB 31 3A 50 25 28 4E 2C 31 29 B2 53 AC 50 |VN.1:P%(N,1).S.P|
00000B50: 25 28 4E 2C 31 29 AA 59 43 3A 50 25 28 4E 2C 30 |%(N,1).YC:P%(N,0|
00000B60: 29 B2 53 AC 50 25 28 4E 2C 30 29 AA 58 43 3A 82 |).S.P%(N,0).XC:.|
00000B70: 00 76 13 16 03 3A 00 9A 13 20 03 8F 20 46 49 4E |.v...:... .. FIN|
00000B80: 44 20 41 56 45 52 41 47 45 20 5A 20 46 4F 52 20 |D AVERAGE Z FOR |
00000B90: 45 41 43 48 20 46 41 43 45 54 00 A9 13 2A 03 81 |EACH FACET...*..|
00000BA0: 20 4E B2 30 20 A4 20 56 46 00 E3 13 34 03 5A 25 | N.0 . VF...4.Z%|
00000BB0: 28 4E 29 B2 28 50 25 28 46 25 28 4E 2C 30 29 2C |(N).(P%(F%(N,0),|
00000BC0: 32 29 AA 50 25 28 46 25 28 4E 2C 31 29 2C 32 29 |2).P%(F%(N,1),2)|
00000BD0: AA 50 25 28 46 25 28 4E 2C 32 29 2C 32 29 29 AD |.P%(F%(N,2),2)).|
00000BE0: 33 3A 82 00 E9 13 3E 03 3A 00 16 14 48 03 99 22 |3:....>.:...H.."|
00000BF0: 20 53 4F 52 54 49 4E 47 20 46 41 43 45 54 53 20 | SORTING FACETS |
00000C00: 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 41 56 47 |ACCORDING TO AVG|
00000C10: 20 27 5A 27 20 22 00 23 14 52 03 97 20 31 34 30 | 'Z' ".#.R.. 140|
00000C20: 2C 56 46 00 4B 14 5C 03 4B 25 28 30 29 B2 4B 25 |,VF.K.\.K%(0).K%|
00000C30: 28 30 29 3A 97 20 32 35 31 2C C2 28 37 31 29 3A |(0):. 251,.(71):|
00000C40: 97 20 32 35 32 2C C2 28 37 32 29 00 73 14 66 03 |. 252,.(72).s.f.|
00000C50: 5A 25 28 30 29 B2 5A 25 28 30 29 3A 97 20 32 35 |Z%(0).Z%(0):. 25|
00000C60: 33 2C C2 28 37 31 29 3A 97 20 32 35 34 2C C2 28 |3,.(71):. 254,.(|
00000C70: 37 32 29 00 7D 14 70 03 9E 28 4B 53 29 00 83 14 |72).}.p..(KS)...|
00000C80: 7A 03 3A 00 BD 14 84 03 8F 20 44 52 41 57 20 46 |z.:...... DRAW F|
00000C90: 41 43 45 54 53 20 28 41 43 43 4F 52 44 49 4E 47 |ACETS (ACCORDING|
00000CA0: 20 54 4F 20 5A 20 44 45 50 54 48 20 53 49 4E 43 | TO Z DEPTH SINC|
00000CB0: 45 20 4E 4F 54 20 43 4F 4E 56 45 58 29 00 DA 14 |E NOT CONVEX)...|
00000CC0: 8E 03 9E 28 47 52 29 3A 9E 28 43 4F 29 3A 9E 28 |...(GR):.(CO):.(|
00000CD0: 43 4C 29 3A 97 20 42 4F 2C 31 00 F2 14 98 03 81 |CL):. BO,1......|
00000CE0: 20 4E B2 30 20 A4 20 56 46 3A 46 41 B2 4B 25 28 | N.0 . VF:FA.K%(|
00000CF0: 4E 29 00 07 15 A2 03 8B 20 57 49 20 A7 20 53 48 |N)...... WI . SH|
00000D00: 28 46 41 29 B2 36 34 00 53 15 AC 03 58 30 B2 50 |(FA).64.S...X0.P|
00000D10: 25 28 46 25 28 46 41 2C 30 29 2C 30 29 3A 59 30 |%(F%(FA,0),0):Y0|
00000D20: B2 50 25 28 46 25 28 46 41 2C 30 29 2C 31 29 3A |.P%(F%(FA,0),1):|
00000D30: 58 31 B2 50 25 28 46 25 28 46 41 2C 31 29 2C 30 |X1.P%(F%(FA,1),0|
00000D40: 29 3A 59 31 B2 50 25 28 46 25 28 46 41 2C 31 29 |):Y1.P%(F%(FA,1)|
00000D50: 2C 31 29 00 7B 15 B6 03 58 32 B2 50 25 28 46 25 |,1).{...X2.P%(F%|
00000D60: 28 46 41 2C 32 29 2C 30 29 3A 59 32 B2 50 25 28 |(FA,2),0):Y2.P%(|
00000D70: 46 25 28 46 41 2C 32 29 2C 31 29 00 9E 15 C0 03 |F%(FA,2),1).....|
00000D80: 9E 28 46 43 29 2C 58 30 2C 59 30 2C 58 31 2C 59 |.(FC),X0,Y0,X1,Y|
00000D90: 31 2C 58 32 2C 59 32 2C 53 48 28 46 41 29 00 A4 |1,X2,Y2,SH(FA)..|
00000DA0: 15 CA 03 82 00 AF 15 D4 03 97 31 39 38 2C 30 00 |..........198,0.|
00000DB0: C6 15 DE 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |..... A$:. A$.""|
00000DC0: 20 A7 20 39 39 30 00 DA 15 E8 03 9E 28 54 58 29 | . 990......(TX)|
00000DD0: 3A 97 20 42 4F 2C 31 34 3A 80 00 E0 15 F2 03 3A |:. BO,14:......:|
00000DE0: 00 F7 15 FC 03 8F 20 20 20 20 20 20 56 45 52 54 |...... VERT|
00000DF0: 45 58 20 44 41 54 41 00 30 16 06 04 83 20 31 30 |EX DATA.0.... 10|
00000E00: 30 30 2C 36 31 38 2C 30 2C 20 31 30 30 30 2C 2D |00,618,0, 1000,-|
00000E10: 36 31 38 2C 30 2C 20 2D 31 30 30 30 2C 36 31 38 |618,0, -1000,618|
00000E20: 2C 30 2C 20 2D 31 30 30 30 2C 2D 36 31 38 2C 30 |,0, -1000,-618,0|
00000E30: 00 69 16 10 04 83 20 30 2C 31 30 30 30 2C 36 31 |.i.... 0,1000,61|
00000E40: 38 2C 20 30 2C 31 30 30 30 2C 2D 36 31 38 2C 20 |8, 0,1000,-618, |
00000E50: 30 2C 2D 31 30 30 30 2C 36 31 38 2C 20 30 2C 2D |0,-1000,618, 0,-|
00000E60: 31 30 30 30 2C 2D 36 31 38 00 A2 16 1A 04 83 20 |1000,-618...... |
00000E70: 36 31 38 2C 30 2C 31 30 30 30 2C 20 2D 36 31 38 |618,0,1000, -618|
00000E80: 2C 30 2C 31 30 30 30 2C 20 36 31 38 2C 30 2C 2D |,0,1000, 618,0,-|
00000E90: 31 30 30 30 2C 20 2D 36 31 38 2C 30 2C 2D 31 30 |1000, -618,0,-10|
00000EA0: 30 30 00 D7 16 24 04 83 20 36 31 38 2C 30 2C 32 |00...$.. 618,0,2|
00000EB0: 33 36 2C 20 36 31 38 2C 30 2C 2D 32 33 36 2C 20 |36, 618,0,-236, |
00000EC0: 2D 36 31 38 2C 30 2C 32 33 36 2C 20 2D 36 31 38 |-618,0,236, -618|
00000ED0: 2C 30 2C 2D 32 33 36 00 0C 17 2E 04 83 20 32 33 |,0,-236...... 23|
00000EE0: 36 2C 36 31 38 2C 30 2C 20 2D 32 33 36 2C 36 31 |6,618,0, -236,61|
00000EF0: 38 2C 30 2C 20 32 33 36 2C 2D 36 31 38 2C 30 2C |8,0, 236,-618,0,|
00000F00: 20 2D 32 33 36 2C 2D 36 31 38 2C 30 00 41 17 38 | -236,-618,0.A.8|
00000F10: 04 83 20 30 2C 32 33 36 2C 36 31 38 2C 20 30 2C |.. 0,236,618, 0,|
00000F20: 2D 32 33 36 2C 36 31 38 2C 20 30 2C 32 33 36 2C |-236,618, 0,236,|
00000F30: 2D 36 31 38 2C 20 30 2C 2D 32 33 36 2C 2D 36 31 |-618, 0,-236,-61|
00000F40: 38 00 7E 17 42 04 83 20 33 38 32 2C 33 38 32 2C |8.~.B.. 382,382,|
00000F50: 33 38 32 2C 20 33 38 32 2C 33 38 32 2C 2D 33 38 |382, 382,382,-38|
00000F60: 32 2C 20 33 38 32 2C 2D 33 38 32 2C 33 38 32 2C |2, 382,-382,382,|
00000F70: 20 33 38 32 2C 2D 33 38 32 2C 2D 33 38 32 00 BF | 382,-382,-382..|
00000F80: 17 4C 04 83 20 2D 33 38 32 2C 33 38 32 2C 33 38 |.L.. -382,382,38|
00000F90: 32 2C 20 2D 33 38 32 2C 33 38 32 2C 2D 33 38 32 |2, -382,382,-382|
00000FA0: 2C 20 2D 33 38 32 2C 2D 33 38 32 2C 33 38 32 2C |, -382,-382,382,|
00000FB0: 20 2D 33 38 32 2C 2D 33 38 32 2C 2D 33 38 32 00 | -382,-382,-382.|
00000FC0: C5 17 56 04 3A 00 DE 17 60 04 8F 20 20 20 20 43 |..V.:...`.. C|
00000FD0: 4F 4E 4E 45 43 54 49 4F 4E 20 44 41 54 41 00 10 |ONNECTION DATA..|
00000FE0: 18 6A 04 83 20 30 2C 31 32 2C 31 33 2C 20 30 2C |.j.. 0,12,13, 0,|
00000FF0: 31 33 2C 32 35 2C 20 30 2C 32 35 2C 31 36 2C 20 |13,25, 0,25,16, |
00001000: 30 2C 31 36 2C 32 34 2C 20 30 2C 32 34 2C 31 32 |0,16,24, 0,24,12|
00001010: 00 42 18 74 04 83 20 31 2C 31 32 2C 32 36 2C 20 |.B.t.. 1,12,26, |
00001020: 31 2C 32 36 2C 31 38 2C 20 31 2C 31 38 2C 32 37 |1,26,18, 1,18,27|
00001030: 2C 20 31 2C 32 37 2C 31 33 2C 20 31 2C 31 33 2C |, 1,27,13, 1,13,|
00001040: 31 32 00 74 18 7E 04 83 20 32 2C 31 35 2C 31 34 |12.t.~.. 2,15,14|
00001050: 2C 20 32 2C 31 34 2C 32 38 2C 20 32 2C 32 38 2C |, 2,14,28, 2,28,|
00001060: 31 37 2C 20 32 2C 31 37 2C 32 39 2C 20 32 2C 32 |17, 2,17,29, 2,2|
00001070: 39 2C 31 35 00 A6 18 88 04 83 20 33 2C 31 34 2C |9,15...... 3,14,|
00001080: 31 35 2C 20 33 2C 31 35 2C 33 31 2C 20 33 2C 33 |15, 3,15,31, 3,3|
00001090: 31 2C 31 39 2C 20 33 2C 31 39 2C 33 30 2C 20 33 |1,19, 3,19,30, 3|
000010A0: 2C 33 30 2C 31 34 00 D8 18 92 04 83 20 34 2C 31 |,30,14...... 4,1|
000010B0: 36 2C 31 37 2C 20 34 2C 31 37 2C 32 38 2C 20 34 |6,17, 4,17,28, 4|
000010C0: 2C 32 38 2C 32 30 2C 20 34 2C 32 30 2C 32 34 2C |,28,20, 4,20,24,|
000010D0: 20 34 2C 32 34 2C 31 36 00 0A 19 9C 04 83 20 35 | 4,24,16...... 5|
000010E0: 2C 31 37 2C 31 36 2C 20 35 2C 31 36 2C 32 35 2C |,17,16, 5,16,25,|
000010F0: 20 35 2C 32 35 2C 32 32 2C 20 35 2C 32 32 2C 32 | 5,25,22, 5,22,2|
00001100: 39 2C 20 35 2C 32 39 2C 31 37 00 3C 19 A6 04 83 |9, 5,29,17.<....|
00001110: 20 36 2C 31 39 2C 31 38 2C 20 36 2C 31 38 2C 32 | 6,19,18, 6,18,2|
00001120: 36 2C 20 36 2C 32 36 2C 32 31 2C 20 36 2C 32 31 |6, 6,26,21, 6,21|
00001130: 2C 33 30 2C 20 36 2C 33 30 2C 31 39 00 6E 19 B0 |,30, 6,30,19.n..|
00001140: 04 83 20 37 2C 31 38 2C 31 39 2C 20 37 2C 31 39 |.. 7,18,19, 7,19|
00001150: 2C 33 31 2C 20 37 2C 33 31 2C 32 33 2C 20 37 2C |,31, 7,31,23, 7,|
00001160: 32 33 2C 32 37 2C 20 37 2C 32 37 2C 31 38 00 A0 |23,27, 7,27,18..|
00001170: 19 BA 04 83 20 38 2C 32 30 2C 32 31 2C 20 38 2C |.... 8,20,21, 8,|
00001180: 32 31 2C 32 36 2C 20 38 2C 32 36 2C 31 32 2C 20 |21,26, 8,26,12, |
00001190: 38 2C 31 32 2C 32 34 2C 20 38 2C 32 34 2C 32 30 |8,12,24, 8,24,20|
000011A0: 00 D2 19 C4 04 83 20 39 2C 32 31 2C 32 30 2C 20 |...... 9,21,20, |
000011B0: 39 2C 32 30 2C 32 38 2C 20 39 2C 32 38 2C 31 34 |9,20,28, 9,28,14|
000011C0: 2C 20 39 2C 31 34 2C 33 30 2C 20 39 2C 33 30 2C |, 9,14,30, 9,30,|
000011D0: 32 31 00 09 1A CE 04 83 20 31 30 2C 32 33 2C 32 |21...... 10,23,2|
000011E0: 32 2C 20 31 30 2C 32 32 2C 32 35 2C 20 31 30 2C |2, 10,22,25, 10,|
000011F0: 32 35 2C 31 33 2C 20 31 30 2C 31 33 2C 32 37 2C |25,13, 10,13,27,|
00001200: 20 31 30 2C 32 37 2C 32 33 00 40 1A D8 04 83 20 | 10,27,23.@.... |
00001210: 31 31 2C 32 32 2C 32 33 2C 20 31 31 2C 32 33 2C |11,22,23, 11,23,|
00001220: 33 31 2C 20 31 31 2C 33 31 2C 31 35 2C 20 31 31 |31, 11,31,15, 11|
00001230: 2C 31 35 2C 32 39 2C 20 31 31 2C 32 39 2C 32 32 |,15,29, 11,29,22|
00001240: 00 00 00 |... |
..P.... "STELLATION" DRAW A SMALL STELLA
TED DODECAHEDRON IN VARIOUS ORIENTATIONS
...... AND STYLES RICHARD L. RYLANDER
12/5/84.....:...(.GR.49378 :. GR
APHICS MODE.H.2.TX.49411 :. TEXT MODE
...<.BO.53280 :. BORDER COLOR...F.:..
.P.. INITIALIZE A FEW STYLE PARAMETERS.
R.Z.. 839,1 :. SCALE (3:4) FOR UNDISTOR
TED SCREEN DISPLAY...D.. 871,0 :. FACET
EDGE/LINE MODE (0=DRAW, 1=ERASE)...N.SH.
838 :. SHADE STYLE (0=RANDOM, 1=HALF
TONE)...X.EG.868 :. EDGES FLAG (0=NO
RMAL, 1=ADD LINES TO FACET EDGES).....:.
".... FUNCTION LOCATIONS.A...CL.51979
:. CLEAR BITMAP.B. .CO.52001 :. FILL
COLOR MAP.....FC.52052 :. DRAW A SHAD
ED FACET.....KS.53081 :. DO KEYED SORT
.....:...H.XC.160:YC.120 :. (SCALED) SC
REEN CENTER COORDINATES...R.:......".
********************************".F....
" * SMALL STELLATED DODECAHEDRON *".R
...." *******************************
*"......".. SELECT SHADING STYLE:"......
" R=RANDOM, H=HALFTONE".N....". YOUR CHO
ICE H...";A$...... SH,0:. A$."H" . . S
H,1..."..".. SELECT STYLE FOR DRAWING:".
=.,..". N - NORMAL":.". E - EDGES EMPHAS
IZED".L.6..". W - WIRE FRAME (HIDDEN LIN
ES REMOVED)"...@..". YOUR CHOICE N..."
;A$...J.. EG,0:WI.0:. A$."N" . 360.F.T..
EG,1:. A$."W" . WI..1.L.^.:...H..". REA
DING VERTEX DATA"...R.VN.32:. P%(VN.1,2)
:. VN = NUMBER OF VERTICES.H.|.. N.0 .
VN.1:. P%(N,0),P%(N,1),P%(N,2):..N...:.}
....". ENTER X, Y, AND Z ANGLES FOR ROTA
TION"......" (ANGLES IN DEGREES)".
..... X,Y,Z.R...J.3.14159265.180:X.X.J:Y
.Y.J:Z.Z.J.....X0..(Y)..(Z)..(X)..(Y)..(
Z):X1..(Y)..(Z)..(X)..(Y)..(Z).C.B.X2...
(X)..(Y):Y0...(X)..(Z):Y1..(X)..(Z):Y2..
(X).C.L.Z0..(Y)..(Z)..(X)..(Y)..(Z)...V.
Z1..(Y)..(Z)..(X)..(Y)..(Z):Z2..(X)..(Y)
......". PERFORMING ROTATION"...... N.0
. VN.1.....X.P%(N,0):Y.P%(N,1):Z.P%(N,2)
.+...P%(N,0).X0.X.X1.Y.X2.Z:P%(N,1).Y0.X
.Y1.Y.Y2.Z:P%(N,2).Z0.X.Z1.Y.Z2.Z:..1...
:.V...FA.60: . TOTAL NUMBER OF FACETS..
.... F%(FA.2,2),SH(FA.2),Z%(FA.2),K%(FA.
2)...&.." READING CONNECTION DATA
".R.0.VF..1: . VF = # VISIBLE FACE
TS...:.. N.1 . FA...D.VF.VF.1...N.. I.0
. 2 :. F%(VF,I):..N.X.. CALCULATE COMPO
NENTS OF NORMAL VECTOR TO DETERMINE VISI
BILITY...B.Z.(P%(F%(VF,2),0).P%(F%(VF,1)
,0)).(P%(F%(VF,0),1).P%(F%(VF,1),1))...L
.Z.Z.(P%(F%(VF,0),0).P%(F%(VF,1),0)).(P%
(F%(VF,2),1).P%(F%(VF,1),1))...V.. Z..0
. 720:. FACET NOT VISIBLE, GO ON.O...X.
(P%(F%(VF,2),1).P%(F%(VF,1),1)).(P%(F%(V
F,0),2).P%(F%(VF,1),2)).....X.X.(P%(F%(V
F,0),1).P%(F%(VF,1),1)).(P%(F%(VF,2),2).
P%(F%(VF,1),2)).....Y.(P%(F%(VF,2),2).P%
(F%(VF,1),2)).(P%(F%(VF,0),0).P%(F%(VF,1
),0)).%...Y.Y.(P%(F%(VF,0),2).P%(F%(VF,1
),2)).(P%(F%(VF,2),0).P%(F%(VF,1),0)).V.
..NC..(X.X.Y.Y.Z.Z):. LENGTH OF NORMAL
VECTOR.Q...SH(VF).26.(2.Z.X.Y).NC.....SH
(VF).(SH(VF).64).(SH(VF).64).256:. RAISE
D COSINE SHADING...F.. 730.F.P.VF.VF.1.L
.Z...R...:......" SCALING TO DISPLAY SIZ
E".%...Y.0:. N.0 . VN.1:. .(P%(N,1)).Y .
Y..(P%(N,1)).3....:S.119.Y.P.... N.0 .
VN.1:P%(N,1).S.P%(N,1).YC:P%(N,0).S.P%(N
,0).XC:..V...:... .. FIND AVERAGE Z FOR
EACH FACET...*.. N.0 . VF...4.Z%(N).(P%(
F%(N,0),2).P%(F%(N,1),2).P%(F%(N,2),2)).
3:....>.:...H.." SORTING FACETS ACCORDIN
G TO AVG 'Z' ".#.R.. 140,VF.K.\.K%(0).K%
(0):. 251,B(71):. 252,B(72).S.F.Z%(0).Z%
(0):. 253,B(71):. 254,B(72).}.P..(KS)...
Z.:...... DRAW FACETS (ACCORDING TO Z DE
PTH SINCE NOT CONVEX).Z....(GR):.(CO):.(
CL):. BO,1...... N.0 . VF:FA.K%(N)......
WI . SH(FA).64.S...X0.P%(F%(FA,0),0):Y0
.P%(F%(FA,0),1):X1.P%(F%(FA,1),0):Y1.P%(
F%(FA,1),1).{...X2.P%(F%(FA,2),0):Y2.P%(
F%(FA,2),1)......(FC),X0,Y0,X1,Y1,X2,Y2,
SH(FA)...J.....T..198,0.F.... A$:. A$.""
. 990.Z....(TX):. BO,14:......:......
VERTEX DATA.0.... 1000,618,0, 1000,-
618,0, -1000,618,0, -1000,-618,0.I.... 0
,1000,618, 0,1000,-618, 0,-1000,618, 0,-
1000,-618...... 618,0,1000, -618,0,1000,
618,0,-1000, -618,0,-1000.W.$.. 618,0,2
36, 618,0,-236, -618,0,236, -618,0,-236.
..... 236,618,0, -236,618,0, 236,-618,0,
-236,-618,0.A.8.. 0,236,618, 0,-236,618
, 0,236,-618, 0,-236,-618.~.B.. 382,382,
382, 382,382,-382, 382,-382,382, 382,-38
2,-382...L.. -382,382,382, -382,382,-382
, -382,-382,382, -382,-382,-382.E.V.:...
`.. CONNECTION DATA...J.. 0,12,13, 0,
13,25, 0,25,16, 0,16,24, 0,24,12.B.T.. 1
,12,26, 1,26,18, 1,18,27, 1,27,13, 1,13,
12.T.~.. 2,15,14, 2,14,28, 2,28,17, 2,17
,29, 2,29,15...... 3,14,15, 3,15,31, 3,3
1,19, 3,19,30, 3,30,14.X.... 4,16,17, 4,
17,28, 4,28,20, 4,20,24, 4,24,16...... 5
,17,16, 5,16,25, 5,25,22, 5,22,29, 5,29,
17.<.... 6,19,18, 6,18,26, 6,26,21, 6,21
,30, 6,30,19.N.... 7,18,19, 7,19,31, 7,3
1,23, 7,23,27, 7,27,18. .... 8,20,21, 8,
21,26, 8,26,12, 8,12,24, 8,24,20.R.D.. 9
,21,20, 9,20,28, 9,28,14, 9,14,30, 9,30,
21...N.. 10,23,22, 10,22,25, 10,25,13, 1
0,13,27, 10,27,23.@.X.. 11,22,23, 11,23,
31, 11,31,15, 11,15,29, 11,29,22...
> CLICK IMAGE PREVIEW FOR FULL MODAL