OpenEuphoria

Re: conversion

• Posted by mike burrell <mikpos at GAIANET.NET> Dec 12, 1996
• 990 views

> 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....