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_2ARCBL.CDL < prev    next >
Encoding:
Text File  |  1989-07-13  |  1.5 KB  |  62 lines
  1. REM     Name:     i_2arcbl.cdl
  2. REM
  3. REM     Date:     013089 simon izraelevitz
  4. REM
  5. REM     Task:     Constructs a two arcs belt shape icon.
  6. REM 
  7. REM     Note:     A message is displayed for all error conditions.
  8. REM
  9. REM
  10. REM     -----------------------------------------------
  11.  
  12. REM calculate scale factor
  13.    sc = 0.4
  14.  
  15. REM compute icon origin
  16.    ox = 2.5 * hinc
  17.    oy = 2.5 * vinc
  18.  
  19. REM create icon geometry
  20.    MODE DRAW
  21.  
  22.    x = ox + ( 0.6495190*sc)
  23.    y = oy + ( 0.3750000*sc)
  24.    r = 0.2500000*sc
  25.    ARC x, y, @depth, r, 309.6153437, 470.3863582, 0, 3
  26.  
  27.    x = ox + (-0.6495190*sc)
  28.    y = oy + (-0.3750000*sc)
  29.    r = 0.5000000*sc
  30.    ARC x, y, @depth, r, 110.4163122, 309.5940540, 0, 3
  31.  
  32.    x1 = ox + (-0.8239385*sc)
  33.    y1 = oy + ( 0.0935914*sc)
  34.    x2 = ox + ( 0.5624318*sc)
  35.    y2 = oy + ( 0.6093413*sc)
  36.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  37.  
  38.    x1 = ox + ( 0.8089266*sc)
  39.    y1 = oy + ( 0.1824144*sc)
  40.    x2 = ox + (-0.3308470*sc)
  41.    y2 = oy + (-0.7602897*sc)
  42.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3
  43.  
  44.    x1 = ox + (-0.9495190*sc)
  45.    y1 = oy + ( 0.1446153*sc)
  46.    x2 = ox + (-0.3495190*sc)
  47.    y2 = oy + (-0.8946153*sc)
  48.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  49.  
  50.    x1 = ox + ( 0.4745191*sc)
  51.    y1 = oy + ( 0.6781090*sc)
  52.    x2 = ox + ( 0.8245191*sc)
  53.    y2 = oy + ( 0.0718912*sc)
  54.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  55.  
  56.    x1 = ox + ( 0.9526280*sc)
  57.    y1 = oy + ( 0.5500001*sc)
  58.    x2 = ox + (-1.1691343*sc)
  59.    y2 = oy + (-0.6750001*sc)
  60.    VLINE x1, y1, @depth, x2, y2, @depth, 0, 3, 0, 3
  61.  
  62.