OpenEuphoria

Re: conversion

• Posted by Jacques Deschenes <desja at QUEBECTEL.COM> Dec 12, 1996
• 852 views

--=====================_850458464==_

At 14:56 12-12-96 +0000, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender:       Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster:       mike burrell <mikpos at GAIANET.NET>
>Subject:      Re: conversion
>-------------------------------------------------------------------------------
>
>> convert it to Euphoria without much success and was wondering if someone
>> out there could translate it for me?
>
>i'll do my best :>...  i'm sure there are mistakes in here coz i
>haven't tried this out but it'll give you an idea :>
>
>>  Also , I was wondering if there is a program to convert qbasic programs
>> to Euphoria?
>
>nope
>
>-- start program
>include graphics.e
>
>integer i
>
>procedure fireprint(atom h,atom v,sequence a,atom tilt)
>   atom sx,ex,sy,ey,col
>
>   text_color(63) -- this might be a function, not a procedure ?
>   position(v,h)
>   printf(1,"%s",{a})
>
>-- Set up start and end locations for the burn
>
>   sx = (h * 8) - 8
>   ex = ((h + length(a)) * 8) - 8
>   sy = (v * 8) - 16
>   ey = (v * 8) - 8
>
>   for y = sy to ey
>      for x = sx to ex
>-- Take the current color, subtract a random amount for
>-- red flame "fade", and plot the new point
>         col = get_pixel({x,y}) - rand(25)
>         if col < 0 then
>             col = 0
>         end if
>         pixel(col,{x + tilt,y - 1})
>      end for
>   end for
>end procedure
>
>i = graphics_mode(19)
>
>-- set up 'all red palette'
>for t = 0 to 63
>   i = set_palette(t,t)
>end for
>
>while get_key() = ""
>   fireprint(18,12,"WARRIOR",0)
>end while
>
> ..ooO  <basehead> claim my goat, thats a Ooo..
>.oO  masturbation synonym i havent heard yet Oo.
> ...oooO        MikPos of MARTYR        Oooo...
>..ooO  http://www.geocities.com/SoHo/9036  Ooo..
>   ....oooO       mike burrell      OOooo....
>

There is some errors in the previous code.

cute effect!


--=====================_850458464==_

-- start program
include graphics.e

integer i

procedure fireprint(atom h,atom v,sequence a,atom tilt)
   atom sx,ex,sy,ey,col

   text_color(63)
   position(v,h)
   printf(1,"%s",{a})

-- Set up start and end locations for the burn

   sx = (h * 8) - 8
   ex = ((h + length(a)) * 8) - 8
   sy = (v * 8) - 16
   ey = (v * 8) - 8

   for y = sy to ey do
      for x = sx to ex do
-- Take the current color, subtract a random amount for
-- red flame "fade", and plot the new point
         col = get_pixel({x,y}) - rand(25)
         if col < 0 then
             col = 0
         end if
         pixel(col,{x + tilt,y - 1})
      end for
   end for
end procedure

i = graphics_mode(19)

sequence p
-- set up 'all red palette'
for t = 0 to 63 do
   p = palette(t,{t,0,0})
end for

while get_key() = -1 do
   fireprint(18,12,"WARRIOR",0)
end while

i = graphics_mode(-1)

--=====================_850458464==_

Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com

--=====================_850458464==_--