Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
Solved

# Flame as a procedure w/ (X,Y)

Posted on 1998-05-18
Medium Priority
223 Views
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

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
Question by:weinrj
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 4
• 4

LVL 1

Expert Comment

ID: 1217028
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

Author Comment

ID: 1217029
I use BGI-graph mode...  thanks
0

LVL 1

Expert Comment

ID: 1217030
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

Author Comment

ID: 1217031
i will be using the standard BGI that Pascal uses...i think it is EGAVGA.BGI or some crap like that...
0

LVL 1

Accepted Solution

FuzzyLogic earned 400 total points
ID: 1217032
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.

Fuzzy
0

LVL 1

Expert Comment

ID: 1217033
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;
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
}
for a:=0 to 63 do SetRGBPalette(StartColor+a,a,0,a div 16);

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

CloseGraph;
end.
0

Author Comment

ID: 1217034
thank you!  but,. the flame is rainbow colored..i dont have this superVGA thing...how do i work that?
0

Author Comment

ID: 1217035
oh u need my address..it is jwnrb@cybernex.net
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Sometimes Administrators rights are not enough. These cases call for the SYSTEM account. The process in this article outlines the steps required to execute commands using the SYSTEM account.
Looking for a way to avoid searching through large data sets for data that doesn't exist? A Bloom Filter might be what you need. This data structure is a probabilistic filter that allows you to avoid unnecessary searches when you know the data defin…
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
###### Suggested Courses
Course of the Month8 days, 17 hours left to enroll