home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l076 / 1.ddi / ARC.TRU < prev    next >
Encoding:
Text File  |  1988-12-18  |  2.7 KB  |  105 lines
  1. EXTERNAL
  2.  
  3. !     Library of routines related to BOX CIRCLE
  4. !
  5. !     BoxArc        Draws an arc
  6. !     BoxSector     Draws an (open) sector
  7. !     BoxWedge      Draws a (filled) sector
  8. !     BoxDisk       Draws a disk (360-degree wedge)
  9. !     Arc           Utility routine to support the above
  10. !
  11. ! Copyright (c) 1987 by True BASIC, Incorporated.
  12.  
  13. PICTURE BoxArc (x1, x2, y1, y2, start, end)
  14.  
  15.     IF (end - start) >= 360 then
  16.        DRAW Arc (x1, x2, y1, y2, start, start+360, 1)
  17.     ELSE
  18.        DRAW Arc (x1, x2, y1, y2, start, end, 1)
  19.     END IF
  20.  
  21. END PICTURE
  22.  
  23. PICTURE BoxSector (x1, x2, y1, y2, start, end)
  24.  
  25.     IF (end - start) >= 360 then
  26.        DRAW Arc (x1, x2, y1, y2, start, start+360, 2)
  27.     ELSE
  28.        DRAW Arc (x1, x2, y1, y2, start, end, 2)
  29.     END IF
  30.  
  31. END PICTURE
  32.  
  33. PICTURE BoxWedge (x1, x2, y1, y2, start, end)
  34.  
  35.     IF (end - start) >= 360 then
  36.        DRAW BoxDisk (x1, x2, y1, y2)
  37.     ELSE
  38.        DRAW Arc (x1, x2, y1, y2, start, end, 3)
  39.     END IF
  40.  
  41. END PICTURE
  42.  
  43. PICTURE BoxDisk (x1, x2, y1, y2)
  44.  
  45.     DRAW Arc (x1, x2, y1, y2, 0, 360, 3)
  46.  
  47. END PICTURE
  48.  
  49. PICTURE Arc (x1, x2, y1, y2, start, end, type)
  50.  
  51.     !  type = 1:     Arc
  52.     !  type = 2:     Sector
  53.     !  type = 3:     Wedge
  54.  
  55.     OPTION ANGLE degrees
  56.     DIM pts(0,2)                  ! Local array for MAT PLOT
  57.  
  58.     LET xcenter = (x1 + x2)/2
  59.     LET ycenter = (y1 + y2)/2
  60.     LET rx = (x2 - x1)/2
  61.     LET ry = (y2 - y1)/2
  62.  
  63.     LET delta = 5                 ! Use 5 degrees for now
  64.     LET n = int((end - start)/delta)   ! Floor, to avoid overrunning
  65.     IF n < 0 then EXIT PICTURE    ! Don't draw, if end < start
  66.  
  67.     LET cd = cos(delta)
  68.     LET sd = sin(delta)
  69.     LET ratio = rx/ry
  70.     LET j = 0
  71.     IF type = 2 or type = 3 then  ! Start from center
  72.        MAT REDIM pts(n+4,2)
  73.        LET j = j + 1
  74.        LET pts(j,1) = xcenter
  75.        LET pts(j,2) = ycenter
  76.     ELSE
  77.        MAT REDIM pts(n+2,2)
  78.     END IF
  79.     LET j = j + 1
  80.     LET x0 = rx*round(cos(start),5)  ! Round trig values, so sin(360) = 0
  81.     LET y0 = ry*round(sin(start),5)
  82.     LET pts(j,1) = xcenter + x0      ! First perimeter point
  83.     LET pts(j,2) = ycenter + y0
  84.     FOR j = j+1 to j+n
  85.         LET xtemp = x0*cd - ratio*y0*sd
  86.         LET y0 = y0*cd + x0*sd/ratio
  87.         LET x0 = xtemp
  88.         LET pts(j,1) = xcenter + x0
  89.         LET pts(j,2) = ycenter + y0
  90.     NEXT j
  91.     LET pts(j,1) = xcenter + rx*round(cos(end),5)    ! Last perimeter point,
  92.     LET pts(j,2) = ycenter + ry*round(sin(end),5)    ! accurately calculated.
  93.     IF type = 2 or type = 3 then
  94.        LET j = j + 1
  95.        LET pts(j,1) = xcenter
  96.        LET pts(j,2) = ycenter
  97.     END IF
  98.     IF type = 1 or type = 2 then
  99.        MAT PLOT LINES: pts
  100.     ELSE
  101.        MAT PLOT AREA: pts
  102.     END IF
  103.  
  104. END PICTURE
  105.