🚀 go-pugleaf

In article <1992Dec28.171257.27785@news2.cis.umn.edu> cahoon@femto.cs.umn.edu (Forrest Clinton Cahoon) writes:
>I'm trying to write some postscript which will color a hexagonal grid,
>reading the color data from the end of my ps file.  I'm reading one
>byte for each hexagon, then doing some bit-twiddling to get values to call
>setrgbcolor with before filling the hexagon.
>
>I've got a version using "read" which works, but since "read" treats my
>newline characters as valid binary data, it's not entirely
>satisfactory.

Cool, please let me know what you come up with.  I've been playing
around with multi-colored hex maps; however, I've been building the
hex map one hex at a time.  The end result is nice; however, there 
must be a better way to go about it.

Matt Goldman
-- 
Matthew Goldman              E-mail: goldman@orac.cray.com
Fax: (612) 683-3099                   Work: (612) 683-3061
      "Say George, I don't mean to interrupt, but 
       there's a glowing red dot on your forehead."

cahoon@femto.cs.umn.edu (Forrest Clinton Cahoon) writes:

>I'm trying to write some postscript which will color a hexagonal grid,
>reading the color data from the end of my ps file.  I'm reading one
>byte for each hexagon, then doing some bit-twiddling to get values to call
>setrgbcolor with before filling the hexagon.

>I've got a version using "read" which works, but since "read" treats my
>newline characters as valid binary data, it's not entirely
>satisfactory.

>What I want to use is "readhexstring", but since what this reads in is
>treated as a string rather than an integer, I'm having trouble.  I
>need to convert my one-byte string into an integer having the same
>binary representation.  I don't want "cvi", because this parses a
>string which represents an integer to us humans, and puts that value
>on the stack -- cvi would read (1) and put the integer value 1 on the
>stack, but what I need would take (1) and put the integer value 49 --
>the ASCII value of the character 1 -- on the stack.

Use 'get' to get any byte from the string as an integer:

	(A) 0 get

will put 65 on the stack.