home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / BASIC.CIRCLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  948b  |  38 lines
  1. 10  REM  **********************
  2. 20  REM  * BASIC.CIRCLE       *
  3. 30  REM  * BY BRENT IVERSON   *
  4. 40  REM  * COYPRIGHT (C) 1988 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80 :
  9. 90  REM ---SET CIRCLE POSITION
  10. 100  REM   AND RADIUS
  11. 110 :
  12. 120 A = 140:B = 80:R = 70
  13. 130 :
  14. 140  REM ---CALL CIRCLE-GENERATOR
  15. 150 :
  16. 160  HGR : HCOLOR= 3
  17. 170  GOSUB 220
  18. 180  END 
  19. 190 :
  20. 200  REM ---MAIN LOOP
  21. 210 :
  22. 220 X = 0:Y = R:D = 3 -2 *R
  23. 230  GOSUB 370
  24. 240  IF D <0  THEN D = D +4 *X +6: GOTO 260
  25. 250 D = D +4 *(X -Y) +10:Y = Y -1
  26. 260 X = X +1
  27. 270  IF X <Y  THEN 230
  28. 280  IF X = Y  THEN  GOSUB 370
  29. 290  RETURN 
  30. 300 :
  31. 310  REM ---HPLOT POINTS IN 8
  32. 320  REM    QUADRANTS. NOTE THAT
  33. 330  REM    NO CHECKING FOR
  34. 340  REM    SCREEN LIMITS IS
  35. 350  REM    EVER DONE!
  36. 360 :
  37. 370  HPLOT A +X,B +Y: HPLOT A +Y,B +X: HPLOT A +Y,B -X: HPLOT A +X,B -Y: HPLOT A -X,B -Y: HPLOT A -Y,B -X: HPLOT A -Y,B +X: HPLOT A -X,B +Y
  38. 380  RETURN