Author Topic: Rasterbars  (Read 3409 times)

0 Members and 1 Guest are viewing this topic.

Offline Mcquade

  • ZX 81
  • *
  • Posts: 17
  • Karma: 3
    • View Profile
Rasterbars
« 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


Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17409
  • Karma: 498
  • evil/good
    • View Profile
    • My Homepage
Re: Rasterbars
« Reply #1 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.


Shockwave ^ Codigos
Challenge Trophies Won:

Offline Clyde

  • A Little Fuzzy Wuzzy
  • DBF Aficionado
  • ******
  • Posts: 7271
  • Karma: 71
    • View Profile
Re: Rasterbars
« Reply #2 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
Still Putting The IT Into Gravy
If Only I Knew Then What I Know Now.

Challenge Trophies Won:

Offline Clyde

  • A Little Fuzzy Wuzzy
  • DBF Aficionado
  • ******
  • Posts: 7271
  • Karma: 71
    • View Profile
Re: Rasterbars
« Reply #3 on: November 22, 2009 »
Is this the info you were after Dude?
Still Putting The IT Into Gravy
If Only I Knew Then What I Know Now.

Challenge Trophies Won:

Offline Mcquade

  • ZX 81
  • *
  • Posts: 17
  • Karma: 3
    • View Profile
Re: Rasterbars
« Reply #4 on: November 23, 2009 »
YES !

MANY THX ! :) :)