            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   FUZZI LOGIC ONE  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     HOME  PENTOS  MARQUEE  FRACTAL  GALLERY  GRAPHIX  LINKS   