more ST remakes

[KrazyK]

So I finally decided to dig out the laptop and rip another intro from the ST for the first time in about 7 months. So i've nearly finished this one by Scum Of The Earth. It just needs a bit of tidying up with the moving backgrounds and it will be done.
I'll post the code once it's done too. 

[aNdy]

Looking forward to it!

[KrazyK]

Here's the final version (so far!) along withe commented PB code.
You will need the OSME x86 library installed for this to work, never fear though, i've included it here too.

[aNdy]

Good stuff KrazyK, as always!

I love a good VU Meter and your implementation here is easy to read code wise and quite effective.

Thanks for the code share!

[Bobo220673]

Hi!
Nice work.

KrazyK, i know you lost many Sources of your Libs, so i update the Source to a no Lib Version.
Your lib was build with the very old "pbosl", this Source use Memdll. Its very fast and easy to use...
I hope this help to rebuild your lib Sources.

[KrazyK]

Many thanks for the no lib version Bobo220673 
I'll be using this in future.
I'm slowly getting back into it with this quick screen. It took a couple of days to do from ripping to compiling.
I have a few more already in the pipeline.

[KrazyK]

Here's another quick one from TCB.  I adapted this code for PureBasic from the excellent codef remake by NewCore.
This is a screen from the SoWatt Demo by The CareBears way, way back in 1989.
Full source code available here for you to play with too. 

[edit]
If anyone doesn't have my transparent image drawing library then add the following somewhere at the top of the code:

Code: [Select]

Import "msimg32.lib"
TransparentBlt( hdcDest, nXOriginDest, nYOriginDest, nWidthDest, hHeightDest, hdcSrc, nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc, crTransparent )
EndImport

ProcedureDLL KK_DrawTransparentImage(DestImage,SourceImage,xdest,ydest,transcol)
hdcSrc2 = CreateCompatibleDC_(DestImage)
SelectObject_(hdcSrc2, ImageID(SourceImage))
TransparentBlt(DestImage,xdest,ydest,ImageWidth(SourceImage),ImageHeight(SourceImage),hdcSrc2,0,0,ImageWidth(SourceImage),ImageHeight(SourceImage),transcol)
DeleteDC_(hdcSrc2)
EndProcedure