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_RNDSL.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.5 KB  |  61 lines
  1. REM     Name:     i_rndsl.cdl
  2. REM
  3. REM     Date:     122988 simon izraelevitz
  4. REM
  5. REM     Task:     Constructs an icon to represent a round 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 = 1.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.    x = ox + ( 0.64951902*sc)
  25.    y = oy + ( 0.3750000*sc)
  26.    r = 0.2500000*sc
  27.    ARC x, y, @depth, r, 300.0000000, 480.0000000, 0, 3
  28.  
  29.    x1 = ox + (-0.5245190*sc)
  30.    y1 = oy + (-0.5915064*sc)
  31.    x2 = ox + ( 0.7745190*sc)
  32.    y2 = oy + ( 0.1584937*sc)
  33.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  34.  
  35.    x1 = ox + ( 0.5245190*sc)
  36.    y1 = oy + ( 0.5915064*sc)
  37.    x2 = ox + (-0.7745190*sc)
  38.    y2 = oy + (-0.1584937*sc)
  39.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  40.  
  41.    x1 = ox + (-0.8245190*sc)
  42.    y1 = oy + (-0.0718912*sc)
  43.    x2 = ox + (-0.4745190*sc)
  44.    y2 = oy + (-0.6781090*sc)
  45.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  46.  
  47.    x1 = ox + ( 0.9526280*sc)
  48.    y1 = oy + ( 0.5500001*sc)
  49.    x2 = ox + (-0.9526279*sc)
  50.    y2 = oy + (-0.5500001*sc)
  51.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  52.  
  53.    x1 = ox + ( 0.4745191*sc)
  54.    y1 = oy + ( 0.6781090*sc)
  55.    x2 = ox + ( 0.8245191*sc)
  56.    y2 = oy + ( 0.0718912*sc)
  57.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  58.  
  59. :exit
  60.    exit
  61.