home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 September / PCPRO2_995.ISO / virtek / dos / shapes / examples / exam#02.sh < prev    next >
Encoding:
Text File  |  1995-07-16  |  2.1 KB  |  91 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;;;;;;                                             ;;;;;;;;
  3. ;;;;;;;;  Example Shape #2-cannot be sorted by the   ;;;;;;;;
  4. ;;;;;;;;  correct ordering of its facets.            ;;;;;;;;
  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 36,02,01,101,102    ;The facets have been listed here in the
  41.     DRWPOLY 37,05,04,104,105    ;optimum order. The sorting is the best
  42.     DRWPOLY 38,08,07,107,108    ;it can possibly be using basic facet
  43.     DRWPOLY 37,11,10,110,111    ;ordering.
  44.  
  45.     DRWPOLY 36,12,11,111,112    ;Unfortunately it is not correct and is
  46.     DRWPOLY 37,09,08,108,109    ;unresolvable using this method of sorting.
  47.     DRWPOLY 36,06,05,105,106    ;
  48.     DRWPOLY 35,03,02,102,103    ;
  49.  
  50.     DRWPOLY 34,01,12,112,101    ;These 4 seperate facets are the end-caps
  51.     DRWPOLY 34,04,03,103,104    ;of the 4 "arms" of the cross.
  52.     DRWPOLY 34,07,06,106,107    ;
  53.     DRWPOLY 34,10,09,109,110    ;
  54.  
  55.     DRWPOLY 32,112,111,102,101    ;This is the back '+' face, made up of 5
  56.     DRWPOLY 32,105,104,103,102    ;seperate square facets.
  57.     DRWPOLY 32,108,107,106,105    ;
  58.     DRWPOLY 32,111,110,109,108    ;
  59.     DRWPOLY 32,111,108,105,102    ;
  60.  
  61.     DRWPOLY 32,01,02,11,12      ;This is the front '+' face, made up of 5
  62.     DRWPOLY 32,02,03,04,05      ;seperate square facets.
  63.     DRWPOLY 32,05,06,07,08      ;
  64.     DRWPOLY 32,08,09,10,11      ;
  65.     DRWPOLY 32,02,05,08,11      ;
  66.  
  67.     RETURN
  68.     END
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.