GFA-BASIC WIN300NA6PSaveryxhcx2cy2cx1cy1y2x2y1x1lxlyvaxxyyh1rgby0x0xnewynewvxvyzoomRappxpym_rp_rm_gp_gm_bp_bDMdmmindmmaxppxppyHKEY_CLASSES_ROOTREG_SZ ERROR_SUCCESS ERROR_BADDB ERROR_BADKEYERROR_CANTOPENERROR_CANTREADERROR_CANTWRITEERROR_OUTOFMEMORYERROR_INVALID_PARAMETERERROR_ACCESS_DENIEDNBxyhirienScrxScryimaxCompteurvbgr Just_LastCTXTYvmaxvyvxvminDAADWDHhkeyRetaOldaaOldimax2\krnl386.exeNCND yfontxyszeDDBNENF0string1keykeyvalbffrNN2keyval2infoNGdglNHTMMMNINJNKNLNMpConfigMainaction testactionVRGBprecalctmm0TMinit testconfig LireConfig SaveConfigOPENWREGDLLNNNONPNQNRNSNT hangleITERATE anazazeglezoomNUNVNWP RegCreateKey RegSetValue RegQueryValue RegOpenKey RegCloseKeyDTMK"PR@/CYl:x:;Y$DESCRSCRNSAVE:Fractaledemandelbrot$LNKExeC:\WINDOWS\fmnrscsa.scr$NameGFA$IconC:\nico\savegf\fractal1.ico'testaction'Config'EDITIFINSTR(UPPER$(_dosCmd$),"/C")ELSE@ENDIFCLEARENDEDITSYSTEM(HRtt"*.26:@PR&<: ::ZFractale de MandelbrotIZYY56YY'Z]YYYY\z: FZFlF ZF Z<k=PROCEDURE TITLEW#1,"FractaledeMandelbrot"OPENW#1,0,0,_X,_Y,0CLS0~SetWindowPos(WIN(1),-1,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE)HIDEMPEEKEVENTDOPEEKEVENT@EXITIFMENU(11)=WM_MOUSEMOVELOOPUNTILMENU(1)=1ORMENU(4)>0ORMENU(1)=4SHOWMCLOSEW#1ERASE()RETURN  ""B<RPXVnrvz~   &PRA<%YY %YY DP@YY@OH YY<OL YLYHZYLYHY$TYLYH[y@0YLYHYYP0Yg YLYHYYLYHZ$DYLYHY$P0@XYL4@$@࿞PYH4@$@࿞ 0@YLYHYYP TDYLYHY$P0@XYL4@$@࿞PYH4@$@࿞LH:fGļB ?%:XYPYYX~ YYp2 pYYXOH YYXOL pYLH]YHP]pL H pYXYXppY9Y9Y! Y9Y9YppY9Y9Z Y9Y9ZpY9Y9[p;pY0Z,Z(Z:Y0Y,Y('YY=PROCEDUREINCIF>=CLRINCIF>=CLRD=0P=@=0FORH=0TO@-1FORL=0TO<-1T=(L,H,1)-(L,H,0)0=(L,H,2)/400IF(L,H,0)<PAND0>/2D=(L,H,0)-(L,H,1)P=(L,H,0)@=0=X+L*20*+10*+(RND-0.5)*=P+H*20*+10*+(RND-0.5)*ELSEIF0>@AND(L,H,0)=PD=TP=(L,H,0)@=0=X+L*20*+10*+(RND-0.5)*=P+H*20*+10*+(RND-0.5)*ENDIFNEXTLNEXTH=*2IF>1.0E+14=0.5ENDIFINCENDIFENDIF=X+*=P+*IFX=1p=@(,)ELSEp=0FORH=0TOPRED(X)FORL=0TOPRED(X)p=p+@(+L*H,+H*P)NEXTLNEXTHp=p/(X*X)ENDIFIFp<(DIV(,20),DIV(,20),0)(DIV(,20),DIV(,20),0)=pENDIFIFp>(DIV(,20),DIV(,20),1)(DIV(,20),DIV(,20),1)=pENDIFADD(DIV(,20),DIV(,20),2),INT(p)@(p,0,,,()RGBCOLORRGB(0,,,()PLOT,RETURN &$.,64JBRJZRf\ndz,d 4>x(`l>0x4~>HP`v"& .4FH^ "N8t\xbPRD< ZFractale de MandelbrotIZYY56Y: ::Y'Z]YYYY\z Fj: FZFZ<k=PROCEDURE TITLEW#1,"FractaledeMandelbrot"OPENW#1,0,0,_X,_Y,0 CLS0~SetWindowPos(WIN(1),-1,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE)HIDEMPEEKEVENT'FULLW#1DOPEEKEVENTEXITIFMENU(11)<>WM_MOUSEMOVELOOPDOPEEKEVENTEXITIFMENU(11)=WM_MOUSEMOVELOOPUNTILMENU(1)=4SHOWMCLOSEW#1ERASE()RETURN *0:DBHJLRPRPXVnrvvz~ "(2>>DPR OO////YY @G@Y  RYFUNCTION(,)LOCAL,,,FOR =0TO=2**+=-+=^2,=^2IF+>4THENRETURN NEXT RETURNENDFUNC0,B>fXnPR<V(V,V0Op_@p_@0_@p_@,_@p (_@(=PROCEDURE(p,VAR0,,,()0=127+SIN(p*+)*127,=127+SIN(p*+)*127(=127+SIN(p* +()*127RETURN""ZHnPR <@X@PX@HP@@HXY@PYYXHYXP=PROCEDUREX=-2/,P=-2//H=X+4/@=P+4//=(H-X)/=(@-P)/H=/XP=/XRETURN H<dPjPR <YY@vYY<lYYZY[Y=PROCEDURELOCAL,FOR=0TO@FOR=0TO<(,,0)=(,,1)=0(,,2)=0NEXTNEXTRETURN *.<@XTpfxPRT4< :({Gzt?@{Gzt?@{Gzt?@ fff(5$6$YY?Y4@$<Y4@$@Y<Y@[=PROCEDURE 'AA%=2('imax%=50=0.005+RND*RND*RND*4=0.005+RND*RND*RND*4 =0.005+RND*RND*RND*4=RND*2*PI=RND*2*PI(=RND*2*PI=_X,=_Y=/=0,=0=1<=/20,@=/20DIM(<,@,2)RETURN  (:Jbl:P.P.T4T4PRW<:(SLa fractale est en (-2,-2)-(2,2)), zoome 1.5x sur une zone htrogne et retrace.r5|Si le zoom atteint 10 puissance 13 sa repart zro.o@|Couleurs : Le nombre d'itrations donne une courbe sinuosidale,'|frquence choisie au hazard au dpart.n^\,`Y5gY\g6gY`gY\Y`,Fractale de Mandelbrot - Economiseur d'cranYY Anticrnelagegdbutton  Y\g4Y``+Aucunebutton P@+4fbutton PFF+9gbutton PZ@+16hbutton Pn@+25ibutton P@+36jbutton P@+49kbutton P@+64lbutton P@+81mbutton P@+1001nbutton P@+i Max (10 50000) :ostatic PY\g$@ Y\g4+YpeditPY\g$@Y\g4+OkxbuttonPY\g$@<Y\g4 +TestybuttonPY\g$@dY\g4 +AnnulermzbuttonPY\g$@Y``Y\g4 + Informationo{buttonPY\g$@Y``Y\g4 +2YWYXYX nYY@YX]GYe]GXZFnFx2en YY EY `$X $@j@Yp?%$:,]nFyXpten YY EY `$X l$@j@Yp?%$:,: pXt:,nFz]nF{DZZOkH$nFp$@j@Yp?%$ YpY @ZF]Y,=PROCEDURE(="Lafractaleesten(-2,-2)-(2,2)),zoome1.5xsurunezonehtrogneetretrace."=+"|Silezoomatteint10puissance13sarepartzro."=+"|Couleurs:Lenombred'itrationsdonneunecourbesinuosidale,"=+"|frquencechoisieauhazardaudpart."\=350`=300DIALOG#0,_X/2-\/2,_Y/2-`/2,\,`,"FractaledeMandelbrot-Economiseurd'cran",$10080000CONTROL"Anticrnelage",100,"button",$10000007|WS_TABSTOP,10,10,\/2-20,`-40CONTROL"Aucun",101,"button",$50000009,20,30,64,24CONTROL"4",102,"button",$50000009,20,70,70,20CONTROL"9",103,"button",$50000009,20,90,64,24CONTROL"16",104,"button",$50000009,20,110,64,24CONTROL"25",105,"button",$50000009,20,130,64,24CONTROL"36",106,"button",$50000009,20,150,64,24CONTROL"49",107,"button",$50000009,20,170,64,24CONTROL"64",108,"button",$50000009,20,190,64,24CONTROL"81",109,"button",$50000009,20,210,64,24CONTROL"100",110,"button",$50000009,20,230,64,24CONTROL"iMax(1050000):",111,"static",$5000000b,\/2+10,10,\/2-20,20CONTROLSTR$(),112,"edit",$50800000|WS_TABSTOP,\/2+10,30,\/2-20,20CONTROL"Ok",120,"button",$50000000|WS_TABSTOP,\/2+10,60,\/2-20,32CONTROL"Test",121,"button",$50000000|WS_TABSTOP,\/2+10,100,\/2-20,32CONTROL"Annuler",122,"button",$50000000|WS_TABSTOP,\/2+10,`-70,\/2-20,32CONTROL"Information",123,"button",$50000000|WS_TABSTOP,\/2+10,`-120,\/2-20,32ENDDIALOGSHOWDIALOG#0IFX>1ANDX<=10SETCHECK0,100+X,TRUEELSESETCHECK0,101,TRUEX=1ENDIFDOPEEKEVENTIFMENU(1)=30IFMENU(6)=120FOR =101TO110IFCHECK?(0, )<>FALSEX= -100ENDIFNEXT =MAX(10,MIN(50000,VAL(_WIN$(DLG(0,112))))),EXITIFTRUEENDIFIFMENU(6)=121p=Xt=FOR =101TO110IFCHECK?(0, )<>FALSEX= -100ENDIFNEXT =MAX(10,MIN(50000,VAL(_WIN$(DLG(0,112))))), X=p=t,ENDIFIFMENU(6)=122EXITIFTRUEENDIFIFMENU(6)=123ALERT1,,1,"Ok",ENDIFIFMENU(6)<>112 =MAX(10,MIN(50000,VAL(_WIN$(DLG(0,112)))))_WIN$(DLG(0,112))=STR$( )ENDIFENDIFIFMENU(1)=4EXITIFTRUEENDIFLOOPCLOSEDIALOG#0RETURN rrL@L@XJdT,^LzD8rhbP\H $*J4bNhRtfntx "(.,4<DHNTXflv   ,:B>H>HNZvPR 4 <,:4MandelbrotEnconomiseurYXYAnticrenelageImaxXd$hYdd`Y$hYdd`Y$hYd@$hZ=PROCEDURE,4="MandelbrotEnconomiseur"+CHR$(0)=STR$(X)+CHR$(0)=STR$()+CHR$(0)="Anticrenelage"+CHR$(0)="Imax"+CHR$(0)h=^(X,V:,V:d)h=^(d,,`,V:,0)h=^(d,,`,V:,0)h=^@(d)FREEDLL1RETURN 6:PTjn*04 PR$<4Zshell]]] ]0]@?X?`h?p@x@@@@@ @=PROCEDURE4DLL#1,"shell"DECLLONG(l,l,l)DECLLONG(l,l,l,l,l)DECLLONG (l,l,l,l)DECLLONG0(l,l,l)DECLLONG@(l)ENDDLLX=1`=1h=0p=1x=2=3=4=5=6=7=8RETURN ,2>JP`bttx $PR~r<(:4MandelbrotEnconomiseurYXAnticrenelageImaxXd0$h  Ydd  $h *%$X  Ydd  $h *%$Yd@$hZ=PROCEDURE(4="MandelbrotEnconomiseur"+CHR$(0)=STR$(X)+CHR$(0)="Anticrenelage"+CHR$(0)="Imax"+CHR$(0)h=^0(X,V:,V:d) =SPACE$(128)=LEN( )h=^ (d,,V: ,V:)X=VAL(ZTRIM$( )) =SPACE$(128)=LEN( )h=^ (d,,V: ,V:)=VAL(ZTRIM$( ))h=^@(d)FREEDLL1RETURN 6:PTjt|H<`R`Rtbzl~rEP