home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / graphic3 / lines.bas < prev    next >
BASIC Source File  |  1986-02-21  |  1KB  |  45 lines
  1. 1 DIM XP(20),YP(20)
  2. 2 REM
  3. 1000 '
  4. 1010 ' CIRCLE DRAWER -- Patrick Leabo
  5. 1020 '
  6. 1025 POKE 106,0
  7. 1029 REM
  8. 1030 REM
  9. 1035 SCREEN 1
  10. 1036 GOSUB 2000
  11. 1040 FOR N=3 TO 19
  12. 1042 C=C+1:IF C>3 THEN C=1
  13. 1045 IF N>7 THEN N=N+3
  14. 1050 RR=95:X=160:Y=100
  15. 1060 GOSUB 1110
  16. 1070 CH$=INKEY$:IF CH$= CHR$(27) THEN SCREEN 0:CHAIN "MENU",1000
  17. 1080 FOR DL=1 TO 2000:NEXT DL:CLS
  18. 1090 NEXT:GOTO 1036
  19. 1100 '
  20. 1110 '     circle drawer subroutine
  21. 1120 '     INPUTS N,RR,X,Y
  22. 1130 '
  23. 1140 PI=3.14159:AN=PI/2:TP=2*PI:M=0:DE=TP/N
  24. 1145 LOCATE 1,1:PRINT"String Art":PRINT"esc=quit"
  25. 1150 GOTO 2
  26. 1160 DX=1.5*INT(RR*COS(AN)+.5):DY=-INT(RR*SIN (AN)+.1)
  27. 1170 XP(M)=X+DX:YP(M)=Y+DY
  28. 1180 PSET(XP(M),YP(M))
  29. 1190 AN=AN+DE:NEXT M
  30. 1200 FOR NN=1 TO N:FOR MM=NN TO N
  31. 1210 LINE (XP(NN),YP(NN))-(XP(MM),YP(MM)),C
  32. 1220 NEXT MM,NN:RETURN
  33. 2000 REM STRING ART
  34. 2005 CLS
  35. 2010 X0=X0 + 1.06:Y1=Y1+1.9799999#
  36. 2020 Y0=Y0-2:X1=X1-1.43
  37. 2030 IF Y0<3 THEN Y0=Y0+180
  38. 2040 IF X1<3 THEN X1 = X1 + 300
  39. 2050 IF X0>300 THEN X0=X0-300
  40. 2060 IF Y1>180 THEN Y1=Y1-180
  41. 2070 C=INT(RND*3+1)
  42. 2080 LINE (X0,Y0)-(X1,Y1),C:K=K+1
  43. 2090 IF K<185 THEN 2010
  44. 2100 K=0:FOR N=1 TO 2000:NEXT:CLS:RETURN
  45.