PureBasic

Code : Tout sélectionner

;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

Code : Tout sélectionner

;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