Dark Bit Factory & Gravity

PROGRAMMING => Freebasic => Topic started by: Mcquade on November 15, 2009

Title: Rasterbars
Post by: Mcquade on November 15, 2009

is it possible to read Rasterdatas(Colors)(Copperbars)
from a DATA Field ?

i want to use the Colordata from a REAL C64...

any ideas ?

mfg Mcq

Title: Re: Rasterbars
Post by: Shockwave on November 15, 2009

Yes, sure.
Just set up your colours in your data statements and read them into an array, you can do whatever you like with them then.

Title: Re: Rasterbars
Post by: Clyde on November 15, 2009

real C64 colours in correct order.

Code: [Select]

dim shared as uinteger raster_colours( 0 to 15 )

initialize_demo()

sub initialize_demo()
   
    dim as integer a
   
    restore c64_hex_colours
   
    for a=0 to 15
        read raster_colours( a )
    next

end sub   



c64_hex_colours:
data &h000000
data &hffffff
data &h68372b
data &h70a4b2
data &h6f3d86
data &h588d43
data &h352879
data &hb8c76f
data &h6f4f25
data &h433900
data &h9a6759
data &h444444
data &h6c6c6c
data &h9ad284
data &h6c5eb5
data &h959595


Title: Re: Rasterbars
Post by: Clyde on November 22, 2009

Is this the info you were after Dude?

Title: Re: Rasterbars
Post by: Mcquade on November 23, 2009

YES !

MANY THX ! :) :)