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
JULIA SET
graphic

PROGRAM juliette    !(1987 november Pascal to true basic 2004 march
!© W.van Duyn 2004
SET MODE "color"
SET WINDOW 0,1199,0,903     !tuned to 1280x1024 res
PRINT "input x corner, y corner (try -1.80, -1.80 to start)"
INPUT cornerx,cornery
PRINT "Input side, size (try 1.80, 100 (max450) to start)"
INPUT side,size
PRINT "Input a, b (try -0.526,-0.532 to start)"
INPUT a,b
CLEAR
SET COLOR "black"
BOX AREA 10,1189,10,893
FLOOD 10,10
LET gap=side/size
LET x = cornerx
LET dxy = 10+size
FOR i =-size to size
LET x = x+gap
LET y = cornery
FOR j =-size to size
LET y=y+gap
LET mc=0
LET xx=x
LET yy=y
LET z=0
DO WHILE mc =< 200 AND z =<4
LET xxx=(xx^2-yy^2)+a
LET yyy=(2*xx*yy)+b
LET z=(xxx^2+yyy^2)
LET xx=xxx
LET yy=yyy
LET mc=mc+1
LOOP
LET xi=i+dxy
LET yj=j+dxy
    CALL colpatA(mc)
PLOT xi,yj
NEXT J
NEXT I
END

SUB colpatA(mc)    ! change, alter, fix, kludge etc to suit
IF mc < 200 THEN LET mm=MOD(mc,10)
IF mm=0 THEN SET COLOR 15
IF mm=1 THEN SET COLOR 9
IF mm=2 THEN SET COLOR 11
IF mm=3 THEN SET COLOR 10
IF mm=4 THEN SET COLOR 14
IF mm=5 THEN SET COLOR 12
IF mm=6 THEN SET COLOR 13
IF mm=7 THEN SET COLOR 5
IF mm=8 THEN SET COLOR 14
IF mm=9 THEN SET COLOR 1
IF mc>= 200 THEN SET COLOR 16
END SUB

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