Fwd: arcview color definition

[Jim T. Bowen (GAIA Consultants Inc.)]

Hi Markus,

Not too clear what you are attempting to do, but here is the essense of
extracting RGB values from ODB/AVL storage format, according to our
Avenue-guy.  I assume you have ArcView (I wasn't sure from your
message).  Script1 essentially creates an ODB with color values in it
and then Script2 extracts them...hope this gets you started.


/////////////////////////////////////////////////////////

'Script Number 1:
'Writes colors out to an ODB.  Colors are stored in ODB in hexadecimal
format.
theODBFN = "$TEMP\colors.odb".AsFilename
theODB = ODB.Make(theODBFN)

the1stColor = Color.Make
the1stColor.SetRGBList({212, 155, 96})
theODB.Add(the1stColor)

the2ndColor = Color.Make
the2ndColor.SetRGBList({21, 15, 9})
theODB.Add(the2ndColor)

theODB.Commit


'Script Number 2:
'Reads colors in from the ODB created in Script Number 1.  Displays the
RGB values (GetRGBList) in a MsgBox.
theODBFN = "$TEMP\colors.odb".AsFilename
theODB = ODB.Open(theODBFN)
the1stColor = theODB.Get(0)
the2ndColor = theODB.Get(1)

MsgBox.ListAsString(the1stColor.GetRGBList, "First Color in ODB",
"Color")
MsgBox.ListAsString(the2ndColor.GetRGBList, "Second Color in ODB",
"Color")

/////////////////////////////////////////////////////////


Cheers,
Jim


Stephen Lime wrote:
> 
> Subject: arcview color definition
> Date: Wed, 29 Mar 2000 17:19:52 +0200
> From: Markus Spring <rgu at ems.muenchen.de>
> Reply-To: Markus.Spring at mindless.com
> To: mapserver-info at lists.gis.umn.edu
> 
> I am trying to convert ARCVIEW ODB-Format Color definition like
> 
> Red:   0x8a38
> Green: 0xe385
> Blue:  0x3166
> 
> to Mapserver-Mapfile format, but without reasonable results.
> Any help would be appreciated
> 
> regards - markus spring