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_RADSL.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  56 lines
  1. REM     Name:     i_radsl.cdl
  2. REM
  3. REM     Date:     010989 simon izraelevitz
  4. REM
  5. REM     Task:     Creates a radial slot icon for the shapes program.
  6. REM 
  7. REM     -----------------------------------------------
  8.  
  9. REM calculate scale factor
  10.    sc = 0.5
  11.  
  12. REM compute icon oval origin
  13.    ox = 3.5 * hinc
  14.    oy = 3.5 * vinc
  15.  
  16. REM create icon geometry
  17.    MODE DRAW
  18.  
  19.    x = ox + (-1.1248783*sc)
  20.    y = oy + (-1.3405778*sc)
  21.    r = 1.5000000*sc
  22.    ARC x, y, @depth, r, 20.0000000, 80.0000000, 0, 3
  23.  
  24.    x = ox + (-1.1248783*sc)
  25.    y = oy + (-1.3405778*sc)
  26.    r = 2.0000000*sc
  27.    ARC x, y, @depth, r, 20.0000000, 80.0000000, 0, 3
  28.  
  29.    x = ox + (-1.1248783*sc)
  30.    y = oy + (-1.3405778*sc)
  31.    r = 1.7500000*sc
  32.    ARC x, y, @depth, r, 8.5216591, 91.4783432, 0, 3, 0, 3
  33.  
  34.    x = ox + (-0.8209940*sc)
  35.    y = oy + ( 0.3828357*sc)
  36.    r = 0.2500000*sc
  37.    ARC x, y, @depth, r, 80.0000000, 260.0000000, 0, 3
  38.  
  39.    x = ox + ( 0.5195838*sc)
  40.    y = oy + (-0.7420426*sc)
  41.    r = 0.2500000*sc
  42.    ARC x, y, @depth, r, 200.0000000, 380.0000000, 0, 3
  43.  
  44.    x1 = ox + ( 0.1906914*sc)
  45.    y1 = oy + (-0.8617496*sc)
  46.    x2 = ox + ( 0.8484762*sc)
  47.    y2 = oy + (-0.6223356*sc)
  48.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  49.  
  50.    x1 = ox + (-0.8817708*sc)
  51.    y1 = oy + ( 0.0381529*sc)
  52.    x2 = ox + (-0.7602171*sc)
  53.    y2 = oy + ( 0.7275183*sc)
  54.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  55.  
  56.