Metropoli BBS
VIEWER: 09950fan.gsm MODE: BINARY (HEX)
==============================================================================================================================================
OFFSET    00 01 02 03 04 05 06 07  08 09 0A 0B 0C 0D 0E 0F  10 11 12 13 14 15 16 17  18 19 1A 1B 1C 1D 1E 1F
----------------------------------------------------------------------------------------------------------------------------------------------
00000000  00 6B 52 00 00 00 C0 00  00 00 12 01 00 00 B6 00  00 00 C8 01 00 00 03 00  00 00 CB 01 00 00 3F 01  .kR..................?
00000020  00 00 0A 03 00 00 B0 00  00 00 BA 03 00 00 00 00  00 00 17 30 39 39 35 30  46 41 4E 20 46 61 6E 67  .............09950FAN Fang
00000040  72 69 6C 6C 65 20 31 38  30 B0 00 DC 00 00 00 E9  00 ED 04 00 00 00 00 00  03 00 00 00 00 00 1E 16  rille 180....Θ.φ..........
00000060  6A BF A9 13 50 BC 1E 16  6A 3F 00 00 00 00 78 00  00 00 78 00 00 00 78 00  00 00 90 00 00 00 90 00  jPj?....x...x...x...É...É.
00000080  00 00 08 01 00 00 00 00  00 00 00 00 1E 16 6A 3F  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  ..........j?.....        ..
000000A0  08 01 00 00 00 00 00 00  00 00 1E 16 6A BF 00 00  00 00 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  ........j.....        ..
000000C0  00 00 00 00 A9 13 50 BC  1E 16 6A 3F A9 13 50 BC  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 00 00  ....Pj?P.        ....
000000E0  00 00 A9 13 50 BC 1E 16  6A BF A9 13 50 BC 0E 00  20 20 20 20 20 20 20 20  00 00 1E 16 6A BF 00 00  ..PjP.        ..j..
00000100  00 00 1E 16 6A 3F 00 00  00 00 00 00 00 00 00 00  00 00 21 47 53 43 4E 45  20 27 39 31 0D 0A 4D 61  ..j?............!GSCNE '91Ma
00000120  74 65 72 69 61 6C 20 4C  5F 0D 0A 0D 0A 69 66 20  66 20 74 68 65 6E 20 31  0D 0A 6D 6F 64 65 6C 20  terial L_if f then 1model 
00000140  77 69 72 65 0D 0A 31 3A  20 72 6F 74 78 20 39 30  0D 0A 20 20 20 6D 75 6C  79 20 32 2A 63 2F 61 0D  wire1: rotx 90   muly 2*c/a
00000160  0A 20 20 20 61 72 63 20  61 2F 32 2C 30 2C 31 38  30 0D 0A 20 20 20 61 72  63 20 65 2C 30 2C 31 38     arc a/2,0,180   arc e,0,18
00000180  30 0D 0A 66 6F 72 20 69  20 3D 20 31 20 74 6F 20  64 2B 31 0D 0A 20 20 20  6C 69 6E 5F 20 65 2C 30  0for i = 1 to d+1   lin_ e,0
000001A0  2C 30 2C 61 2F 32 2C 30  2C 30 0D 0A 20 20 20 72  6F 74 7A 20 31 38 30 2F  64 0D 0A 6E 65 78 74 20  ,0,a/2,0,0   rotz 180/dnext 
000001C0  69 0D 0A 65 6E 64 0D 0A  7B 0D 7D 6E 28 7A 29 2C  20 30 0D 6E 65 78 74 20  7A 0D 66 6F 72 20 7A 20  iend{}n(z), 0next zfor z 
000001E0  3D 20 31 20 74 6F 20 31  38 0D 6C 69 6E 65 20 7A  2C 20 7A 2B 31 0D 6E 65  78 74 20 7A 0D 64 65 6C  = 1 to 18line z, z+1next zdel
00000200  20 74 6F 70 0D 65 6E 64  0D 6F 70 0D 65 6E 64 0D  3C 61 72 63 6F 3E 09 20  31 20 20 20 20 30 2E 30   topendopend<arco> 1    0.0
00000220  48 49 47 48 54 2C 44 49  41 4D 45 54 45 52 22 0D  69 66 20 61 3C 3E 30 20  74 68 65 6E 20 31 0D 6C  HIGHT,DIAMETER"if a<>0 then 1l
00000240  65 74 20 61 3D 31 2E 36  0D 31 3A 20 69 66 20 62  3C 3E 30 20 74 68 65 6E  20 32 0D 6C 65 74 20 62  et a=1.61: if b<>0 then 2let b
00000260  3D 30 2E 33 0D 32 3A 20  69 66 20 63 3C 3E 30 20  74 68 65 6E 20 33 0D 6C  65 74 20 63 3D 32 2E 37  =0.32: if c<>0 then 3let c=2.7
00000280  0D 33 3A 20 69 66 20 64  3C 3E 30 20 74 68 65 6E  20 34 0D 6C 65 74 20 64  3D 31 2E 32 0D 34 3A 20  3: if d<>0 then 4let d=1.24: 
000002A0  72 6F 74 78 20 39 30 0D  61 64 64 7A 20 2D 62 0D  6C 65 74 20 78 3D 28 61  2D 64 29 2F 32 0D 6C 65  rotx 90addz -blet x=(a-d)/2le
000002C0  74 20 79 3D 73 69 6E 28  36 30 29 0D 70 72 69 73  6D 5F 20 31 33 2C 62 2C  0D 09 09 09 09 09 09 30  t y=sin(60)prism_ 13,b,0
000002E0  2C 42 21 22 88 AA AA 88  23 45 51 62 8A A8 8A A8  25 42 21 52 8A 88 88 A8  25 25 52 52 8A 8A A8 A8  ,B!"ꬬê#EQbè¿è¿%B!Rèêê¿%%RRèè¿¿
00000300  25 65 D3 52 8A AA AA A8  23 51 04 00 00 00 00 00  00 00 A9 13 50 3C 1E 16  EA 3F 8F C2 75 3E 00 00  %eR謬¿#Q.......P<Ω?Åu>..
00000320  00 00 43 02 06 48 65 69  67 68 74 80 DD D8 00 80  BD 8C 00 6A 80 80 80 80  20 00 40 80 9A 0A 00 18  ..CHeightÇ.Çî.jÇÇÇÇ .@ÇÜ.
00000340  00 00 00 00 1E 16 6A 3F  44 00 0C 4E BA 20 44 69  76 69 73 69 6F 6E 73 8C  00 6A 80 80 80 80 20 00  ....j?D.N Divisionsî.jÇÇÇÇ .
00000360  40 80 9A 0A 00 18 00 00  00 00 00 00 40 41 45 02  13 49 6E 6E 65 72 20 43  69 72 63 6C 65 20 52 61  @ÇÜ.......@AEInner Circle Ra
00000380  64 69 75 73 20 00 40 80  9A 0A 00 18 00 00 00 00  CD CC 4C 3E 46 00 19 54  72 61 6E 73 70 61 72 65  dius .@ÇÜ.....L>F.Transpare
000003A0  6E 74 3F 20 20 31 96 4E  6F 20 20 30 96 59 65 73  00 18 00 00 00 00 00 00  80 3F                    nt?  1ûNo  0ûYes.......Ç?
[ RETURN TO DIRECTORY ]