stairs Art/Electric
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
graphic

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

Website, Text and Some Images Copyright © 2002 tzingaro.com, all rights reserved.