home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / demos / euro / designwo.lha / DesignWorks / Parabola < prev    next >
Encoding:
Text File  |  1991-05-17  |  1.6 KB  |  37 lines
  1. /* Plotting example */
  2.  
  3. NormalSize
  4. Reduce                      /* Select a nice size screen */
  5. UnselectAll                 /* Don't modify existing objects */
  6. PenNum 2                    /* Black pen */
  7. FillNum 0                   /* Fill pattern 'none' */
  8. DrawOff                     /* Don't show axes drawing */
  9.  
  10. xOffset = 320               /* Set x and y offsets since this is not */
  11. yOffset = 0                 /* a standard Cartesian plane */
  12.  
  13. NewLine 1 400 639 400       /* Draw x and y axes */
  14. NewLine 320 1 320 700
  15. DrawOn                      /* Show the axes before drawing graph */
  16. DrawOff                     /* Don't show graphing of equation */
  17. ourPoly = 'newpoly'
  18. x = -300                    /* This is x's starting point */
  19. do until x > 300
  20.    y = (x*x)%100            /* Calculate the Cartesian y */
  21.                             /* Insert your own equation to plot */
  22.  
  23.    if (x+xOffset)>0 & (400-(y+yOffset))>0 & (x+xOffset)<640 & (400-(y+yOffset))<720 then       /* Bounds check */
  24.  
  25.       ourPoly = ourPoly (x+xOffset) (400-(y+yOffset))
  26.                    /* This statement only gets executed if the new
  27.                       point is within the bounds of the page */
  28.  
  29.    x = x + 10               /* This is our step for our loop which
  30.                                may need to be adjusted so that the
  31.                                AREXX line length does not go over
  32.                                800 lines. */
  33. end
  34. ourPoly                     /* Now draw the graphed polygon */
  35. PolySmooth                  /* Make this polygon smooth */
  36. DrawOn                      /* Show the drawing */
  37.