home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PGL.ZIP / PGLCLS.ZIP / GEOM.PRG < prev    next >
Encoding:
Text File  |  1992-01-20  |  2.5 KB  |  112 lines
  1. ****************************************************************************
  2. *  GEOM.PRG
  3. *
  4. *  Geometry display demo program.
  5. ****************************************************************************
  6. *
  7. * Include PGL.PRG
  8. *
  9. SET PROCEDURE TO PGL
  10. DO  PGLINIT
  11. *
  12. PUBLIC polydata[12], pdata[12]
  13. PUBLIC j, ierr, dx
  14. **************************************************************************
  15. * - MAIN PROCEDURE
  16. **************************************************************************
  17. polydata[1]=  500
  18. polydata[2]=  200
  19. polydata[3]=  100  
  20. polydata[4]=  400
  21. polydata[5]=  300  
  22. polydata[6]=  800
  23. polydata[7]=  600  
  24. polydata[8]=  600
  25. polydata[9]=  900  
  26. polydata[10]= 700
  27. polydata[11]= 750  
  28. polydata[12]= 300
  29.  
  30. *    
  31. *    Open A Drawing File
  32. *    
  33.      pgINIT( 'geom.plt' , 3001, 3001, @ierr  ) 
  34.      if ierr <>  0 
  35.         ? "error opening drawing file!"
  36.         return
  37.      end if
  38.  
  39.    pgSTStyle( pgTRIPLEX )
  40.    pgSTJust( pgCENTER, pgBOTTOM )
  41.    pgSCHARSP( 3 )
  42.    pgSTScale( 2, 1, 2, 1 )
  43.    pgSColor( 15 )
  44.  
  45.    pgRect( 0, 0, 3000, 3000, pgOUTLINE ) 
  46.    pgLin( 0, 1000, 3000, 1000 ) 
  47.    pgLin( 0, 2000, 3000, 2000 ) 
  48.    pgLin( 1000, 0, 1000, 3000 ) 
  49.    pgLin( 2000, 0, 2000, 3000 ) 
  50.  
  51. * 1  
  52.    pgA( 500, 500, 300, 0, 210 ) 
  53.    pgDTXY( 500, 990, 'ARC' ) 
  54.  
  55. * 2  
  56.    pgSFStyle( 2, 1 ) 
  57.    pgCir( 1500, 500, 300, pgOFILL ) 
  58.    pgDTXY( 1500, 990, 'CIRCLE' ) 
  59.  
  60. * 3  
  61.    pgEllA( 2500, 500, 400, 300, 0, 210 ) 
  62.    pgDTXY( 2500, 990, 'ELLARC' ) 
  63.  
  64. * 4  
  65.    pgSFStyle( 3, 1 ) 
  66.    pgEll( 500, 1500, 400, 300, pgOFILL ) 
  67.    pgDTXY( 500, 1990, 'ELLIPSE' ) 
  68.  
  69. * 5  
  70.    pgSFStyle( 4, 1 ) 
  71.    pgPi( 1500, 1500, 300, 0, 240, pgOFILL ) 
  72.    pgDTXY( 1500, 1990, 'PIE' ) 
  73.  
  74. * 6  
  75.    j=1 
  76.    do while j <= 11
  77.       pdata[j]   = polydata[j]   + 2000 
  78.       pdata[j+1] = polydata[j+1] + 1000 
  79.       j = j + 2 
  80.    enddo
  81.    pgSFStyle( 5, 1 ) 
  82.    pgPolyLN( pdata, 6 ) 
  83.    pgDTXY( 2500, 1990, 'POLYLINE' ) 
  84.  
  85. * 7  
  86.    j=1
  87.    do while j <= 11
  88.       pdata[j]   = polydata[j]   + 0 
  89.       pdata[j+1] = polydata[j+1] + 2000 
  90.       j = j + 2 
  91.     enddo 
  92.    pgSFStyle( 6, 1 ) 
  93.    pgPolyGN( pdata, 6, pgOFILL ) 
  94.    pgDTXY( 500, 2990, 'POLYGON' ) 
  95.  
  96. * 8  
  97.    pgSFStyle( 7, 1 ) 
  98.    pgRect( 1500-400, 2500-300, 1500+400, 2500+300, pgOFILL ) 
  99.    pgDTXY( 1500, 2990, 'RECTANGLE' ) 
  100.  
  101. * 9  
  102.    pgSFStyle( 8, 1 ) 
  103.    pgSect( 2500, 2500, 400, 300, 0, 300, pgOFILL ) 
  104.    pgDTXY( 2500, 2990, 'SECTOR' ) 
  105. *     
  106. *    Close The Drawing File.
  107. *    
  108.      pgEND()
  109. *
  110. * - END MAIN PROCEDURE
  111. *
  112.