SET MODE "color"
SET WINDOW 0,1026,0,750
SET BACKGROUND COLOR "white"
LET x=.1
LET y=0
LET a=0
LET b =0
LET s1=150
LET s2 =s1*750/1026
RANDOMIZE
Print" San Marco Dragon inverse function"

PRINT" BY R.L.BAGULA 18 Feb 2000 ©"
FOR n= 1  TO  2560000
    LET a =RND
    LET b=RND
    REM Lamda =3
    LET x2=1/4-x/3
    LET y2=-y/3
    LET r2=sqr(x2*x2+y2*y2)
    LET w2=angle(x2,y2)
    IF a <= 1/2 THEN
       LET x1=1/2-r2^.5*cos(.5*w2)
       LET y1=-r2^.5*sin(.5*w2)
    END IF
    IF  a<= 1 AND a>1/2 THEN
       LET x1=1/2+r2^.5*cos(.5*w2)
       LET y1=r2^.5*sin(.5*w2)
    END IF
    SET COLOR 255
    LET x=x1/(x1*x1+y1*y1)
    LET y=-y1/(x1*x1+y1*y1)
    IF n>10 THEN PLOT 1026/2+s1*x,750/2+s2*y
NEXT n
END