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_KEYOUT.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  56 lines
  1. REM     Name:     I_keyout.cdl
  2. REM
  3. REM     Date:     011089 simon izraelevitz
  4. REM
  5. REM     Task:     Constructs a keyway out icon for the Shapes program.
  6. REM 
  7. REM     -----------------------------------------------
  8.  
  9. REM calculate scale factor
  10.    sc = .4
  11.  
  12. REM compute icon origin
  13.    ox = 0.5 * hinc
  14.    oy = 2.5 * vinc
  15.  
  16. REM create icon geometry
  17.    MODE DRAW
  18.  
  19.    x = ox + ( 0.0000000*sc)
  20.    y = oy + ( 0.0000000*sc)
  21.    r = 1.0000000*sc
  22.    ARC x, y, @depth, r, 41.5369587, 378.4630324, 0, 3
  23.  
  24.    x1 = ox + ( 0.9485281*sc)
  25.    y1 = oy + ( 0.3166929*sc)
  26.    x2 = ox + ( 1.2258329*sc)
  27.    y2 = oy + ( 0.4767949*sc)
  28.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  29.  
  30.    x1 = ox + ( 0.7485281*sc)
  31.    y1 = oy + ( 0.6631030*sc)
  32.    x2 = ox + ( 1.0258330*sc)
  33.    y2 = oy + ( 0.8232051*sc)
  34.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  35.  
  36.    x1 = ox + ( 1.2258329*sc)
  37.    y1 = oy + ( 0.4767949*sc)
  38.    x2 = ox + ( 1.0258330*sc)
  39.    y2 = oy + ( 0.8232051*sc)
  40.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  41.  
  42.    x1 = ox + (-1.0392305*sc)
  43.    y1 = oy + (-0.6000000*sc)
  44.    x2 = ox + ( 1.2990381*sc)
  45.    y2 = oy + ( 0.7500000*sc)
  46.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  47.  
  48.    x1 = ox + ( 0.6000000*sc)
  49.    y1 = oy + (-1.0392305*sc)
  50.    x2 = ox + (-0.6000000*sc)
  51.    y2 = oy + ( 1.0392305*sc)
  52.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  53.  
  54. :exit
  55.    exit
  56.