Re: [colorforth] Seeing the Vesa mode on start-up/changeing same.

["Ray St. Marie" <ray.stmarie@xxxxxxxxx>]

Nick said to Ray

> Nick here:  Thanks, but sorry, I'm still not able to
> focus on details of VESA cheatcodes.  However, they
> ought to be backward compatible, so 117 & 118 ought
> still to be the codes for 1024x768 resolution.

Yes I believe you are correct, sir. The difference between 117 and 118
is number of colors, 64k for the former and 16k for the latter. Like
that matters to a 16 color system. :-)
But It would matter to someone that was Using the system to draw to
the screen in as fine of a detail they could muster.

I also noticed that the 123 ati setting is not on the list that I
included.  Hmmm. I know i've seen a more complete list somewhere.

As to drawing to the screen:

LINE Horizontal

Line wants you to set 'at' first and then put an offset from x ( this
is where the line will start ) and a length. This would draw a line:

: myline 300 400 at 20 ( pixels left of x ) 50 ( pixels long ) line ;

Negating the x-offset ( 20 in this case ) does as you would hope,
moves the line right offset of x were as positive it starts left
offset of x.

A generic line word might look like

: line. at line ;


where you would feed it on the stack the offset length X and Y in that order.

: line. color at line ;
If you would rather call the color in the word then you would stack
those above but you
would also add the color hex setting first. Otherwise call the color
sometime before calling the line.

If you want to display one pixel on the screen of course you could
give line a 1 pixel length, but I suggest...

BOX

Box is similar to line but it takes a bottom-right rather than offset/length.

: mybox 300 400 at 20 50 box ;

I suggest box because you could show a 4 pixel "pixel" which is much
easier to see on the screen like

: 4pixel 300 400 over over at 1 dup u+ u+ box ;

A generic box word would look like...

: box. over over at u+ u+ box ;

where you would stack like x's+ y's+ x y
Again the word color could go at the begining of the word and you
could do like we described for line.

LINE verticle

Adding a for/next loop for vertical lines where the for count has to
increment AT's Y variable, and length now becomes the width looks like
...

: myvert  300 400 50 for over over i + at 0 2 line ;

makes a line 50 pixels long starting at 300 400 and is not offset from
x and it 2 pixels wide.

A generic verticle line looks like

: vert. for over over i + at line next ;
you may or may not want to drop your x and y at the end as they are
still on the stack

...where you would stack offset-x width x y length.
Now you can draw nearly anything rectangular shape



What about triangular. That's a bit tougher. but not to to bad.

My block that contains the new line definition starts with these variables:

ln 8 x 0 y 383 ht 5 wt1024 os 0 ef 0
ln is the line number, more about that here shortly
x - we know
y - we know
ht - yup height
wt- width
os- offset from x
ef - for want of a better word -- effect.

Createing these variables makes it easy to debug lines, as I will show shortly

Now I can create a generic word that will draw any kind of line and
including some but not all. filled triangles, An 'unfilled' triangle
would have to have a slightly smaller similar triangle the background
color inside the original triangle to make the line width.  They would
not have transparent centers.

my word looks like:

: lines ef ! os ! wt ! ht ! y ! x !  ln !    ( drops to next word just
for convenience)
: 1lins x @ y @ ht @ for over over i + at    ( and again )
: 2lins 0 os @ i * + wt @ ef @ i * + line next ;


To call the lines word you would create a word like :

: ln3 3  235 180  30 60  2   7 silver lines ;
       ln  x     y    ht  wt  os ef
... draws the entire canapy of the airplane  mentioned in the next
paragraph. Follow the list of variables in order above and you see
what each number does. What's new here is os and ef. in 2lins. 2lins
portion of the word starts with a zero for the plus that follows as an
accumulator for the os @ i * . os @ i * if not zero will turn on that
half section of 2lins and it will provide the offset from x we've been
talking about. the i makes offset-x i pixels more with each loop.
Smallish values for os are recommened. also, be aware that if you are
matching this line with some other line you have drawn, you may have
to set AT's X over in the case offset-x is great. The second half of
the word extends the width of the line with each loop.
You can also use negative values for os and ef.

I created a drawing of ChuckBot and the beginings of a plane
much like the raptor in profile using only this word lines. It
includes lines that are the landing area where ChuckBot gets out of
the plane, two lines to split the screen into quadrants, a different
color then the backgound in the lower right quadrant and a display of
two of the lines debbuging information in that quadrant. To make the
lines debugging information work I created another word called vars...

: e@. emit @ . ;

 : vars ( x y color ) color over over at ln 12 e@. x 21 e@. y 11 e@.
30 + at ht 20 e@. wt 15 e@. os @ . ef @ . ;


e@. handles the labels of each of the variabls that I have labeled
with a letter representing the variable.

vars takes a x y and a color and as long as you put all 4 behind any
line it will display that lines information on the screen where you
say and in the color you say.


See it at http://colorforthRay.info/rapter.html



> Mark
> Slicker's website lists a CF01 with VESA query
> facility, but I do not have privilege access to this -
> so I'll try to do it myself with help of VESA
> documentation and your website.
>
> But slow as I am, CF does what I want sooner or later.
> I am not held up by monitor because I have ripped the
> new source blocks out of the Windows CF (about 130
> blocks) and can add the ones I need to Josh's CF05 -
> once I've managed to understand them.

Yes! 'slow as I am' as well.  hehe.
You don't have to save this e-mail for the info above, I will put it
up at the link I provided above right after sending this missle.


> Caritas,
>
> Nick
>
> ****************************
>
> A better world is not only possible but on the way.  On
> a quiet day you can hear her breathing.  - Arundhati
> Roy
>
Great quote that one!

A person that quotes a person accurately is worth both.
Ray

-- 
Raymond St. Marie ii,
public E-mail Ray.stmarie@xxxxxxxxx
a quickstart guide http://colorforthray.info
THE Community Blog http://colorForth.net
THE community wiki http://ForthWorks.com/c4th

---------------------------------------------------------------------
To unsubscribe, e-mail: colorforth-unsubscribe@xxxxxxxxxxxxxxxxxx
For additional commands, e-mail: colorforth-help@xxxxxxxxxxxxxxxxxx
Main web page - http://www.colorforth.com