PureBoard

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()
ExamineDesktops()
Global sh.l,sw.l,sd.l
sw = DesktopWidth(0)
sh = DesktopHeight(0)
sd = DesktopDepth(0)

OpenScreen(sw,sh,sd,"PlasmaFlash_v1.0")

; Meine Blitzprozedur
;PlasmaFlash(StartpositionX,StartpositionY,EndPositionX,EndPositionY,Rot,Grün,Blau,Qualität-Menge der Unterteilungen,Menge der einzelblitze,zoom,Zufallsradius)
Procedure.b   PlasmaFlash(sposx.l, sposy.l, eposx.l, eposy.l, fred.l, fgreen.l, fblue.l,quality.l,density.l,size.l,radius.l)
   pi.f = 3.1415926
   
   If density => 0 And quality > 0 And size > 0
        For x = 0 To density
            olposx.l = sposx.l
            olposy.l = sposy.l
            For y = 0 To quality
                ntn.f = (olposy-eposy)/(olposx-eposx)
                nbr.f = ATan(ntn)
                rad.f = (nbr/pi)*180
                If  eposx > olposx
                    rad + 180
                EndIf
                nx = Cos(2*pi*((Random(radius)-radius/2+180+rad)/360))*(size/((quality+1)/2))
                ny = Sin(2*pi*((Random(radius)-radius/2+180+rad)/360))*(size/((quality+1)/2))
                If Sqr(Pow(olposx-eposx,2)+Pow(olposy-eposy,2)) < (size/quality)
                    nx = eposx-olposx
                    ny = eposy-olposy
                EndIf
                Line(olposx,olposy,nx,ny,RGB(fred-(fred / quality)*y,fgreen-(fgreen / quality)*y,fblue-(fblue / quality)*y))    
                olposx + nx
                olposy + ny  
            Next
        Next
        ProcedureReturn 1
    Else
        ProcedureReturn 0
    EndIf
EndProcedure

qual = 200
den = 1
sz = 200
dg = 180

rd = 200
gr = 50
bl = 10
Repeat
    ExamineKeyboard()
    ExamineMouse()
    
    
    If KeyboardPushed(#PB_Key_A)
        qual + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_Z)
        qual - 1
    EndIf
    
    If KeyboardPushed(#PB_Key_S)
        den + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_X)
        den - 1
    EndIf  
    
    If KeyboardPushed(#PB_Key_D)
        sz + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_C)
        sz - 1
    EndIf  
    If KeyboardPushed(#PB_Key_F)
        dg + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_V)
        dg - 1
    EndIf      
     If KeyboardPushed(#PB_Key_G)
        rd + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_B)
        rd - 1
    EndIf         
    If KeyboardPushed(#PB_Key_H)
        gr + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_N)
       gr  - 1
    EndIf   
    If KeyboardPushed(#PB_Key_J)
        bl + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_M)
        bl - 1
    EndIf   
    
    
    StartDrawing(ScreenOutput())
    Circle(sw/2,sh/2,16,RGB(70,70,70))

    PlasmaFlash(sw/2,sh/2,MouseX(),MouseY(),rd,gr,bl,qual,den,sz,dg)
    
    DrawingMode(1)
    FrontColor(255,255,255)
    Locate(0,0)
    DrawText("Rot: " + Str(rd)+"   (+G -B)")
    Locate(0,16)
    DrawText("Grün: " + Str(gr)+"   (+H -N)")
    Locate(0,32)
    DrawText("Blau: " + Str(bl)+"   (+J -M)")
    Locate(0,48)
    DrawText("Qualität: " + Str(qual)+"   (+A -Y)")
    Locate(0,64)
    DrawText("Dichte: " + Str(den)+"   (+S -X)")
    Locate(0,80)
    DrawText("Größe: " + Str(sz)+"   (+D -C)")
    Locate(0,96)
    DrawText("Radius: " + Str(dg)+"   (+F -V)")

    Line(MouseX()-8,MouseY(),16,0,RGB(255,255,0))
    Line(MouseX(),MouseY()-8,0,16,RGB(255,255,0))
    StopDrawing()
    
    FlipBuffers()
    ClearScreen(0,0,0)

Until KeyboardPushed(#PB_Key_Escape)
CloseScreen()
End