home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / ZAPPER.DRAW.bas < prev   
BASIC Source File  |  2023-02-26  |  570b  |  20 lines
  1. 10  REM  ***********************
  2. 20  REM  * ZAPPER.DRAW         *
  3. 30  REM  * BY JOHN A. WARD     *
  4. 40  REM  * COPYRIGHT(C) 1989   *
  5. 50  REM  * MICROSPARC, INC.    *
  6. 60  REM  * CONCORD, MA 01742   *
  7. 70  REM  ***********************
  8. 80  REM  * DRAW APPLE *
  9. 90  HOME : HGR : HCOLOR= 3
  10. 100 PI = 3.1416:A = 50:B = 50
  11. 110 X0 = 140:Y0 = 30
  12. 120  FOR THETA = 0 TO 2 *PI +0.1  STEP 0.1
  13. 130 R = B +A * SIN(THETA)
  14. 140 X = X0 +1.5 *(R * COS(THETA))
  15. 150 Y = Y0 +(R * SIN(THETA))
  16. 160  IF THETA = 0  THEN  HPLOT X,Y
  17. 170  HPLOT  TO X,Y
  18. 180  NEXT THETA
  19. 190  HPLOT X0,Y0 TO X0,10
  20. 200  END