[LispM-Hackers] Gfx macroops

[James A. Crippen]

Here are the gfx macroops that I found upon cursory inspection of the
SSDN2.

%DRAW-CHAR font-array char-code x-bitpos y-bitpos alu-function sheet

 Draws the character char-code of font font-array on sheet using
 alu-function which is typically one of TV:ALU-IOR, TV:ALU-ANDCA, or
 TV:ALU-XOR.  x-bitpos and y-bitpos are the position in sheet for the
 upper left corner of the character to be drawn.

%DRAW-FILLED-RASTER-LINE x1 x2 y left-edge top-edge right-edge bottom-edge
alu draw-last-point fill-color destination

%DRAW-FILLED-TRIANGLE x1 y1 x2 y2 x3 y3 left-edge top-edge right-edge
bottom-edge alu draw-third-edge draw-second-edge draw-first-edge
fill-color destination

%DRAW-LINE x0 y0 x y alu draw-end-point sheet

 Draws a straight line from (x0,y0) to (x,y) on sheet using alu as the ALU
 function.  alu is one of TV:ALU-IOR, TV:ALU-ANDCA, or TV:ALU-XOR.

%DRAW-RECTANGLE width height x-bitpos y-bitpos alu-function sheet

 Draws solid rectangle on sheet using alu-function.  Height and width are
 the size of the rectangle, x-bitpos and y-bitpos are the location of the
 upper left corner.

I can't seem to find any others in the docs.

%DRAW-CHAR is probably a good target to work on first.

'james

-- 
James A. Crippen <james@unlambda.com> ,-./-.  Anchorage, Alaska,
Lambda Unlimited: Recursion 'R' Us   |  |/  | USA, 61.2069 N, 149.766 W,
Y = \f.(\x.f(xx)) (\x.f(xx))         |  |\  | Earth, Sol System,
Y(F) = F(Y(F))                        \_,-_/  Milky Way.