notepad-plus-plus/PowerEditor/Test/FunctionList/hollywood/unitTest

/****************************************************************
**                                                             **
** Name:        AsyncFX                                        **
** Author:      Andreas Falkenhahn                             **
** Version:     1.2                                            **
** Date:        17.01.19                                       **
** Interpreter: Hollywood 8.0                                  **
** Licence:     Sample program for Hollywood                   **
** Function:    Demonstrates asynchronous transition effects   **
**                                                             **
** History:                                                    **
**                                                             **
** 1.2: (07.01.19)                                             **
**                                                             **
** - uses the new @DIRECTORY preprocessor command now which    **
**   will automatically link all pics when compiling           **
**                                                             **
** 1.1: (29.03.13)                                             **
**                                                             **
** - added BeginRefresh()/EndRefresh() section for optimized   **
**   drawing on supported systems                              **
**                                                             **
** 1.0: (17.09.08)                                             **
**                                                             **
** - initial release                                           **
**                                                             **
****************************************************************/

/*
** Important! Check if the used Hollywood version is at least
** version 8.0!
*/
@VERSION 8,0

@DIRECTORY 1, "pics"

@SPRITE 1, "buttons.png", {Frames = 2, Width = 137, Height = 24, Transparency = $ff0000}

/*
** Initial display dimensions
*/
@DISPLAY {Width = 800, Height = 600}

/* check if a picture is already on screen */
Function p_CheckPic(x)

	For Local k = 0 To 15
		If p[k].brush = x Then Return(True)
	Next
	
	Return(False)	

EndFunction

/* select a random effect */
Function p_ChooseFX(use_globfx)

	Local found = False
	Local type
	
	; do we want a global effect or a new effect for every object?
	If (use_globfx = True) And (bstate = 2) Then Return(globfx)
	 
	While found = False
	
		type = GetRandomFX(True)
		
		; no #SCROLL effects please! They'd corrupt the display because we aren't using layers!
		Switch type
		Case #SCROLLWEST
		Case #SCROLLEAST
		Case #SCROLLNORTH
		Case #SCROLLSOUTH
		Case #SCROLLNORTHEAST
		Case #SCROLLSOUTHEAST
		Case #SCROLLSOUTHWEST
		Case #SCROLLNORTHWEST
		Default
			found = True
		EndSwitch
			
	Wend

	Return(type)
						
EndFunction

/* start new transition effect */
Function p_TOFunc(msg)

	Local t
	Local k = msg.userdata	
	
	; choose a new global effect if we're in static mode!
	If (k = 0) And (bstate = 2) Then globfx = p_ChooseFX(False)

	; randomly choose a new picture but it must not be on screen!							
	Repeat
		t = Rnd(num)
	Until p_CheckPic(t) = False
	
	; remember picture		
	p[k].brush = t
	
	; go!	
	p[k].drawfunc = DisplayBrushFX(p[k].brush + 1, p[k].x * 200, p[k].y * 150, {Async = True, Type = p_ChooseFX(True), Parameter = #WHITE})
	p[k].active = True
	
EndFunction

Function p_SyncedRestart()

	For Local k = 0 To 15 Do p_TOFunc({userdata = k})

EndFunction

/* our main loop */
Function p_MainLoop()

	BeginRefresh
	
	For Local k = 0 To 15
	
		If p[k].active = True
		
			If AsyncDrawFrame(p[k].drawfunc) = True

				p[k].active = False
			
                                If bstate = 2

                                	; We're in static mode --> make sure our FX are absolutely sync'ed

                                        If k = 15 Then SetTimeout(Nil, p_SyncedRestart, 1000)

                                        p[k].cleartimeout = False

                                Else

					; FX has finished!
					; --> wait 1 second and then display next pic
					; note that we have to use SetTimeout() because we are in a callback and must
					; not call functions that block the system (e.g. do not use Wait() in a callback!)

					p[k].timeout = SetTimeout(Nil, p_TOFunc, 1000, k)
                                        p[k].cleartimeout = True
				EndIf
			EndIf
		EndIf	
	Next
	
	EndRefresh
		
EndFunction

/* start all effects */
Function p_Start16FX()

	; start from new!
	For Local k = 0 To 15
		p[k].drawfunc = DisplayBrushFX(p[k].brush + 1, p[k].x * 200, p[k].y * 150, {Async = True, Type = p_ChooseFX(True), Parameter = #WHITE})
		p[k].active = True
	Next

EndFunction

/* scan files and start the transition effects */
Function p_Init()

	Local t

	; count files
	num = CountDirectoryEntries(1)

	; load brushes
	For Local k = 1 to num Do LoadBrush(k, GetDirectoryEntry(1, PadNum(k, 2) .. ".jpg"))
	
	p = {}

	For Local k = 0 To 15 Do p[k] = {brush = -1}

        ; generate initial picture layout
	For Local k = 0 To 15
		Repeat
			t = Rnd(num)
		Until p_CheckPic(t) = False
		p[k].brush = t
	Next

	Local k = 0

        ; generate x & y coordinates for our FX
	For Local y = 0 To 3

		For Local x = 0 To 3

			p[k].x = x
			p[k].y = y
		       
			k = k + 1
		Next
	Next

        ; start all FX at once
        p_Start16FX()

EndFunction

/* this function gets called when the user presses a button */
Function p_EventFunc(msg)

	If msg.id = bstate Then Return
	
	bstate = msg.id
	
	; update button state
	DisplaySprite(1, 654, 570, bstate)
	
	; cancel all async drawings or clear timeouts
	For Local k = 0 To 15
	
		If p[k].active = True
			CancelAsyncDraw(p[k].drawfunc)
			p[k].active = False
		Else
			If p[k].cleartimeout = True Then ClearTimeout(p[k].timeout)
		EndIf
	Next
	
	; clear screen
	Box(0, 0, 800, 600, #BLACK)	
	
	; choose a new global effect if we're in static mode
	If bstate = 2 Then globfx = p_ChooseFX(False)
	
        p_Start16FX()

EndFunction

p_Init()

SetFillStyle(#FILLCOLOR)

SetInterval(Nil, p_MainLoop, 1000 \ 50)  ; 50 fps

bstate = 1

MakeButton(1, #SIMPLEBUTTON, 654, 570, 64, 24, {OnMouseUp = p_EventFunc})
MakeButton(2, #SIMPLEBUTTON, 727, 570, 64, 24, {OnMouseUp = p_EventFunc})

DisplaySprite(1, 654, 570)

EscapeQuit(True)

Repeat
	WaitEvent
Forever