Page 1 of 2
DigitalClock Animation
Posted: Thu Sep 08, 2016 1:33 am
by 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
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 2:11 am
by netmaestro
Looks very nice! Great presentation, nice graphics
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 3:18 am
by 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
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 7:28 am
by davido
Very nice.
Thank you for sharing.
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 8:53 am
by 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.
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 9:09 am
by infratec
You have to close the login window, then you can download the file.
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 9:16 am
by Wolfram
Nice, works on OSX too
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 10:29 am
by 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
Re: DigitalClock Animation
Posted: Thu Sep 08, 2016 6:21 pm
by StarBootics
Kwai chang caine wrote: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
Re: DigitalClock Animation
Posted: Fri Sep 09, 2016 5:52 am
by 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
Re: DigitalClock Animation
Posted: Fri Sep 09, 2016 5:29 pm
by StarBootics
wilbert wrote: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
Re: DigitalClock Animation
Posted: Fri Sep 09, 2016 5:37 pm
by 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?!?
Re: DigitalClock Animation
Posted: Fri Sep 09, 2016 6:25 pm
by StarBootics
Keya wrote: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
Re: DigitalClock Animation
Posted: Fri Sep 09, 2016 6:34 pm
by 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
Re: DigitalClock Animation
Posted: Fri Sep 09, 2016 9:13 pm
by StarBootics
Keya wrote: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
