HOME PENTOS MARQUEE FRACTAL GALLERY GRAPHIX LINKS
 PROGRAMS general color methods col hypercube fuzzy logic 1 fuzzy logic 2 fuzzy logic 3 macrame mandelzoom julia set ripples sines newtons basin hadamard matrix PROGRAMS 2 L-systems IF-Systems e-mail
 SINES PROGRAM sines     !1986 GWbasic to True Basic 2004 March !copyright W.vanDuyn 2004 SET MODE "color" SET WINDOW 0,1199,0,903 SET BACKGROUND COLOR "white" PRINT "Input a (start: try 3.13,3.1 or 3.11)" INPUT a PRINT "Input c,mag (Try: 0.9995 or 1.00001,90 or 7)" INPUT c,mag PRINT "Input x,y, displacement (Try: 400,300 or 600,452)" INPUT xi,yi CLEAR SET COLOR "black" BOX AREA 10,1189,10,893 FLOOD 10,10 LET x=0 LET y=0 FOR i = 1 to 500000 LET xx=c*y-SIN(x) LET yy=a-x LET x=xx LET y=yy LET dx=INT(mag*x+xi) LET dy=INT(mag*y+yi) LET f=INT(abs(mag*x*y)) LET mm=MOD(f,6) CALL colorpat(mm) PLOT dx,dy NEXT i END SUB colorpat(mm) IF mm=0 THEN SET COLOR 11 IF mm=1 THEN SET COLOR 14 IF mm=2 THEN SET COLOR 13 IF mm=3 THEN SET COLOR 10 IF mm=4 THEN SET COLOR 12 IF mm=5 THEN SET COLOR 15 END SUB
 HOME PENTOS MARQUEE FRACTAL GALLERY GRAPHIX LINKS