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
FUZZI LOGIC ONE
logical attractor
comparison mouseover & link

PROGRAM fuzzilog     !1993 April from pascal to True Basic 2004 march
!(© W.van Duyn 2004)
SET MODE "color"
SET WINDOW 0,1199,0,903     !tuned to a resolution of 1280x1024
PRINT "input TVAL,(For TXVAL & TYVAL (try 1.008)"
INPUT TVAL
PRINT "Input Size X, Size Y (try 0.2,0.7 (under 1.0))"
INPUT X,Y
PRINT "Input Scale (try 400 at tval = 1.2, 200 at 2.4)"
INPUT C
CLEAR
LET TXVAL=TVAL
LET TYVAL=TVAL
FOR I = 1 to 500000
LET XX=TXVAL-abs(x-y)
LET YY=TYVAL-abs(y-(TYVAL-x))
LET X=XX
LET Y=YY
LET mm=INT(MOD(I,8))
LET XI=INT(X*C) + 10
LET YJ=INT(Y*C) + 10
CALL colpatA(mm)
PLOT XI,YJ
NEXT I
END

SUB colpatA(mm)
IF mm=0 THEN SET COLOR 16 !"black"
IF mm=1 THEN SET COLOR 11 !"cyan"
IF mm=2 THEN SET COLOR 8  !"gray"
IF mm=3 THEN SET COLOR 14 !"yellow"
IF mm=4 THEN SET COLOR 16 !"black"
IF mm=5 THEN SET COLOR 11 !"cyan"
IF mm=6 THEN SET COLOR 8  !"gray"
IF mm=7 THEN SET COLOR 14 !"yellow"
END SUB

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