Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 226
  • Last Modified:

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
0
weinrj
Asked:
weinrj
  • 4
  • 4
1 Solution
 
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
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 4
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now