BAM: _LETCHR$ and _GETCHR$

[CharlieJV]

Oh yours looks like tiling on a slant, with pixel offsets?, as opposed to filling "character cells" straight up and down or across fills.

I will try that...

Do you suppose an 8x8 cell is ideal for neat looking designs? Is you Random fill 50/50?

That should be an easy question to answer, but I'm struggling.

Maybe we can get somewhere by analysing the code in chunks.

Code: (Select All)

CreateGraphicsChars:
        c$ = "" : d$ = ""
        FOR i = 1 TO 64
            p$ = defPixel$()
            c$ = c$ + p$
            d$ = p$ + d$
        NEXT i
        _LETCHR$(0, c$) : _LETCHR$(1, d$)
    RETURN

Every image is created with two custom 8x8 characters.

The first character, each pixel is randomly set on or off.  The second character is the equivalent of result of flipping the first character on the vertical axis and again on the horizontal axis.

The _LETCHR$ function will assign a new character to the identified ASCII code, and based on the specification in the 64-character string parameter.  (One character per pixel, "X" meaning pixel on, "." meaning pixel off.

So the subroutine above creates two strings, first one to generate a new character for ASCII code 0, the second one (diagonal flippy of the first) assigned to ASCII code 1.

50-50 chance of a pixel being turned on:

Code: (Select All)

FUNCTION defPixel$()
  defPixel$ = "."
  IF INT(RND*2) = 1 THEN defPixel$ = "X"
END FUNCTION

Let's make sure all of that makes sense, then we can look at the next thing.