GFA-BASIC WIN300NA@layxllaavl4scamx1y1x2y2lxlyhxxyylminNBxyKlmin:GNCNDNENFff@}@NGNHNINJNKNLNM0fsyncvsync verticalsync closemetaPrecalcNNNONPNQNRNSNTangle00,750,PI NUNVNWDTMK &8HHPR&6Z5gt6gk0ZFractale par segments Version 2I 4@X6g`54h6gp:XY`YYY:ZFL$$$ Fv:XY`YYY:YYXY`:XY`YYY:Y>YhYp:XY`YYY:`+% :XY`YYY:-Y  & :XY`YYY: Z<OPENW#1,_X/2-320,_Y/2-220,640,440,&X110000TITLEW#1,"FractaleparsegmentsVersion2" =4X=20,`=_Y/2,h=_X-20,p=_Y/2X,`,,DOPEEKEVENTEXITIFMENU(1)=4MOUSE,,IF_Mess=WM_PAINT(X,`,,)ENDIFIF=1THENX=,`=(X,`,,)ENDIFIF=2THENh=,p=(X,`,,)ENDIF=INKEY$IF="+"INC (X,`,,)ENDIFIF="-"AND >1DEC (X,`,,)ENDIFEXITIF=""LOOPCLOSEW#164``lh HL^&|:>RXh|2:Bjn(,6PR <hXxp`x i`xxxp`!]'YYx=X y=` L= a= LMIN=Y WYVClic gauche = point de dpart, Clic droit : d'arrive Touches + et - pour changer LMINWY(Barre espace pour quitter W=PROCEDUREx=h-X,=p-`=SQR(x^2+^2)IF>0THENx=x/=ASIN(x)IFp<`THEN=PI-CLSTEXT0,0,"x="+STR$(X)+"y="+STR$(`)+"L="+STR$()+"a="+STR$()+"LMIN="+STR$( )TEXT0,20,"Clicgauche=pointdedpart,Clicdroit:d'arriveTouches+et-pourchangerLMIN"TEXT0,40,"Barreespacepourquitter"RETURN 4.PJtjz nPR&<OOOO/ /(/@/HY 6(@YYYY:@H@H(-DT!YYYY:H@!3|@;f@ YY YY:  !3|YYYY:H]@]Y(Y:=PROCEDURE(,,,)LOCAL ,(,@,HIF> THEN(==/4(,,,)@=SIN()*,H=COS()*=+@,=+H=-1.5707963267949(,,,)=-H,=+@=+2.35619449019234 =*2.82842712474619(,, ,)=+SIN()* =+COS()* =-2.35619449019234(,,,)(-H,+@,,()ELSELINE,,+SIN()*,+COS()*ENDIFRETURN"<4RF^Pv^r6` x(DZt8pv &EP