home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 September / PCPRO2_995.ISO / virtek / dos / shapes / examples / exam#00.sh < prev    next >
Encoding:
Text File  |  1995-07-16  |  6.2 KB  |  271 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;;;;;;                                             ;;;;;;;;
  3. ;;;;;;;; Example Shape #0 - More than one SHAPE file ;;;;;;;;
  4. ;;;;;;;; is used to describe a single 3D object. The ;;;;;;;;
  5. ;;;;;;;; SHAPEs change depending on distance.        ;;;;;;;;
  6. ;;;;;;;;                                             ;;;;;;;;
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8.  
  9. ;This SHAPE only uses TWO of a possible FOUR list definitions
  10.  
  11.  
  12.     DOT 18000,60        ;the SHAPE turns into a DOT at 18000 UNITs
  13.  
  14.     QUAD 16000,60        ;the SHAPE turns into a QUAD at 16000 UNITs
  15.  
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17.  
  18.     SHAPE 16000
  19.  
  20. ;;;;;;;;;vertex list;;;;;;;;;;;;;;;;;;;;;;
  21.  
  22.     VERTEX 01,-110,-100,90    
  23.     VERTEX 02,-110,-160,0    
  24.     VERTEX 03,-110,-100,-90    
  25.     VERTEX 04,-110,-50,-90    
  26.     VERTEX 05,-110,0,-90    
  27.     VERTEX 06,-110,0,90    
  28.     VERTEX 07,-110,-50,90
  29.     VERTEX 101,110,-100,90    
  30.     VERTEX 102,110,-160,0    
  31.     VERTEX 103,110,-100,-90    
  32.     VERTEX 104,110,-50,-90    
  33.     VERTEX 105,110,0,-90    
  34.     VERTEX 106,110,0,90    
  35.     VERTEX 107,110,-50,90
  36.  
  37.     IFVIS 5,3,1 GOTO nolwall
  38.     VERTEX 11,-110,-130,0
  39.     VERTEX 12,-110,-80,41
  40.     VERTEX 13,-110,-80,-41
  41.     DRWPOLY 022,1,2,3            ;l_wall
  42.     DRWPOLY 022,1,3,4,7
  43.     DRWPOLY 58,4,5,6,7
  44.     IFDIST>6400 GOTO skip1
  45.     DRWQUAD 45,11
  46.     DRWQUAD 45,12
  47.     DRWQUAD 45,13
  48. skip1:
  49.     DRWDOT 59,11
  50.     DRWDOT 59,12
  51.     DRWDOT 219,13
  52. nolwall:
  53.     IFVIS 101,103,105 GOTO norwall
  54.     DRWPOLY 022,103,102,101        ;r_wall
  55.     DRWPOLY 022,104,103,101,107
  56.     DRWPOLY 58,106,105,104,107
  57.     VERTEX 111,110,-130,0
  58.     VERTEX 112,110,-80,41
  59.     VERTEX 113,110,-80,-41
  60.     IFDIST>6400 GOTO skip2
  61.     DRWQUAD 45,111
  62.     DRWQUAD 45,112
  63.     DRWQUAD 45,113
  64. skip2:
  65.     DRWDOT 219,111
  66.     DRWDOT 59,112
  67.     DRWDOT 219,113
  68. norwall:
  69.     IFVIS 103,3,5 GOTO nofwall
  70.     DRWPOLY 20,3,103,104,4        ;front
  71.     DRWPOLY 169-80-32,4,104,105,5
  72.     VERTEX 14,-70,-80,-90
  73.     VERTEX 15,-70,-30,-90
  74.     VERTEX 16,0,-80,-90
  75.     VERTEX 17,0,-30,-90
  76.     VERTEX 18,70,-80,-90
  77.     VERTEX 19,70,-30,-90
  78.     IFDIST>6400 GOTO skip3
  79.     DRWQUAD 45,14
  80.     DRWQUAD 45,15
  81.     DRWQUAD 45,16
  82.     DRWQUAD 45,17
  83.     DRWQUAD 45,18
  84.     DRWQUAD 45,19
  85. skip3:
  86.     DRWDOT 219,14
  87.     DRWDOT 59,15
  88.     DRWDOT 59,16
  89.     DRWDOT 219,17
  90.     DRWDOT 59,18
  91.     DRWDOT 219,19
  92. nofwall:
  93.     DRWPOLY 28,1,7,107,101        ;back
  94.     DRWPOLY 59,7,6,106,107
  95.     DRWPOLY 168,3,2,102,103        ;roof
  96.     DRWPOLY 169,2,1,101,102
  97.  
  98.     RETURN
  99.     END            ;This is the end of the furthest SHAPE
  100.                 ;definition. When the SHAPE is within
  101.                 ;3000 UNITs the SHAPE below is rendered.
  102.  
  103. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  104.  
  105.     SHAPE 3000
  106.  
  107. ;;;;;;;;;vertex list;;;;;;;;;;;;;;;;;;;;;;
  108.  
  109.     VERTEX 01,-110,-100,90    
  110.     VERTEX 02,-110,-160,0    
  111.     VERTEX 03,-110,-100,-90    
  112.     VERTEX 04,-110,-50,-90    
  113.     VERTEX 05,-110,0,-90    
  114.     VERTEX 06,-110,0,90    
  115.     VERTEX 07,-110,-50,90
  116.     VERTEX 08,-120,-94,99    
  117.     VERTEX 09,-120,-160,0    
  118.     VERTEX 10,-120,-94,-99    
  119.     VERTEX 101,110,-100,90    
  120.     VERTEX 102,110,-160,0    
  121.     VERTEX 103,110,-100,-90    
  122.     VERTEX 104,110,-50,-90    
  123.     VERTEX 105,110,0,-90    
  124.     VERTEX 106,110,0,90    
  125.     VERTEX 107,110,-50,90
  126.     VERTEX 108,120,-94,99    
  127.     VERTEX 109,120,-160,0    
  128.     VERTEX 110,120,-94,-99    
  129.  
  130.     DRWPOLY 29,09,02,01,08            ;inner bits
  131.     DRWPOLY 30,02,09,10,03
  132.     DRWPOLY 30,108,8,1,101
  133.     DRWPOLY 29,101,102,109,108
  134.     DRWPOLY 30,110,109,102,103
  135.     DRWPOLY 31,10,110,103,3
  136.     DRWPOLY 28,1,7,107,101
  137.     DRWPOLY 59,7,6,106,107
  138.  
  139.     IFVIS 3,1,6 GOTO nolwall
  140.     VERTEX 11,-110,-140,10
  141.     VERTEX 12,-110,-140,-10
  142.     VERTEX 13,-110,-120,-10
  143.     VERTEX 14,-110,-120,10
  144.     VERTEX 15,-110,-90,52
  145.     VERTEX 16,-110,-90,30
  146.     VERTEX 17,-110,-65,30
  147.     VERTEX 18,-110,-65,52
  148.     VERTEX 19,-110,-90,-30
  149.     VERTEX 20,-110,-90,-52
  150.     VERTEX 21,-110,-65,-52
  151.     VERTEX 22,-110,-65,-30
  152.     DRWPOLY 022,1,2,3            ;l_wall
  153.     DRWPOLY 022,1,3,4,7
  154.     DRWPOLY 58,4,5,6,7
  155.     DRWPOLY b57,4,5,6,7
  156.     DRWPOLY 58,11,12,13,14
  157.     DRWPOLY 58,15,16,17,18
  158.     DRWPOLY 219,19,20,21,22
  159.     DRWLINE 47,11,12
  160.     DRWLINE 47,12,13
  161.     DRWLINE 47,13,14
  162.     DRWLINE 47,14,11
  163.     DRWLINE 47,15,16
  164.     DRWLINE 47,16,17
  165.     DRWLINE 47,17,18
  166.     DRWLINE 47,18,15
  167.     DRWLINE 47,19,20
  168.     DRWLINE 47,20,21
  169.     DRWLINE 47,21,22
  170.     DRWLINE 47,22,19
  171. nolwall:
  172.     IFVIS 106,101,103 GOTO norwall
  173.     VERTEX 111,110,-140,10
  174.     VERTEX 112,110,-140,-10
  175.     VERTEX 113,110,-120,-10
  176.     VERTEX 114,110,-120,10
  177.     VERTEX 115,110,-90,52
  178.     VERTEX 116,110,-90,30
  179.     VERTEX 117,110,-65,30
  180.     VERTEX 118,110,-65,52
  181.     VERTEX 119,110,-90,-30
  182.     VERTEX 120,110,-90,-52
  183.     VERTEX 121,110,-65,-52
  184.     VERTEX 122,110,-65,-30
  185.     DRWPOLY 022,103,102,101        ;r_wall
  186.     DRWPOLY 022,104,103,101,107
  187.     DRWPOLY 58,106,105,104,107
  188.     DRWPOLY b57,106,105,104,107
  189.     DRWPOLY 219,113,112,111,114
  190.     DRWPOLY 59,117,116,115,118
  191.     DRWPOLY 59,121,120,119,122
  192.     DRWLINE 47,111,112
  193.     DRWLINE 47,112,113
  194.     DRWLINE 47,113,114
  195.     DRWLINE 47,114,111
  196.     DRWLINE 47,115,116
  197.     DRWLINE 47,116,117
  198.     DRWLINE 47,117,118
  199.     DRWLINE 47,118,115
  200.     DRWLINE 47,119,120
  201.     DRWLINE 47,120,121
  202.     DRWLINE 47,121,122
  203.     DRWLINE 47,122,119
  204. norwall:
  205.     IFVIS 103,3,5 GOTO nofront
  206.     VERTEX 23,-84,-90,-90
  207.     VERTEX 24,-50,-90,-90
  208.     VERTEX 25,-50,-65,-90
  209.     VERTEX 26,-84,-65,-90
  210.     VERTEX 27,-84,-40,-90
  211.     VERTEX 28,-50,-40,-90
  212.     VERTEX 29,-50,-15,-90
  213.     VERTEX 30,-84,-15,-90
  214.     VERTEX 31,-12,-90,-90
  215.     VERTEX 32,-12,-65,-90
  216.     VERTEX 33,-12,-40,-90
  217.     VERTEX 34,-12,-15,-90
  218.     VERTEX 123,84,-90,-90
  219.     VERTEX 124,50,-90,-90
  220.     VERTEX 125,50,-65,-90
  221.     VERTEX 126,84,-65,-90
  222.     VERTEX 127,84,-40,-90
  223.     VERTEX 128,50,-40,-90
  224.     VERTEX 129,50,-15,-90
  225.     VERTEX 130,84,-15,-90
  226.     VERTEX 131,12,-90,-90
  227.     VERTEX 132,12,-65,-90
  228.     VERTEX 133,12,-40,-90
  229.     VERTEX 134,12,-15,-90
  230.     DRWPOLY 20,3,103,104,4        ;front
  231.     DRWPOLY 57,4,104,105,5
  232.     DRWPOLY b56,4,104,105,5
  233.     DRWPOLY 59,23,24,25,26
  234.     DRWPOLY 219,27,28,29,30
  235.     DRWPOLY 219,31,131,132,32
  236.     DRWPOLY 59,33,133,134,34
  237.     DRWPOLY 219,125,124,123,126
  238.     DRWPOLY 59,129,128,127,130
  239.     DRWLINE 47,23,24
  240.     DRWLINE 47,24,25
  241.     DRWLINE 47,25,26
  242.     DRWLINE 47,26,23
  243.     DRWLINE 47,27,28
  244.     DRWLINE 47,28,29
  245.     DRWLINE 47,29,30
  246.     DRWLINE 47,30,27
  247.     DRWLINE 47,31,32
  248.     DRWLINE 47,32,132
  249.     DRWLINE 47,31,131
  250.     DRWLINE 47,131,132
  251.     DRWLINE 47,123,124
  252.     DRWLINE 47,124,125
  253.     DRWLINE 47,125,126
  254.     DRWLINE 47,126,123
  255.     DRWLINE 47,127,128
  256.     DRWLINE 47,128,129
  257.     DRWLINE 47,129,130
  258.     DRWLINE 47,130,127
  259.     DRWLINE 47,33,34
  260.     DRWLINE 47,133,33
  261.     DRWLINE 47,133,134
  262.     DRWLINE 47,134,34
  263. nofront:
  264.     DRWPOLY 168,10,9,109,110        ;roof
  265.     DRWPOLY b167,10,9,109,110
  266.     DRWPOLY 169,9,8,108,109
  267.     DRWPOLY b168,9,8,108,109
  268.  
  269.     RETURN
  270.     END
  271.