Funny circles

[threedslider]

I have done in the past in the french forum so I share you as well :

Here my code :

Code: Select all

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Created by threedslider 17/10/2023
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

InitSprite()
InitKeyboard()
InitMouse()

OpenWindow(1, 0,0,800 / DesktopResolutionX(),600 / DesktopResolutionY(),"Funny circles", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(1),0,0,800,600,0,0,0)


Structure rond
  x.i
  y.i
  rayon.i
EndStructure


Myvar.rond

myvar\x = 10
myvar\y = 10
myvar\rayon = 5


Procedure Cercle(X, Y, *cl.rond)
  
  For n=0 To 1800
        cx = *cl\rayon * Cos(n)
        cy=  *cl\rayon * Sin(n)
        Plot(cx+*cl\x+ X,cy+*cl\y+Y,RGB(255,0,0)) 
      Next
EndProcedure   

Procedure sim(xx, yy, X1.i, Y1.i, iter)
  
  Myvar_other.rond
  
  myvar_other\x = 100
  myvar_other\y = 100
  myvar_other\rayon = 30
  
  For n=0 To 5
  
  d2 = Sqr((xx-myvar_other\x) * (xx-myvar_other\x) + (yy-myvar_other\y) * (yy-myvar_other\y))
  
  r2 = Sqr(myvar_other\rayon * myvar_other\rayon)
  
  in_d2 = Sqr((xx-x1)*(xx-x1) + (yy-y1)*(yy-y1))
   
    If d2*20 > r2 And in_d2*10 > r2
        myvar_other\rayon=Myvar_other\rayon-100/in_d2
        myvar_other\x = X1
        myvar_other\y = Y1
        Cercle(0,0,@myvar_other)      
       
       
     ; EndIf
      
;      Else
;        ;If d2 > r2
;         myvar_other\rayon =  30-n+2*2
;           ;myvar_other\x = xx
;          ;myvar_other\y =  yy
;          Cercle(0,0,@myvar_other)
;        ;EndIf
;        
        
   
   EndIf
 Next
 
 If iter > 0 ;And d2 > r2
     
     sim(xx, yy, X1+120, Y1, iter-1) 
  
 EndIf
    
EndProcedure
  

 ; Déplacement de la souris
  MouseLocate(0,0)  

Repeat
  ExamineKeyboard()
  Repeat 
    event = WindowEvent()
  Until event = 0

  ClearScreen(RGB(255,200,0))  
  
   
  ExamineMouse() ; Etat de la souris
  xm = MouseX()   ; Position en x de la souris                     
  ym = MouseY()   ; Position en y de la souris
  
  ;Debug x
  ;Debug y
  

  
 
  
  StartDrawing(ScreenOutput())
 
  For x = 0 To 4
   
    
    move.f  +  1/10000
    
      wave_x.f = Cos(x)  * 200
      
      wave_y.f =  Sin(x) * 200
      
      ;myvar\x = x+10
      ;myvar\y = y+10
      
       If xm < 3
        xm = 3
      Else
        If xm >750
          xm = 750
        EndIf
      EndIf
      
      If ym < 3
        ym = 3
      Else
        If ym > 550
          ym = 550
        EndIf
      EndIf
      
        
    cercle(xm,ym,@myvar)  
      
     sim(xm,ym, 100, 100+x*100, 5)

  Next
    
  StopDrawing()
  
    If  KeyboardPushed(#PB_Key_Escape)
      End
    EndIf
  
 FlipBuffers()
  
ForEver
End

[NicTheQuick]

It does nothing on my machine except 100% CPU usage.
Well, okay. It shows a few circles but nothing more.

[SPH]

Not "very" nice !

[Mr.L]

maybe you overcomplicate things a bit
here is a "slightly" modified version...

Code: Select all

InitSprite()
OpenWindow(0, 0, 0, 800,600, "Funny circles 2")
OpenWindowedScreen(WindowID(0),0,0,800,600,0,0,0)

Repeat
	mx = WindowMouseX(0)
	my = WindowMouseY(0)
	
	ClearScreen(RGB(255,200,0))  
	StartDrawing(ScreenOutput())
	DrawingMode(#PB_2DDrawing_Outlined)
	For y = 0 To 4
		For x = 0 To 5
			cx = 100 + x * 120
			cy = 60 + y * 120
			di.f = Sqr(Pow(cx - mx, 2) + Pow(cy - my, 2))
			If  di < 120
				scale.f = 1 - di / 120.0
				For i = 0 To 4
					Circle (cx, cy, Abs(30 - i * scale * 8), #Red)
				Next
			Else
				Circle (cx, cy, 30,#Red)
			EndIf
		Next
	Next
	Circle (mx, my, 5, #Red)
	StopDrawing()
	FlipBuffers()
	
	While WindowEvent()
		If Event() = #PB_Event_CloseWindow : End : EndIf
	Wend
ForEver

[Erolcum]

It does nothing on my machine except 100% CPU usage.
Well, okay. It shows a few circles but nothing more.

You need to go to the center of a circle with mouse, then gou out, then go in... it hypnotised me

[NicTheQuick]

It does nothing on my machine except 100% CPU usage.
Well, okay. It shows a few circles but nothing more.

You need to go to the center of a circle with mouse, then gou out, then go in... it hypnotised me

If I had the chance to do that I would try it. But it didn't work until I tested the version from Mr.L which now runs fluently.

[threedslider]

@Mr.L : Nice work

Yeah I am trying to make my own stuff from scratch That mean it is more technical into this

Thank you.

[threedslider]

If I had the chance to do that I would try it. But it didn't work until I tested the version from Mr.L which now runs fluently.

If you see my circles so it works well... Otherwise it will not show it