home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 September / PCPRO2_995.ISO / virtek / dos / shapes / examples / exam#03.sh < prev    next >
Encoding:
Text File  |  1995-07-16  |  2.2 KB  |  70 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;;;;;;                                             ;;;;;;;;
  3. ;;;;;;;;  Example Shape #3-Appears to be sorted      ;;;;;;;;
  4. ;;;;;;;;  correctly due to a clever use of colour.   ;;;;;;;;
  5. ;;;;;;;;                                             ;;;;;;;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8.     SHAPE 10000
  9.  
  10. ;;;;;;;;;vertex list;;;;;;;;;;;;;;;;;;;;;;
  11.  
  12.     VERTEX 01,-150,-50,-50
  13.     VERTEX 02,-50,-50,-50
  14.     VERTEX 03,-50,-150,-50
  15.     VERTEX 04,50,-150,-50
  16.     VERTEX 05,50,-50,-50
  17.     VERTEX 06,150,-50,-50
  18.     VERTEX 07,150,+50,-50
  19.     VERTEX 08,50,+50,-50
  20.     VERTEX 09,50,+150,-50
  21.     VERTEX 10,-50,+150,-50
  22.     VERTEX 11,-50,+50,-50
  23.     VERTEX 12,-150,+50,-50
  24.  
  25.     VERTEX 101,-150,-50,50
  26.     VERTEX 102,-50,-50,50
  27.     VERTEX 103,-50,-150,50
  28.     VERTEX 104,50,-150,50
  29.     VERTEX 105,50,-50,50
  30.     VERTEX 106,150,-50,50
  31.     VERTEX 107,150,+50,50
  32.     VERTEX 108,50,+50,50
  33.     VERTEX 109,50,+150,50
  34.     VERTEX 110,-50,+150,50
  35.     VERTEX 111,-50,+50,50
  36.     VERTEX 112,-150,+50,50
  37.  
  38. ;;;;;;;;;facet list;;;;;;;;;;;;;;;;;;;;;;;
  39.  
  40.     DRWPOLY 38,02,01,101,102    ;These 4 seperate facets are the darker of
  41.     DRWPOLY 38,05,04,104,105    ;the two facets that comprise the 4 inner
  42.     DRWPOLY 38,08,07,107,108    ;corners of the cross. The last facet over-
  43.     DRWPOLY 38,11,10,110,111    ;writes the first but because they are the
  44.                 ;same colour it is impossible to tell.
  45.  
  46.     DRWPOLY 36,03,02,102,103    ;The same principle applies to these 4
  47.     DRWPOLY 36,06,05,105,106    ;facets, the lighter side of the 4 inner
  48.     DRWPOLY 36,09,08,108,109    ;corners. Again, the last facet overwrites
  49.     DRWPOLY 36,12,11,111,112    ;the first but the colour masks this fact.
  50.  
  51.     DRWPOLY 34,01,12,112,101    ;These 4 seperate facets are the end-caps
  52.     DRWPOLY 34,04,03,103,104    ;of the 4 "arms" of the cross.
  53.     DRWPOLY 34,07,06,106,107    ;
  54.     DRWPOLY 34,10,09,109,110    ;
  55.  
  56.     DRWPOLY 32,112,111,102,101    ;This is the back '+' face, made up of 5
  57.     DRWPOLY 32,105,104,103,102    ;seperate square facets.
  58.     DRWPOLY 32,108,107,106,105    ;
  59.     DRWPOLY 32,111,110,109,108    ;
  60.     DRWPOLY 32,111,108,105,102    ;
  61.  
  62.     DRWPOLY 30,01,02,11,12    ;This is the front '+' face, made up of 5
  63.     DRWPOLY 30,02,03,04,05    ;seperate square facets.
  64.     DRWPOLY 30,05,06,07,08    ;
  65.     DRWPOLY 30,08,09,10,11    ;
  66.     DRWPOLY 30,02,05,08,11    ;
  67.  
  68.     RETURN
  69.     END
  70.