PB10 - Spinner control

[Patrice Terrier]

Here are two more spinners.

• blackblob.ski
• watertore.ski

Theo--

ski spinners are working in full composited mode using variable opacity, it means they can render glass and transparent marerial, just like real objects.

...

[Theo Gottwald]

Thanks, i may really use them in my next project!
This your artwork is so amazing.

Btw. The watertore.ski has a slight bug: See attached picture.

[Patrice Terrier]

Theo

The credit must also be given to all the artists worlwide publishing their artwork for free on the web.

For example look at this one:
http://www.thisiscolossal.com/2013/07/carl-warner-bodyscapes/?src=footer

[Patrice Terrier]

Theo

Thanks for the report, i have reworked the watertore.ski, and it is attached to this post.

...

[Theo Gottwald]

If its about finding bugs you can count on me Patrice. 
This is not bad intention, but i take a closer look on a program, the bugs easily open up to me.
Even if i am not searching.
But let me say that your software is very clean and alltogether unbeaten from a design standpoint from what i have seen until now.

[Patrice Terrier]

This is not what i would call a bug, because it is not software related, just a few frames of the original graphic animation that i forget to edit with Photoshop to setup the alpha channel of the layer to NULL.
My eyes do not have anymore the accuracy they had... before i started full time programming 35 years ago

[Theo Gottwald]

Seen like this, your stuff is bug free. This is what people in this forum expect.
This is how PowerBasic was many years, this is why most people are here.

[Patrice Terrier]

These are based on the work of PATAKK, alias Paolo Ceric, from Zagreb Croatia.

The original where GIF files, but i translated all of them to work in full GDImage transparent composited mode, then i reworked each of them with Photoshop to produce these fine 6 spinners.

My favorite one is: Crystal.ski, but i also like the others, or i won't have spent one full day to create them

[Jim Dunn]

Patrice, very nice job on zSpinPB10.sll.  As an aside, I added a dir scan to your test file (below), and put all the SKI files into the "SpinFolder" so I could just press enter and enjoy.  I noticed that I can't click "thru" the animations, sometimes I have to move them out of the way to click the OK button.

Code Select Expand

#COMPILE EXE "SpinTest.exe"

'DECLARE FUNCTION zSpinnerInit LIB "zSpin.dll" ALIAS "zSpinnerInit" (BYVAL hParent AS DWORD, zTmp AS ASCIIZ, BYVAL nSpeedDelay AS LONG) AS DWORD
'DECLARE      SUB zSpinnerClose LIB "zSpin.dll" ALIAS "zSpinnerClose" ()
'#LINK "zSpin.sll"
#LINK "zSpinPB10.sll"

FUNCTION PBMAIN
    LOCAL hParent AS DWORD
    LOCAL nSpeedDelay AS LONG
    LOCAL SpinFolder, sCaption AS STRING

    hParent = 0
    sCaption = "Spinner"
    SpinFolder = EXE.PATH$ + "SpinFolder\"

    DIM Listing(1 TO 1) AS WSTRING
    LOCAL dwCount, x AS DWORD
    dwCount = DirScan(SpinFolder & "*", Listing())
    FOR x = 1 TO dwCount
        CALL zSpinnerInit(hParent, SpinFolder & Listing(x), 0)
        MSGBOX Listing(x), , Listing(x)
    NEXT x

    CALL zSpinnerClose()

END FUNCTION

FUNCTION DirScan(BYVAL sMask AS WSTRING, BYREF Listing() AS WSTRING) AS DWORD
    ' sMask = "*"
    ' Listing() will be populated
    LOCAL x AS DWORD
    LOCAL a AS WSTRING

    x = 0
    a = DIR$(sMask,7) ' 7 for files, 16 for folders, 23 for files and folders
    WHILE LEN(a)
        INCR x
        REDIM PRESERVE Listing(1 TO x)
        Listing(x) = a
        a = DIR$(NEXT)
    WEND
    DIR$ CLOSE

    FUNCTION = x
END FUNCTION

[Patrice Terrier]

I wrote a small command line utility to run any spinner from a DOS prompt (or shell)

You can specify the speed of the animation at the time you start the spinner this way:

C:\Spinner\FWS.exe d:\SpinnerFolder\crystal.ski;33

;33 is the speed in ticks count per second ranging from 1 to any value.
note: there is 1000 ticks per second.

If you do not specify a speed value, then it will use the default animation speed for that spinner.

To close a running spinner, select it, then press the ESC key, or press ALT+F4

Note: You can run multiple instance of FWS.

...

[Patrice Terrier]

I know you will love... her

[Theo Gottwald]

Hahaha is it Power Vivans daughter :-)?

[Patrice Terrier]

Theo--

No, she is her grand daughter 

[Patrice Terrier]

Three more 3D based, using variable opacity .

[Patrice Terrier]

This one is based on the work of Matthew Brand.

Five hours of Photoshop's work to clean up the original gif file, i must be crazy

...