Author Topic: Carousel2  (Read 10678 times)

0 Members and 1 Guest are viewing this topic.

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2395
  • Gender: Male
    • www.zapsolution.com
Carousel2
« on: September 30, 2007, 08:21:57 PM »
CAROUSEL II

This is the first demo project written with GDImage version 4.00 to run specifically on VISTA.





GDImage 4.00 is 100% compatible with DWM and it is able to draw directly on the glass section at full speed.

The project is provided with its complete carousel.bas source code + the latest zskin.inc file.

Members of this forum are the first to see it!

Note : The ZIP file has been updated to fix the problem reported by Petr in the next message.


« Last Edit: August 09, 2011, 02:18:15 PM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Petr Schreiber

  • Sr. Member
  • ****
  • Posts: 411
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #1 on: September 30, 2007, 08:55:38 PM »
Hi Patrice,

this really rocks again !
Thanks for sharing !

It works perfectly, except one way to do GPF:
  • Run carousel.exe ( ahem )
  • Click "Marquee text"
  • Click "Variable opacity"
  • Click "Wallpaper"
  • Click "Use 3D depth"
  • Click "Self rotation" - GPF :(

But this is just special case, when I first click "Play carousel animation" button, then checking the above options works like a charm.
It really looks cool!


Thanks,
Petr

P.S. Hope this time it is not evident only in my version of localised XPs :-\ Today I found bug in almost every software launched ( "Paradise" adventure game - seems I have to play it from beggining, "ProgeCAD" free version of CAD falls into darkness of GPF when I try to open associated file, ... ). Is it a curse ? Why ? Can I be saved ? :D
AMD Sempron 3400+ | 1GB RAM @ 533MHz | GeForce 6200 / GeForce 9500GT | 32bit Windows XP SP3

psch.thinbasic.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2395
  • Gender: Male
    • www.zapsolution.com
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #2 on: September 30, 2007, 09:20:18 PM »
Until I post a new zip, here is how to fix it:

Code: [Select]
         CASE %ID_SELFROTATION
              UseRotate& = zGetCheckButtonStatus(zGetMainItem(%ID_SELFROTATION))
              'UseRotate& = SendMessage(GetDlgItem(hWnd, %ID_SELFROTATION), %BM_GETCHECK, 0, 0)
              IF LBOUND(gSpriteData) > 1 THEN
                 FOR K& = 1 TO %ID_MAX_SPRITE
                     IF UseRotate& = 0 THEN
                        gSpriteData(K&).hBitmap = ZI_CreateMirrorBitmapFromFile(gSpriteData(K&).ImageName, bmW&, bmH&)
                     ELSE
                        gSpriteData(K&).hBitmap = ZI_CreateBitmapFromFile(gSpriteData(K&).ImageName, bmW&, bmH&)
                     END IF
                     CALL ZD_DrawBitmapToCtrl(zGetMainItem(%ID_CTRL), gSpriteData(K&).xPos, gSpriteData(K&).yPos, _
                                              gSpriteData(K&).hBitmap, &HFFFFFFFF, gSpriteData(K&).ID, %ZS_VISIBLE)
                 NEXT
              END IF

Add IF LBOUND(gSpriteData) > 1 THEN to make sure the sprite have been loaded first...

Thank you for the feedback.

Patrice Terrier
www.zapsolution.com
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Kent Sarikaya

  • Sr. Member
  • ****
  • Posts: 368
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #3 on: September 30, 2007, 10:54:45 PM »
Sorry am confused, do we need VISTA to run the program or will it run on XP?
The screenshot looks so yummy, really cool stuff you are doing Patrice that is for sure!!

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2395
  • Gender: Male
    • www.zapsolution.com
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #4 on: September 30, 2007, 11:02:50 PM »
It "should" work on XP in "standard mode", but I didn't test it myself, because the main purpose was to make it run on VISTA  ;)
« Last Edit: September 30, 2007, 11:06:38 PM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Petr Schreiber

  • Sr. Member
  • ****
  • Posts: 411
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #5 on: October 01, 2007, 09:19:11 AM »
Hi Kent,

it works on XP Home.
There is some difference comparing to image Patrice posted - I have "blended" not the image canvas, but the rest of dialog, see on attachement.


Petr
« Last Edit: October 01, 2007, 09:22:32 AM by Petr Schreiber »
AMD Sempron 3400+ | 1GB RAM @ 533MHz | GeForce 6200 / GeForce 9500GT | 32bit Windows XP SP3

psch.thinbasic.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2395
  • Gender: Male
    • www.zapsolution.com
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #6 on: October 01, 2007, 02:28:39 PM »
Carousel2.zip has been updated to work on both VISTA and XP.

However on XP for the purpose of the fast animation, BLUR and CRYSTAL compositing are disabled.

by the way I have also fix a little behavior that was added when fixing the Petr's submission.

The good code for CASE %ID_SELFROTATION is there:
Code: [Select]
         CASE %ID_SELFROTATION
              UseRotate& = zGetCheckButtonStatus(zGetMainItem(%ID_SELFROTATION))
              FOR K& = LBOUND(gSpriteData) TO UBOUND(gSpriteData)
                  IF UseRotate& = 0 THEN
                     gSpriteData(K&).hBitmap = ZI_CreateMirrorBitmapFromFile(gSpriteData(K&).ImageName, bmW&, bmH&)
                  ELSE
                     gSpriteData(K&).hBitmap = ZI_CreateBitmapFromFile(gSpriteData(K&).ImageName, bmW&, bmH&)
                  END IF
                  CALL ZD_DrawBitmapToCtrl(zGetMainItem(%ID_CTRL), gSpriteData(K&).xPos, gSpriteData(K&).yPos, _
                                           gSpriteData(K&).hBitmap, &HFFFFFFFF, gSpriteData(K&).ID, %ZS_VISIBLE)
              NEXT

When XP's compositing is turned off then the animation's speed is the same than on VISTA, but a little less spectacular  ;)

Patrice Terrier
www.zapsolution.com
« Last Edit: October 01, 2007, 02:36:21 PM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Petr Schreiber

  • Sr. Member
  • ****
  • Posts: 411
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #7 on: October 01, 2007, 05:48:17 PM »
Thanks Patrice,

on my PC the blurring did not hurt the performance so much, but this version is indeed faster.


Thanks,
Petr
AMD Sempron 3400+ | 1GB RAM @ 533MHz | GeForce 6200 / GeForce 9500GT | 32bit Windows XP SP3

psch.thinbasic.com

Offline Kent Sarikaya

  • Sr. Member
  • ****
  • Posts: 368
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #8 on: October 02, 2007, 01:36:56 AM »
Thanks Petr for the screenshot and to know it works on XP.

Thank Patrice for the XP fix and this incredible demo. Looks and runs fantastic on my computer. Awesome SDK Magic Show for sure!!!

Offline Theo Gottwald

  • Administrator
  • Hero Member
  • *****
  • Posts: 1110
  • Gender: Male
    • it-berater
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #9 on: October 02, 2007, 08:45:17 AM »
>Members of this forum are the first to see it!

I am really impressed too see the Aero XP version and the carusel-demo,
actually I just think, what else could you do ...
you'll face a hard time to surprise me more. :-) from now.

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2395
  • Gender: Male
    • www.zapsolution.com
Re: Carousel2 [GDImage 4.00 for VISTA]
« Reply #10 on: October 02, 2007, 11:25:56 AM »
Now that I have mastered the beast (Vista) I have some nice things onto my back burner.

Just wait and see  :o
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2395
  • Gender: Male
    • www.zapsolution.com
Re: Carousel2
« Reply #11 on: August 07, 2011, 03:03:14 PM »
The first post of this thread has been updated, to fix the ZIP file corruption caused by the "Server Collapse".

...
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com