home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBOD.ZIP / DXFDEMO3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-15  |  619 b   |  30 lines
  1. program DXFDemo;
  2.  
  3. {
  4. This demo creates a box with a cylinder in it.
  5.  After DXFINing try
  6.  VPOINT 2,-2.5,2.5
  7.  and
  8.  HIDE
  9. }
  10.  
  11. uses TurboDXF,DOS;
  12.  
  13. begin
  14.  
  15.    OpenDXF('DXFDEMO3.DXF');
  16.  
  17.    {first draw a 3D cube...}
  18.    Add3DFaceToDXF(0,0,0,0,0,1,1,0,1,1,0,0,'LAYER1');
  19.    Add3DFaceToDXF(0,0,0,0,0,1,0,1,1,0,1,0,'LAYER1');
  20.    Add3DFaceToDXF(1,0,0,1,0,1,1,1,1,1,1,0,'LAYER1');
  21.    Add3DFaceToDXF(0,1,0,0,1,1,1,1,1,1,1,0,'LAYER1');
  22.  
  23.    {Now put a cylinder up the middle of the cube...}
  24.    {Radius is 0.25, extrusion is 1.                }
  25.    AddCircleToDXF(0.5,0.5,0,0.25,1,'LAYER1');
  26.  
  27.   CloseDXF;
  28.  
  29. end.
  30.