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_OPNSL.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.2 KB  |  48 lines
  1. REM     Name:     i_opnsl.cdl
  2. REM
  3. REM     Date:     010689 simon izraelevitz
  4. REM
  5. REM     Task:     Constructs an icon to represent an open slot for
  6. REM               the Shapes program.
  7. REM     -----------------------------------------------
  8.  
  9. REM calculate scale factor
  10.    sc = 0.6
  11.  
  12. REM compute icon oval origin
  13.    ox = 0.5 * hinc
  14.    oy = 3.5 * vinc
  15.  
  16. REM create icon geometry
  17.    MODE DRAW
  18.  
  19.    x = ox + (-0.64951902*sc)
  20.    y = oy + (-0.3750000*sc)
  21.    r = 0.2500000*sc
  22.    ARC x, y, @depth, r, 120.0000000, 300.0000000, 0, 3
  23.  
  24.    x1 = ox + (-0.5245190*sc)
  25.    y1 = oy + (-0.5915064*sc)
  26.    x2 = ox + ( 0.7745190*sc)
  27.    y2 = oy + ( 0.1584937*sc)
  28.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  29.  
  30.    x1 = ox + ( 0.5245190*sc)
  31.    y1 = oy + ( 0.5915064*sc)
  32.    x2 = ox + (-0.7745190*sc)
  33.    y2 = oy + (-0.1584937*sc)
  34.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  35.  
  36.    x1 = ox + (-0.8245190*sc)
  37.    y1 = oy + (-0.0718912*sc)
  38.    x2 = ox + (-0.4745190*sc)
  39.    y2 = oy + (-0.6781090*sc)
  40.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  41.  
  42.    x1 = ox + (-0.3464102*sc)
  43.    y1 = oy + (-0.2000001*sc)
  44.    x2 = ox + (-0.9526279*sc)
  45.    y2 = oy + (-0.5500001*sc)
  46.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  47.  
  48.