home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / I_OVAL.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.3 KB  |  55 lines
  1.  
  2.  
  3. REM     Name:     I_oval.cdl
  4. REM
  5. REM     Date:     122988 simon izraelevitz
  6. REM
  7. REM     Task:     Constructs an oval icon for the Shapes program.
  8. REM 
  9. REM     -----------------------------------------------
  10.  
  11. REM calculate scale factor
  12.    sc = 1.00
  13.  
  14. REM compute icon oval origin
  15.    ox = 0.5 * hinc
  16.    oy = 1.5 * vinc
  17.  
  18. REM create icon geometry
  19.    MODE DRAW
  20.  
  21.    x = ox + (0.2165062*sc)
  22.    y = oy + (0.1250000*sc)
  23.    r = 0.2500000*sc
  24.    ARC x, y, @depth, r, 336.8699022, 443.1300989, 0, 3
  25.  
  26.    x = ox + (0.1666667*sc)
  27.    y = oy + (-0.2886751*sc)
  28.    r = 0.6666666*sc
  29.    ARC x, y, @depth, r, 83.1300958, 156.8699041, 0, 3
  30.  
  31.    x = ox + (-0.2165062*sc)
  32.    y = oy + (-0.1250000*sc)
  33.    r = 0.2500000*sc
  34.    ARC x, y, @depth, r, 156.8698972, 263.1300939, 0, 3
  35.  
  36.    x = ox + (-0.1666667*sc)
  37.    y = oy + ( 0.2886751*sc)
  38.    r = 0.6666666*sc
  39.    ARC x, y, @depth, r, 263.1300871, 336.8699022, 0, 3
  40.  
  41.    x1 = ox + ( 0.5196154*sc)
  42.    y1 = oy + ( 0.3000000*sc)
  43.    x2 = ox + (-0.5196152*sc)
  44.    y2 = oy + (-0.3000000*sc)
  45.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  46.  
  47.    x1 = ox + (-0.2166667*sc)
  48.    y1 = oy + ( 0.3752778*sc)
  49.    x2 = ox + ( 0.2166665*sc)
  50.    y2 = oy + (-0.3752778*sc)
  51.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0 , 3
  52.  
  53. :exit
  54.    exit
  55.