'___________________________________________________
'  BCC# 26 Beitrag - ComNik
'   basierend auf einer Idee von kriD!
'___________________________________________________

AppTitle="Bcc26# - Partikel ComNik"
Graphics(400,300,0,60)

 SeedRnd(MilliSecs()) 

  test_bild =  LoadImage("bild.png")
   
 Global p:partikel
 
 Global p_list:TList = CreateList()
 
 test:TPixmap = LockImage(test_bild)
  wp_count = 0
  For x = 0 To 399
   For y = 0 To 299
     Local argb:Int = ReadPixel(test,x,y)
      a = (argb And $FF000000)/$1000000
      r = (argb And $FF0000)/$10000
      g = (argb And $FF00)/$100
      b = argb And $FF
      'Print(r+" "+b+" "+g)
     If r < 255 And Not g < 255 And Not b < 255
      p = New partikel
       p.x = 200
       p.y = 150
       p.zx = x
       p.zy = y
       'p.color = argb
       p.speed# = Rnd(4,6)
      p.winkel# = ATan2(p.zx-p.x,p.zy-p.y)
     ListAddLast(p_list,p)
     p_count:+ 1
     'Print(r+" "+b+" "+g) 
     End If
   Next
  Next
 
 UnlockImage(test_bild)

Type partikel
 Field x,y
 Field zx,zy
 Field speed#
 Field color
 Field winkel#
End Type

Global gr = Rnd(50,230)
Global gg = Rnd(50,230)
Global gb = Rnd(50,230)

Global cr = Rnd(50,230)
Global cg = Rnd(50,230)
Global cb = Rnd(50,230)

Global random_color = 1
Global random_timer = MilliSecs()

SetClsColor(cr,cg,cb)
Repeat
Cls 

  'DrawText(p_count,0,0)
  SetColor(255,255,255)
  DrawText("Random Color(Partikel): aus/an = Space",0,0)

  If KeyHit(key_space) Then random_color = random_color * -1
 
  random = MilliSecs()
 If random - 1000 >= random_timer
  If random_color > 0
   gr = Rand(50,230)
   gg = Rand(50,230)
   gb = Rand(50,230)
  End If
  random_timer = MilliSecs()
 End If
 
   update_partikel()
  'DrawImage(gfx,0,0)

Flip
Until KeyDown(key_escape)


Function SetColorInt(argb)
   a = (argb And $FF000000)/$1000000
   r = (argb And $FF0000)/$10000
   g = (argb And $FF00)/$100
   b = argb And $FF
 SetColor(r,g,b)
End Function

Function update_partikel()
 For p = EachIn p_list
  ' SetColorInt(p.color)
   SetColor(gr,gg,gb)
   p.winkel# = ATan2(p.zx-p.x,p.zy-p.y)
   p.x:+ Sin(p.winkel#)* p.speed#
   p.y:+ Cos(p.winkel#)* p.speed#
   Plot(p.x,p.y)',1,1)
 Next
End Function