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_SHRPSL.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.5 KB  |  62 lines
  1. REM     Name:     I_shrpsl.cdl
  2. REM
  3. REM     Date:     010589 simon izraelevitz
  4. REM
  5. REM     Task:     Constructs an icon that represents a sharp corner
  6. REM               slot for the Shapes program.
  7. REM
  8. REM     -----------------------------------------------
  9.  
  10. REM calculate scale factor
  11.    sc = 0.4
  12.  
  13. REM compute icon oval origin
  14.    ox = 2.5 * hinc
  15.    oy = 3.5 * vinc
  16.  
  17. REM create icon geometry
  18.    MODE DRAW
  19.  
  20.    x = ox + (-0.4330127*sc)
  21.    y = oy + (-0.2500000*sc)
  22.    r = 1.0000000*sc
  23.    ARC x, y, @depth, r, 180.0000000, 240.0000000, 0, 3
  24.  
  25.    x = ox + ( 0.4330127*sc)
  26.    y = oy + ( 0.2500000*sc)
  27.    r = 1.0000000*sc
  28.    ARC x, y, @depth, r, 360.0000000, 420.0000000, 0, 3
  29.  
  30.    x1 = ox + ( 0.9330127*sc)
  31.    y1 = oy + ( 1.1160254*sc)
  32.    x2 = ox + (-1.4330127*sc)
  33.    y2 = oy + (-0.2500000*sc)
  34.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  35.  
  36.    x1 = ox + ( 1.4330127*sc)
  37.    y1 = oy + ( 0.2500000*sc)
  38.    x2 = ox + (-0.9330127*sc)
  39.    y2 = oy + (-1.1160254*sc)
  40.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  41.  
  42.    x1 = ox + ( 1.3856406*sc)
  43.    y1 = oy + ( 0.8000000*sc)
  44.    x2 = ox + (-1.3856406*sc)
  45.    y2 = oy + (-0.8000000*sc)
  46.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  47.  
  48.    x1 = ox + (-0.1330127*sc)
  49.    y1 = oy + (-0.7696153*sc)
  50.    x2 = ox + (-0.7330127*sc)
  51.    y2 = oy + ( 0.2696151*sc)
  52.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  53.  
  54.    x1 = ox + ( 0.7330127*sc)
  55.    y1 = oy + (-0.2696152*sc)
  56.    x2 = ox + ( 0.1330127*sc)
  57.    y2 = oy + ( 0.7696152*sc)
  58.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  59.  
  60. :exit
  61.    exit
  62.