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_KEYIN.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  57 lines
  1. REM     Name:     I_keyin.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 = 1.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.  
  25.    x1 = ox + ( 0.6000000*sc)
  26.    y1 = oy + (-1.0392305*sc)
  27.    x2 = ox + (-0.6000000*sc)
  28.    y2 = oy + ( 1.0392305*sc)
  29.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  30.  
  31.    x1 = ox + ( 0.9485281*sc)
  32.    y1 = oy + ( 0.3166929*sc)
  33.    x2 = ox + ( 0.6712232*sc)
  34.    y2 = oy + ( 0.1565909*sc)
  35.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  36.  
  37.    x1 = ox + ( 0.7485281*sc)
  38.    y1 = oy + ( 0.6631030*sc)
  39.    x2 = ox + ( 0.4712233*sc)
  40.    y2 = oy + ( 0.5030010*sc)
  41.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  42.  
  43.    x1 = ox + ( 0.6712232*sc)
  44.    y1 = oy + ( 0.1565909*sc)
  45.    x2 = ox + ( 0.4712233*sc)
  46.    y2 = oy + ( 0.5030010*sc)
  47.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  48.  
  49.    x1 = ox + (-1.0392305*sc)
  50.    y1 = oy + (-0.6000000*sc)
  51.    x2 = ox + ( 1.0392305*sc)
  52.    y2 = oy + ( 0.6000000*sc)
  53.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  54.  
  55. :exit
  56.    exit
  57.