Flame as a procedure w/ (X,Y)

for uses graph;

I want to make a simple flame procedure that is able to be placed where i want it by (X, Y, SIZE);
or something like that....at cooridnates 120, 200 i would do this fire(120, 200, 3); and it would put a flame there.

My goal is to put a fire below a rocket ship.  
I have the entire ship drawn already, i just need the flame below it.  I would prefer it to be animated, as i seen them
before...please help.  thanks...

i hope 100 pts is fair enough, as i am low, and i have other questions pending elsewhere....

where if i want something on fire at coordinates 120, 200, i
weinrjAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

FuzzyLogicCommented:
Well, I made ones a "flame" in pascal version (BGI) and in asm version (*MUCH* faster).
I'll see if I convert my flame into procedure as you requested.
However, I need to know how you make your GFXs. Do you use BGI or direct $A000 drawing?
Keep it in mind that the flame graphics take about 64 colors.

Fuzzy
0
weinrjAuthor Commented:
I use BGI-graph mode...  thanks
0
FuzzyLogicCommented:
Please specify what mode are you using. The BGI version I made is using non-standart BGI that can handle more that 16 colors.
If you are using non-standart version of BGI, you can send it to me at fuzzy_logic@usa.net

Fuzzy
0
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

weinrjAuthor Commented:
i will be using the standard BGI that Pascal uses...i think it is EGAVGA.BGI or some crap like that...
0
FuzzyLogicCommented:
Ohh well...
I could not do it with 16 colors. So I'll give you a my version of "flame" that I fixed to "procedure type". It is using 64 of 256 colors.
As a BGI version, I can send you the BGI package I user (it is a shareware) if you'll leave me your EMail address.

Fuzzy
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
FuzzyLogicCommented:
Program FireWall;

Uses Graph,Crt;

const
  MaxX=640;
  StartColor=192;

var
  GraphMode, GraphDriver : integer;
  a:word;


{$F+}
function DetectVGA256 : Integer;
  begin
{   Writeln('  0) 320x200x256');
    Writeln('  1) 640x400x256');
    Writeln('  2) 640x480x256');
    Writeln('  3) 800x600x256');
    Writeln('  4) 1024x768x256'); }

    DetectVGA256 := 0;
  end;
{$F-}

procedure DrawFlame(x1,x2,y1,h:integer);
  var
    a,b,c:word;
    Line,Line2,Line0:array[0..MaxX] of integer;
    direction:boolean;
    decrement:byte;

  begin;
    for a:=0 to MaxX do begin;
      Line[a]:=0; Line0[a]:=0; Line2[a]:=0;
    end;

    if (x1<0) or (x2<=x1) or (abs(h)<10) then exit;
    direction:=(h>0);
    decrement:=192 div abs(h);
    if decrement=0 then decrement:=1;

    for a:=x1+1 to x2-1 do Line[a]:=random(255);

    repeat;
      for a:=x1 to x2 do begin;
        Line0[a]:=Line0[a]+random(256)-128;
        if Line0[a]<0 then Line0[a]:=0
        else if Line0[a]>255 then Line0[a]:=255;
      end;

      { Smoothing first line }
      Line:=Line0;
      for a:=x1+1 to x2-1 do Line0[a]:=(Line[a-1]+Line[a+1]+Line[a]) div 3;

      Line:=Line0;

      for b:=0 to abs(h) do begin;
        if direction then c:=y1+b else c:=y1-b;
        for a:=x1+1 to x2-1 do begin;
          Line2[a]:=(Line[a-1]+Line[a+1]+Line[a]) div 3;
          if Line2[a]>0 then begin;
            dec(Line2[a],decrement); if Line2[a]<0 then Line2[a]:=0;
          end;
          PutPixel(a,c,StartColor+Line2[a] div 4);
        end;
        Line:=Line2;
      end;
      delay(150);
    until KeyPressed;
    a:=ord(ReadKey);
  end;


begin
  Randomize;
  GraphDriver := InstallUserDriver('SVGA256',@DetectVGA256);
  GraphDriver := Detect;
  InitGraph(GraphDriver,GraphMode,'d:\dev\tp\bgi');

{ You can play with the colors... Enjoy yourself ;)
  Hint: Try deviding the flame colors (like from yellow (63,63,0) to red
        and fading to black)...
}
  for a:=0 to 63 do SetRGBPalette(StartColor+a,a,0,a div 16);

  DrawFlame(140,180,120,-50);

  CloseGraph;
end.
0
weinrjAuthor Commented:
thank you!  but,. the flame is rainbow colored..i dont have this superVGA thing...how do i work that?
0
weinrjAuthor Commented:
oh u need my address..it is jwnrb@cybernex.net
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Pascal

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.