home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / 3DLIB20.ARJ / TWOPYR.3DD < prev    next >
Encoding:
Text File  |  1993-06-03  |  1.4 KB  |  34 lines
  1. ;******************************************************************************
  2. ;                                   TwoPyr                                    *
  3. ; this is a demo of a complex object deinition ..                             *
  4. ;******************************************************************************
  5.  
  6. ;******************************************************************************
  7. ;                                     pyr                                     *
  8. ; the simple object has a NOGEN parameter - it is used as part of the complex *
  9. ;******************************************************************************
  10. simpleObject pyr nogen +
  11.         point 1 -100  100    0 +
  12.         point 2 -100 -100    0 +
  13.         point 3  100 -100    0 +
  14.         point 4  100  100    0 +
  15.         point 5    0    0  100 +
  16.         line  1 2 +
  17.         line  2 3 +
  18.         line  3 4 +
  19.         line  4 1 +
  20.         line  1 5 +
  21.         line  2 5 +
  22.         line  3 5 +
  23.         line  4 5 +
  24. end-object 
  25.  
  26. ;******************************************************************************
  27. ;                                   twoPyr                                    *
  28. ; this is a complex object that has 2 simple objects in it ...                *
  29. ;******************************************************************************
  30. complexObject twoPyr +
  31.         child pyr at -100 -100 0 +
  32.         child pyr at  100  100 0 +
  33. end-object
  34.