C64-ize graphics

[AndyH]

Vista, yes my drivers are the latest.  I don't really get any problems here - everything runs great (DirectX and OpenGL).

[Kitty Hello]

Updated the file. Working now?

[Ian Price]

It works now, but it takes an age (it says "LOADING" for a good few seconds) and the square no longer rotates (in fact the program appears to cease after it has displayed the image).

[Kitty Hello]

Update. Should work on more cards now.

[Ian Price]

Nope. It dies now before any image is displayed, after a long "Loading" screen.

[Albert]

Working fine on Radeon HD2600 pro

[PeeJay]

Works great on my dinosaur too!

[Qedo]

I enjoyed optimizing the no shader version.
On my pc 20 ms with standard programming

Code (glbasic) Select Expand


SETFONT 0,2
GLOBAL pixels%[],id%=0
IF DOESFILEEXIST("test.png")
LOADSPRITE "test.png",id
ENDIF
SPRITE2MEM (pixels[],id)
GETSPRITESIZE id, sx%, sy%
dtime% = GETTIMERALL()
C64ize()
MEM2SPRITE(pixels[],id,sx,sy)
dtime% = GETTIMERALL()-dtime%
DRAWSPRITE id,0,0
SAVESPRITE "test.bmp", id
PRINT dtime%,10,300
SHOWSCREEN
MOUSEWAIT
END

FUNCTION C64ize:
        // weighting of color components
LOCAL x%,y%,c%, r%,g%,b%, dr%,dg%,db%
LOCAL mindist, dist, ibest, i
LOCAL c64_pal[]
        DIMDATA c64_pal[], _
                        0x00    , 0x00  , 0x00, 0, _
                        0xff    , 0xff  , 0xff, 0, _
                        0x88    , 0x00  , 0x00, 0, _
                        0xaa    , 0xff  , 0xee, 0, _
                        0xcc    , 0x44  , 0xcc, 0, _
                        0x00    , 0xcc  , 0x55, 0, _
                        0x00    , 0x00  , 0xaa, 0, _
                        0xee    , 0xee  , 0x77, 0, _
                        0xdd    , 0x88  , 0x55, 0, _
                        0x66    , 0x44  , 0x00, 0, _
                        0xff    , 0x77  , 0x77, 0, _
                        0x33    , 0x33  , 0x33, 0, _
                        0x77    , 0x77  , 0x77, 0, _
                        0xaa    , 0xff  , 0x66, 0, _
                        0x00    , 0x88  , 0xff, 0, _
                        0xbb    , 0xbb  , 0xbb, 0

        FOR i=0 TO 15
                c64_pal[i*4+3] = RGB(c64_pal[i*4], c64_pal[i*4+1], c64_pal[i*4+2])
        NEXT

        FOR x=0 TO 319 STEP 2
                FOR y=0 TO 239
ind=x+y*320
                        c = pixels[ind]
c = bAND(c, 0xffffff)
    r=bAND(c, 0xff)/2
g=bAND(ASR(c,8), 0xff)/2
b=bAND(ASR(c,16), 0xff)/2
                        mindist=0
                        c = pixels[ind+1]
c = bAND(c, 0xffffff)
    INC r,bAND(c, 0xff)/2
INC g,bAND(ASR(c,8), 0xff)/2
INC b,bAND(ASR(c,16), 0xff)/2
                        ibest=0
                        FOR i=0 TO 15
db=b - c64_pal[i*4+2]
dg=g - c64_pal[i*4+1]
dr=r - c64_pal[i*4  ]
                                dist=dr*dr+dg*dg+db*db
                                IF i=0 OR dist<mindist
                                        mindist=dist
                                        ibest=i
                                ENDIF
                        NEXT
                        fillcolour=bOR(c64_pal[ibest*4+3], ASL(255, 24))
                        pixels[ind]=fillcolour
                        pixels[ind+1]=fillcolour
                NEXT
        NEXT
ENDFUNCTION



[dreamerman]

Am I missing something? As both pure in-code effects doesn't work for me :/ bitmap remains unchanged (24bit bmp GLB logo). Or maybe there is something more to this code as not all variables were declared, probably I'm blind
On other hand, change 'c64_pal' array from floats to integers -> "LOCAL c64_pal%[]" as this should fast it up to 15ms..

[Qedo]

 Yes the file test.bmp is 24bit but inside there are only 16 colours.
Change the array to integer don't improve on my pc.

[dreamerman]

I mean input bitmap that I'm using is 24bit bmp GLB logo, and the result/output bitmap 'test.bmp' is also 24bit with full color range, checked with gimp - same as result drawn on screen when running this code. hm.. probably some mismatch from pasting code but can't find it :>
Strange, because changing to integers should give speed up around 25%-30%, double checked on my pc, and btw. didn't noticed that also some other variables are floats, at least in this code on forum..

Code (glbasic) Select Expand

LOCAL mindist%, dist%, ibest%, i%
LOCAL c64_pal%[]
that gives speed bump from 22ms to 11ms, on my i5.

[Qedo]

Try with this file.

[dreamerman]

Yep this file works, and now I see what was the issue
Both FOR loops in main function are fixed to this image dimensions - 320x240px, despite checking sprite size with GETSPRITESIZE. How could I miss that :/
Easy to fix and now works great :-) And now I know where to use this with combination of Your FastMem2Sprite - or that Shader version by Gernot Thanks!