DigitalClock Animation

[StarBootics]

Hello everyone,

A DigitalClock screen animation that can be use as a screen saver if you wish. The source code is too big to be posted directly, so this is the download link.
https://www.dropbox.com/s/snegzvvq4gemt ... k.zip?dl=0
https://www.dropbox.com/s/bn0p3nwgg5urs ... t.png?dl=0

Best regards
StarBootics

[netmaestro]

Looks very nice! Great presentation, nice graphics

[StarBootics]

Hello everyone

I forget to change the date mask to "English" style. Just change this line :

Code: Select all

Date::Initialize(CenterX + LED_Size, CenterY + Y_reduce + 200, 6, "%mm-%dd-%yyyy")

Best regards
StarBootics

[davido]

Very nice.
Thank you for sharing.

[Joris]

If I wont to download the zip I need to log in and give my personal info to dropbox.
I don't wont that, as I know it will be a start of a new spam-war.

[infratec]

You have to close the login window, then you can download the file.

[Wolfram]

Nice, works on OSX too

[Kwai chang caine]

Splendid !!! i have tyhe space vertigo with this clock
Works very well, except just, i don't know if it's normal but the last number is under the right points of colors
Else very nice effect, thanks for sharing

[StarBootics]

Splendid !!! i have tyhe space vertigo with this clock
Works very well, except just, i don't know if it's normal but the last number is under the right points of colors
Else very nice effect, thanks for sharing

Can you run this code and post back the Debugger output ?

Code: Select all

ExamineDesktops()
Width = DesktopWidth(0)
Height = DesktopHeight(0)
Depth = DesktopDepth(0)

Debug Width
Debug Height
Debug Depth

Best regards
StarBootics

[wilbert]

It looks nice but unfortunately doesn't work on the OSX x64 version.
It has to do with values being types as .l instead of .i
All ...SpriteID variables need to be .i

[StarBootics]

It looks nice but unfortunately doesn't work on the OSX x64 version.
It has to do with values being types as .l instead of .i
All ...SpriteID variables need to be .i

Corrected, the new source should work out of the box on OSX x64.

I'm currently reworking the FullScreen Module to select the biggest Screen resolution supported so stay tuned.

Best regards
StarBootics

[Keya]

i just get "Can't open screen !" error message from Main.pb, on both WinXP-32 and Win7-64 and OSX El Capitan 64. PB 5.42LTS
any chance of a screenshot please?!?

[StarBootics]

i just get "Can't open screen !" error message from Main.pb, on both WinXP-32 and Win7-64 and OSX El Capitan 64. PB 5.42LTS
any chance of a screenshot please?!?

https://www.dropbox.com/s/bn0p3nwgg5urs ... t.png?dl=0
You should have something like this.

Edit : I reuploaded the source with the reworked FullScreen Module

Best regards
Starbootics

[Keya]

it works in OSX now but still the same error in WinXP and Win7
very beautiful and i love the starfield!
[edit] and WOW im amazed by how little code there is to move the starfield!! super cool (always wondered how these were done)

Code: Select all

    If StartDrawing(ScreenOutput())     
      For Star3DID = 0 To #STAR3D_MAX - 1       
        Instance\Star3D[Star3DID]\Pz = Instance\Star3D[Star3DID]\Pz - Instance\Star3D[Star3DID]\Speed 
        SX = Instance\Star3D[Star3DID]\Px / Instance\Star3D[Star3DID]\Pz * 100 + Instance\ScreenW / 2
        SY = Instance\Star3D[Star3DID]\Py / Instance\Star3D[Star3DID]\Pz * 100 + Instance\ScreenH / 2
        If SX <= 0 Or SY <= 0 Or SX >= Instance\ScreenW Or SY >= Instance\ScreenH Or Instance\Star3D[Star3DID]\Pz < 1           
          RefreshStar3D(Instance\Star3D[Star3DID], Instance\SpeedMin)        
        Else           
          Couleur = Int(255 - Instance\Star3D[Star3DID]\Pz * (255/1000)) ;<- i see this is unfading the stars in, nice touch:)
          Plot(SX, SY, RGB(Couleur,Couleur,Couleur))           
        EndIf        
      Next       
      StopDrawing()      
    EndIf

[StarBootics]

it works in OSX now but still the same error in WinXP and Win7
very beautiful and i love the starfield!
[edit] and WOW im amazed by how little code there is to move the starfield!! super cool (always wondered how these were done)

You should thanks benny for that code.

By the way did you try my version of Snakes of balls demo on WinXP and Win 7 ?

Best regards
StarBootics