home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 September / PCPRO2_995.ISO / virtek / dos / shapes / examples / exam#01.sh < prev    next >
Encoding:
Text File  |  1995-07-16  |  1.6 KB  |  59 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;;;;;;                                             ;;;;;;;;
  3. ;;;;;;;;  Example Shape #1-sorted by facet ordering  ;;;;;;;;
  4. ;;;;;;;;                                             ;;;;;;;;
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6.  
  7.     SHAPE 10000
  8.  
  9. ;;;;;;;;;vertex list;;;;;;;;;;;;;;;;;;;;;;
  10.  
  11.     VERTEX 1,-150,-100,-50
  12.     VERTEX 2,150,-100,-50
  13.     VERTEX 3,150,0,-50
  14.     VERTEX 4,50,0,-50
  15.     VERTEX 5,50,100,-50
  16.     VERTEX 6,-50,100,-50
  17.     VERTEX 7,-50,0,-50
  18.     VERTEX 8,-150,0,-50
  19.  
  20.     VERTEX 101,-150,-100,50
  21.     VERTEX 102,150,-100,50
  22.     VERTEX 103,150,0,50
  23.     VERTEX 104,50,0,50
  24.     VERTEX 105,50,100,50
  25.     VERTEX 106,-50,100,50
  26.     VERTEX 107,-50,0,50
  27.     VERTEX 108,-150,0,50
  28.  
  29. ;;;;;;;;;facet list;;;;;;;;;;;;;;;;;;;;;;;
  30.  
  31.     DRWPOLY 38,4,3,103,104    ;These facets are all coloured according to
  32.  
  33.     DRWPOLY 36,8,7,107,108    ;the order in which they are drawn.
  34.  
  35.     DRWPOLY 34,7,6,106,107    ;The lighter the facet is, the later it
  36.  
  37.     DRWPOLY 32,5,4,104,105    ;has been put down. The last two 'T' shaped
  38.  
  39.     DRWPOLY 30,6,5,105,106    ;faces below (that are actually made up of 4
  40.  
  41.     DRWPOLY 28,3,2,102,103    ;seperate facets) are therefore the lightest.
  42.  
  43.     DRWPOLY 26,1,8,108,101
  44.  
  45.     DRWPOLY 24,2,1,101,102
  46.  
  47.     DRWPOLY 22,4,5,6,7        ;This is the front 'T' face, made up of 4
  48.     DRWPOLY 22,2,4,7,1        ;seperate facets.
  49.     DRWPOLY 22,7,8,1        ;
  50.     DRWPOLY 22,2,3,4        ;
  51.  
  52.     DRWPOLY 20,106,105,104,107    ;This is the back 'T' face, made up of 4
  53.     DRWPOLY 20,107,104,102,101    ;seperate facets.
  54.     DRWPOLY 20,101,108,107    ;
  55.     DRWPOLY 20,104,103,102    ;
  56.  
  57.     RETURN
  58.     END
  59.