Program Julia;
Global
// Cambiar cr y ci para distintas formas del fractal Julia

Float cr=-0.22, ci=0.75;
Float ir, ii;
Float cr2, ci2;
Float xmax=-1.5, xmin=1.5, ymax=-1.5, ymin=1.5;
Float an, bn;
Float a, b;
Float a2, b2;
Float mig;
Float an2, bn2;
Float mig2;
Float Pa, Pb;
Int iter=100, tecla;
Int corx=320, cory=240;
j;
k;
j2;
k2;
n;


Begin
   Full_screen = false;
   set_mode(m320x240);
   set_fps(40,3);
   
ir = (xmax - xmin) / corx;
ii = (ymax - ymin) / cory;   
   
For(j=0, j2=corx/2; j < corx/2; j++,j2++) 
    Frame;
        For(k=1; k<= cory ; k++)         
                     
            a = xmin + (j * ir);
            b = ymin + (k * ii); 
            a2 = xmin + (j2 * ir);
            b2 = ymin + (k * ii);
                           
                For(n=0; n<iter; n++) 
                    an = (a * a) - (b * b )+ cr;
                    bn = (2 * a * b)+ci;
                    a = an;
                    b = bn;
                    mig=(a*a)+(b*b);

                    If(mig>4) 
                        put_pixel(j, cory-k, (n+64));
                        Break;
                    End
     
                    If(mig<=4&&n==iter-1) 
                       put_pixel(j, cory-k, 1);
                       Break;
                    End
                End
                
                For(n=0; n<iter; n++) 
                    an2 = (a2 * a2) - (b2 * b2 )+ cr;
                    bn2 = (2 * a2 * b2)+ci;
                    a2 = an2;
                    b2 = bn2;
                    mig2=(a2*a2)+(b2*b2);

                    If(mig2>4) 
                        put_pixel(j2, cory-k, (n+64));
                        Break;
                    End

                    If(mig2<=4&&n==iter-1) 
                        put_pixel(j2, cory-k, 1);
                        Break;
                    End
                End

                If(scan_code!=0)  
                        exit("",0);
                End
        End

End

Loop

Frame;

    If(scan_code!=0)  
        exit("",0);
    End
End   
   
End