OpenEuphoria

Re: Standard Euphoria Library Project

• Posted by Euman <euman at bellsouth.net> Feb 07, 2001
• 512 views

Maybe an obfuscated include

-- screen location <> given coordinates (in this case, off screen.)
if or_bits((or_bits((Num[1] < 1), (Num[1] > VC_XPIXELS ))),
(or_bits((vNum[2] < 1), (vNum[2] > VC_YPIXELS )))) then

-- test of two strings
if or_bits(compare(Str[1], "")=0, compare(Str[2], "")=0) then

just a joke.....



I'd like to vote for print.e and bget.e by Gabriel Boehme [invaluable]


>From my archive: (more to follow)

-- DOS STUFF
-- Insure every Graphics Mode Coordinates
-- e.g draw your screen in 640x480, use this and 1024x768 will show
-- the drawn image based on "if integer mode 261" the exact same pos on
screen.

global integer cx, cy, sx, sy
if    mode = 261 then cx = 192 cy = 144 sx = 384 sy = 288
elsif mode = 260 then cx = 192 cy = 144 sx = 384 sy = 288
elsif mode = 259 then cx = 80  cy = 60  sx = 160 sy = 120
elsif mode = 258 then cx = 80  cy = 60  sx = 160 sy = 120
elsif mode = 256 then cx = 0   cy = -80 sx = 0   sy = 0
else  cx = 0  cy = 0  sx = 0 sy = 0
end if

-- mode 257 needs no value (all are set to 0)

procedure box(integer x1,integer y1,integer x2,integer y2, sequence c)
-- sequence c is a length 3 sequence
    x1 += cx
    x2 += cx
    y1 += cy
    y2 += cy
    machine_proc(11,{c[3],1,{{x1,y1},{x2,y1},{x2,y2},{x1,y2}}})
    machine_proc(2,{c[1],0,{{x1,y2},{x1,y1},{x2,y1}}})
    machine_proc(2,{c[2],0,{{x1,y2},{x2,y2},{x2,y1}}})
end procedure


BTW, I'm back when someones *NOT* around.

Euman