;je commence à en avoir marre des screens ^^
;une fenetre ca va plus vite
OpenWindow(1, 100, 100, 640, 480, #PB_Window_MinimizeGadget, "")
;allez savoir pourquoi c'était codé comme ca ^^
RandomSeed(ElapsedMilliseconds())
x.f = Random(RGB(255,255,255)-1)
y.f = Random(RGB(255,255,255)-1)
;i va servir à compter le nombre de plots réalisés
i.l = 0
;n va permetre d'identifier 3 cas que je ne saurais expliquer ^^
n.l
;on recrée un germe aléatoire (ca fait classe dit comme ca ^^)
RandomSeed(ElapsedMilliseconds())
;et là on va dessiner dans la fenetre...
Repeat
;donc on a 300 valeurs possibles...
n = Random(299)
;sur votre gauche vous pouvez admirer le premier cas de figure...
If n <= 100
x * 0.5
y * 0.5
EndIf
;ici on observe le second
If n <= 200 And n > 100
x = (x + 0.5) * 0.5
y = (y + 1) * 0.5
EndIf
;et là il ne reste plus que le dernier...
If n > 200
x = (x + 1) * 0.5
y * 0.5
EndIf
;apres les valeurs à l'écran je sais pas pourquoi on les calcule ainsi ^^
xx = x*581+25
yy = y*350+50
;apres c'est moi qui fait gaffe à bien dessiner dans la fenetre
If xx>=0 And yy>=0 And xx<640 And yy<480
If StartDrawing(WindowOutput())
Plot(xx, yy, RGB(255,255,255))
StopDrawing()
EndIf
EndIf
;et hop un plot de plus
;(je considere qu'il a forcément eu lieu)
i + 1
;je mes à jour le titre de la fenetre
SetWindowTitle(1, Str(i)+" itérations effectuées sur la fractale.")
;et j'avais la flemme de passer par un thread
;alors pas de WaitWindowEvent()
event = WindowEvent()
Until event=#PB_Event_CloseWindow
;là on a fini de dessiner alors je mange moins de temps cpu...
Repeat
event = WaitWindowEvent()
Until event=#PB_Event_CloseWindow
;je commence à en avoir marre des screens ^^
;une fenetre ca va plus vite
InitSprite()
OpenWindow(1, 100, 100, 640, 480, #PB_Window_MinimizeGadget, "")
OpenWindowedScreen(WindowID(),0,0,640,480,0,0,0)
;allez savoir pourquoi c'était codé comme ca ^^
RandomSeed(ElapsedMilliseconds())
x.f = Random(RGB(255,255,255)-1)
y.f = Random(RGB(255,255,255)-1)
; Pour le flipBuffer
Multiplie.l = 1
;i va servir à compter le nombre de plots réalisés
i.l = 0
;n va permetre d'identifier 3 cas que je ne saurais expliquer ^^
n.l
;on recrée un germe aléatoire (ca fait classe dit comme ca ^^)
RandomSeed(ElapsedMilliseconds())
;et là on va dessiner dans la fenetre...
Repeat
;donc on a 300 valeurs possibles...
n = Random(299)
;sur votre gauche vous pouvez admirer le premier cas de figure...
If n <= 100
x * 0.5
y * 0.5
EndIf
;ici on observe le second
If n <= 200 And n > 100
x = (x + 0.5) * 0.5
y = (y + 1) * 0.5
EndIf
;et là il ne reste plus que le dernier...
If n > 200
x = (x + 1) * 0.5
y * 0.5
EndIf
;apres les valeurs à l'écran je sais pas pourquoi on les calcule ainsi ^^
xx = x*581+25
yy = y*350+50
;apres c'est moi qui fait gaffe à bien dessiner dans la fenetre
If xx>=0 And yy>=0 And xx<640 And yy<480
If StartDrawing(ScreenOutput())
Plot(xx, yy, RGB(255,255,255))
StopDrawing()
EndIf
EndIf
;et hop un plot de plus
;(je considere qu'il a forcément eu lieu)
i + 1
If i = 50 * multiplie ; affiche tous les 50
FlipBuffers()
Multiplie + 1
EndIf
;je mes à jour le titre de la fenetre
SetWindowTitle(1, Str(i)+" itérations effectuées sur la fractale.")
;et j'avais la flemme de passer par un thread
;alors pas de WaitWindowEvent()
event = WindowEvent()
Until event=#PB_Event_CloseWindow
;là on a fini de dessiner alors je mange moins de temps cpu...
Repeat
event = WaitWindowEvent()
Until event=#PB_Event_CloseWindow
alors j'ai mis un écran rafraichit tous les 50 plots() et c'est sympa
