Computer Science Canada :: View topic

% Xmas Themed Particle Engine
% by: Chris
% aka Ghost

View.Set ("offscreenonly")
const FLAKYNESS := 10000 % Goddamit thats over 9000

% >=2
const GRAVITY : int := 9

% 100 = Storm
const FLAKES_PER_FRAME := 20

class snowflake
export paint, initialize, move

var x, y, px, py, speed : int
var onground : boolean

procedure initialize
x := Rand.Int (-100, maxx + 100)
y := maxy + 10
px := x
py := y
speed := Rand.Int (2, 10)
onground := false
end initialize

procedure move (wind : int)
if onground = false then
px := x
py := y
x += wind
y -= speed
if x >= maxx then
px -= maxx
x -= maxx
end if
if x < 0 then
px += maxx
x += maxx
end if
if whatdotcolor (x, y) = white then %Im so awesome
x := px
y := py
speed -= 1
if speed <= 0 then
onground := true % OMG Its on the freeking ground man
end if
end if
end if
end move

procedure paint ()
if onground = false then
Draw.Line (x - 1, y, px, py, white)
Draw.Line (x + 1, y, px, py, white)
end if
Draw.FillOval (x, y, 1, 1, white)
end paint
end snowflake

var flake : array 1 .. FLAKYNESS of pointer to snowflake
for i : 1 .. FLAKYNESS
new snowflake, flake (i)
end for % Watermark
var windyness : int := 0
var currentflake := FLAKYNESS + 1

loop
%L-l-logic
currentflake += FLAKES_PER_FRAME
if currentflake > FLAKYNESS then
currentflake := 1
for i : 1 .. FLAKYNESS
flake (i) -> initialize
end for
end if % Mine

windyness += Rand.Int (-1, 1)
if abs (windyness) > 10 then
windyness := 0 %Weeeeeeee...flying!
end if
for i : 1 .. currentflake
flake (i) -> move (windyness)
end for

%Render
Draw.FillBox (0, 0, maxx, maxy, black)

Draw.FillOval( maxx div 2, -1000, 1050,1050,17)

for i : 1 .. currentflake
flake (i) -> paint % 5 year old + paint...yeah thats right
end for

var x : array 1 .. 3 of int := init (150, 450, 300)
var y : array 1 .. 3 of int := init (150, 150, 300)
Draw.FillBox (200, 0, 400, 150, white)
Draw.FillPolygon (x, y, 3, white)

%Stop! Hammertime!
View.Update ()
delay (10) % 100 FPS? HA! Remove this line to watch how unefficient this is.

end loop

Not like you guys read that stuff anyways right?

View.Set ("graphics:800,500;position:center,center;offscreenonly;nobuttonbar")
var cur_flakes : int := -1
var num_flakes : int := 200
var low_flakes : int := 0
RGB.SetColour (0, 1, 1, 1)
RGB.SetColour (1, .99, .99, .99)
RGB.SetColour (2, 68 / 255, 55 / 255, 15 / 255)
RGB.SetColour (3, 68 / 500, 55 / 500, 15 / 500)
class Flake
export Init, Paint, Update, StopPaint

var x_c : int
var x : int
var y : int
var amp : int
var speed : int
var angle : int
var size : int
var moving : boolean

proc Init
x := 0
x_c := Rand.Int (-100, maxx + 100)
y := Rand.Int (maxy, maxy * 2)
amp := Rand.Int (100, 150) %30,60
speed := Rand.Int (3, 7)
angle := Rand.Int (0, 359)
size := Rand.Int (4, 8)
moving := true
end Init

proc Paint
if moving then
Draw.FillStar (x - size div 2, y - size div 2, x + size div 2, y + size div 2, 1)
Draw.FillStar (x - size div 2, y + size div 2, x + size div 2, y - size div 2, 1)
else
Draw.FillStar (x - size div 2, y - size div 2, x + size div 2, y + size div 2, 0)
Draw.FillStar (x - size div 2, y + size div 2, x + size div 2, y - size div 2, 0)
end if
end Paint
proc StopPaint
if ~moving then
Draw.FillStar (x - size div 2, y - size div 2, x + size div 2, y + size div 2, 0)
Draw.FillStar (x - size div 2, y + size div 2, x + size div 2, y - size div 2, 0)
end if
end StopPaint

fcn Update : boolean
var output : boolean := false
if moving then
y -= speed
angle += 1
x := round (x_c + sind (angle) * amp)
if x > 0 and x < maxx and y > 0 and y < maxy then
if View.WhatDotColour (x, y - speed div 2) = 0 or View.WhatDotColour (x, y - speed div 2) = 2 then
moving := false
output := true
end if
end if
if y < 10 then
moving := false
output := true
end if
end if
result output
end Update
end Flake

var x_tri : array 1 .. 3 of int := init (150, 400, 650)
var y_tri : array 1 .. 3 of int := init (250, 400, 250)
Draw.FillBox (0, 0, maxx, maxy, 7)
Draw.FillOval (maxx div 2, -1000, 1050, 1050, 17)
Draw.FillBox (250, 0, 550, 250, 2)
Draw.FillBox(400,0,525,200,3)
Draw.FillOval(415,110,5,5,7)
Draw.FillBox(265,75,385,200,3)
Draw.FillBox(275,85,375,190,14)
Draw.ThickLine(325,80,325,195,4,3)
Draw.ThickLine(270,138,380,138,4,3)
Draw.FillBox(450,300,550,425,2)
Draw.FillPolygon (x_tri, y_tri, 3, 2)

var background : int := Pic.New (0, 0, maxx, maxy)
var flake : flexible array 0 .. cur_flakes of pointer to Flake

loop
if cur_flakes < num_flakes then
cur_flakes += 1
new flake, cur_flakes
new Flake, flake (cur_flakes)
flake (cur_flakes) -> Init
end if

if low_flakes < cur_flakes - 200 then
Pic.Draw (background, 0, 0, picCopy)
for i : low_flakes .. low_flakes + 50
flake (i) -> StopPaint
end for
low_flakes += 50
Pic.Free (background)
background := Pic.New (0, 0, maxx, maxy)
end if

Pic.Draw (background, 0, 0, picCopy)
for i : low_flakes .. cur_flakes
if flake (i) -> Update then
num_flakes += 1
end if
flake (i) -> Paint
end for

View.Update ()
Time.DelaySinceLast (10)
exit when hasch
end loop
Pic.Free (background)

% Xmas Themed Particle Engine Mark 2
% by: Chris
% aka. Zren

var picBarrier, width, height : int
var image : string := "scene.gif"
if File.Exists (image) then
picBarrier := Pic.FileNew (image)
width := Pic.Width (picBarrier)
height := Pic.Height (picBarrier)
View.Set ("graphics:" + intstr (width) + ";" + intstr (height) + ",offscreenonly") % lol Tony

else % Oh noes. File no existe.
Draw.FillBox(0,0,maxx,maxy,black)
Draw.FillOval (maxx div 2, -1000, 1050, 1050, 17)
var x : array 1 .. 3 of int := init (150, 450, 300)
var y : array 1 .. 3 of int := init (150, 150, 300)
Draw.FillBox (200, 0, 400, 150, white)
Draw.FillPolygon (x, y, 3, white)

picBarrier := Pic.New (0, 0, maxx, maxy)
width := 600
height := 400
View.Set ("graphics,offscreenonly") %no see-ee for you
end if

class Snowflake
export setAng, setVel, setView,
getAng, getView,
initialize, move, paint,
flipView, isOnGround

var x, y, ang, vel : real
var view, onground : boolean

proc setAng (a : real)
ang := a
end setAng
proc setVel (v : real) %Going mach 4 now!
vel := v
end setVel
proc setView (v : boolean)
view := v
end setView

function getAng : real
result ang
end getAng
function getView : boolean % You want to know what I look like?
result view
end getView
function isOnGround : boolean
result onground
end isOnGround

proc initialize %Bios
view := false
x := Rand.Real * maxx
y := maxy
ang := 270
vel := Rand.Real * 3 + 1
onground := false
end initialize

proc move
var px := x
var py := y
x += vel * cosd (ang)
y += vel * sind (ang)
if x >= maxx then
px -= maxx %That's post tramatic stress to you
x -= maxx
end if
if x < 0 then
px += maxx
x += maxx
end if
if whatdotcolor (round (x), round (y)) = white then %Im so awesome
x := px
y := py
vel *= 0.8
if vel <= 0.5 then
onground := true % OMG Its on the freeking ground man
end if
end if
end move

proc paint
Draw.Dot (round (x), round (y), white)
% Draw.FillOval (round (x), round (y), 1, 1, white)
end paint

procedure flipView
view := ~view
end flipView

end Snowflake

var flakes_per_frame := 1
var totalflakes : int := flakes_per_frame * 400
var flake : array 1 .. totalflakes of pointer to Snowflake
for i : 1 .. totalflakes
new Snowflake, flake (i)
flake (i) -> initialize % snowflake now exists
end for

var currentflake := totalflakes + 1
var wind : int := 3
var next : int %So what's next man

loop
%Render WhiteBarrier
Pic.Draw (picBarrier, 0, 0, picCopy)

next := currentflake + flakes_per_frame
if next <= totalflakes then %You
for i : currentflake .. next
flake (i) -> initialize
flake (i) -> setView (true)
end for
else %Spin me round
next -= totalflakes
for i : 1 .. next
flake (i) -> initialize
flake (i) -> setView (true)
end for %Right round
for i : currentflake .. totalflakes
flake (i) -> initialize
flake (i) -> setView (true)
end for
end if %like a record
currentflake := next
if currentflake > totalflakes then
currentflake -= totalflakes
end if

for i : 1 .. totalflakes
flake (i) -> setAng (flake (i) -> getAng + Rand.Int (-wind, wind))
flake (i) -> move % it baby
end for

for i : 1 .. totalflakes
if flake (i) -> isOnGround = true and flake (i) -> getView = true then
flake (i) -> paint %Add to WhiteBarrier
%Move last flake in array to this point.
flake (i) -> initialize
%Move last flake in array to this point.

end if
end for
Pic.Free (picBarrier)
picBarrier := Pic.New (0, 0, maxx, maxy)

for i : 1 .. totalflakes
if flake (i) -> getView = true then
flake (i) -> paint % 5 year old + paint...yeah thats right
end if
end for

%Stop! Hammertime!
View.Update
delay (10) % 100 FPS? HA! Remove this line to watch how unefficient this is.

end loop

View.Set ("graphics:" + intstr (width) + ";" + intstr (height) + ",offscreenonly") % lol Tony

Zren @ Thu Nov 26, 2009 12:06 am wrote:

Not like you guys read that stuff anyways right?

That's all I ever do around here Laughing

Incidentally, for efficiency in Turing: never use classes or pointers. I don't know what's wrong with them, but they're sooooo slooooow. Mine uses records in arrays (not flexible arrays!) and runs pretty smoothly with 1000 particles, or even 2000 on relatively-powerful hardware.

Author:	Zren [ Thu Nov 26, 2009 12:06 am ]
Post subject:	The Snow is Falling!
Well no not yet. But anyways, there was that other necroed topic I coulda posted it in, but I'm not. So anyways, I took a gander and that code... and I was like. Pffft noob. So I spent the better part of an hour writing the best goddam Snowfall you've seen...in turing. Just in time for Christmas too. 103 lines is iffy when it comes to files...so i made it smaller. Not like you guys read that stuff anyways right? me wrote: % Xmas Themed Particle Engine % by: Chris % aka Ghost View.Set ("offscreenonly") const FLAKYNESS := 10000 % Goddamit thats over 9000 % >=2 const GRAVITY : int := 9 % 100 = Storm const FLAKES_PER_FRAME := 20 class snowflake export paint, initialize, move var x, y, px, py, speed : int var onground : boolean procedure initialize x := Rand.Int (-100, maxx + 100) y := maxy + 10 px := x py := y speed := Rand.Int (2, 10) onground := false end initialize procedure move (wind : int) if onground = false then px := x py := y x += wind y -= speed if x >= maxx then px -= maxx x -= maxx end if if x < 0 then px += maxx x += maxx end if if whatdotcolor (x, y) = white then %Im so awesome x := px y := py speed -= 1 if speed <= 0 then onground := true % OMG Its on the freeking ground man end if end if end if end move procedure paint () if onground = false then Draw.Line (x - 1, y, px, py, white) Draw.Line (x + 1, y, px, py, white) end if Draw.FillOval (x, y, 1, 1, white) end paint end snowflake var flake : array 1 .. FLAKYNESS of pointer to snowflake for i : 1 .. FLAKYNESS new snowflake, flake (i) end for % Watermark var windyness : int := 0 var currentflake := FLAKYNESS + 1 loop %L-l-logic currentflake += FLAKES_PER_FRAME if currentflake > FLAKYNESS then currentflake := 1 for i : 1 .. FLAKYNESS flake (i) -> initialize end for end if % Mine windyness += Rand.Int (-1, 1) if abs (windyness) > 10 then windyness := 0 %Weeeeeeee...flying! end if for i : 1 .. currentflake flake (i) -> move (windyness) end for %Render Draw.FillBox (0, 0, maxx, maxy, black) Draw.FillOval( maxx div 2, -1000, 1050,1050,17) for i : 1 .. currentflake flake (i) -> paint % 5 year old + paint...yeah thats right end for var x : array 1 .. 3 of int := init (150, 450, 300) var y : array 1 .. 3 of int := init (150, 150, 300) Draw.FillBox (200, 0, 400, 150, white) Draw.FillPolygon (x, y, 3, white) %Stop! Hammertime! View.Update () delay (10) % 100 FPS? HA! Remove this line to watch how unefficient this is. end loop My theory to make it more efficient would be to save the white pixels as an image each frame and draw those, thus deleting removing the CPU waste on the dead particles. But I'm lazy, so there. You do it.

Author:	Tony [ Thu Nov 26, 2009 1:39 pm ]
Post subject:	Re: The Snow is Falling!
Zren @ Thu Nov 26, 2009 12:06 am wrote: Not like you guys read that stuff anyways right? That's all I ever do around here Nice demo of snow.

Author:	The_Bean [ Fri Nov 27, 2009 3:44 pm ]
Post subject:	Re: The Snow is Falling!
A bit longer, but everything's better with trig! me wrote: View.Set ("graphics:800,500;position:center,center;offscreenonly;nobuttonbar") var cur_flakes : int := -1 var num_flakes : int := 200 var low_flakes : int := 0 RGB.SetColour (0, 1, 1, 1) RGB.SetColour (1, .99, .99, .99) RGB.SetColour (2, 68 / 255, 55 / 255, 15 / 255) RGB.SetColour (3, 68 / 500, 55 / 500, 15 / 500) class Flake export Init, Paint, Update, StopPaint var x_c : int var x : int var y : int var amp : int var speed : int var angle : int var size : int var moving : boolean proc Init x := 0 x_c := Rand.Int (-100, maxx + 100) y := Rand.Int (maxy, maxy * 2) amp := Rand.Int (100, 150) %30,60 speed := Rand.Int (3, 7) angle := Rand.Int (0, 359) size := Rand.Int (4, 8) moving := true end Init proc Paint if moving then Draw.FillStar (x - size div 2, y - size div 2, x + size div 2, y + size div 2, 1) Draw.FillStar (x - size div 2, y + size div 2, x + size div 2, y - size div 2, 1) else Draw.FillStar (x - size div 2, y - size div 2, x + size div 2, y + size div 2, 0) Draw.FillStar (x - size div 2, y + size div 2, x + size div 2, y - size div 2, 0) end if end Paint proc StopPaint if ~moving then Draw.FillStar (x - size div 2, y - size div 2, x + size div 2, y + size div 2, 0) Draw.FillStar (x - size div 2, y + size div 2, x + size div 2, y - size div 2, 0) end if end StopPaint fcn Update : boolean var output : boolean := false if moving then y -= speed angle += 1 x := round (x_c + sind (angle) * amp) if x > 0 and x < maxx and y > 0 and y < maxy then if View.WhatDotColour (x, y - speed div 2) = 0 or View.WhatDotColour (x, y - speed div 2) = 2 then moving := false output := true end if end if if y < 10 then moving := false output := true end if end if result output end Update end Flake var x_tri : array 1 .. 3 of int := init (150, 400, 650) var y_tri : array 1 .. 3 of int := init (250, 400, 250) Draw.FillBox (0, 0, maxx, maxy, 7) Draw.FillOval (maxx div 2, -1000, 1050, 1050, 17) Draw.FillBox (250, 0, 550, 250, 2) Draw.FillBox(400,0,525,200,3) Draw.FillOval(415,110,5,5,7) Draw.FillBox(265,75,385,200,3) Draw.FillBox(275,85,375,190,14) Draw.ThickLine(325,80,325,195,4,3) Draw.ThickLine(270,138,380,138,4,3) Draw.FillBox(450,300,550,425,2) Draw.FillPolygon (x_tri, y_tri, 3, 2) var background : int := Pic.New (0, 0, maxx, maxy) var flake : flexible array 0 .. cur_flakes of pointer to Flake loop if cur_flakes < num_flakes then cur_flakes += 1 new flake, cur_flakes new Flake, flake (cur_flakes) flake (cur_flakes) -> Init end if if low_flakes < cur_flakes - 200 then Pic.Draw (background, 0, 0, picCopy) for i : low_flakes .. low_flakes + 50 flake (i) -> StopPaint end for low_flakes += 50 Pic.Free (background) background := Pic.New (0, 0, maxx, maxy) end if Pic.Draw (background, 0, 0, picCopy) for i : low_flakes .. cur_flakes if flake (i) -> Update then num_flakes += 1 end if flake (i) -> Paint end for View.Update () Time.DelaySinceLast (10) exit when hasch end loop Pic.Free (background)

Author:	Zasalamel [ Sun Nov 29, 2009 9:25 am ]
Post subject:	RE:The Snow is Falling!
Cool! but what about those little pieces that stop mid-flight? I wouldn't have enought patience to do that...

Author:	ecookman [ Sun Nov 29, 2009 5:45 pm ]
Post subject:	RE:The Snow is Falling!
OOOH COOL, in my G10 CS I tried to make a program like this, but got stuck and just made the show fall straight down and randomly draw itself on the house, now I know how to actually make it the way I wanted. THANK YOU!!

Author:	DemonWasp [ Sun Nov 29, 2009 10:34 pm ]
Post subject:	RE:The Snow is Falling!
The flakes that stop mid-flight are probably caused by his whatdotcolour collision detection - they collide with another snowflake and mistake that for the ground / a house and stop there.

Author:	Zren [ Sun Nov 29, 2009 11:19 pm ]
Post subject:	Re: The Snow is Falling!
Trig! Files! Magical Lines! Fools, you think you can challenge me with your fancy snowflakes and line drawing engines. @Deamon/Whitestuff getting stuck: Yea, that's my fault. You see, I didn't expect my lazyness to be so noticed/challenged. However, it's easy to fix if you do what I said for efficiency. The origional code woulda worked better if I changed like 2 or 3 numbers around, but you guys added some trippy stuff. So I couldn't just do that, no. Deamon, your's is like...so peaceful. Good job physics-man! And Bean. You and your flexi-arrays you. Oh and here's Christmas Themed Particle Engine Revamped To Seem Awesomer Version 1++ ... Mark 2 (Just watched Iron Man kay). The image file is optional btw. Quote: % Xmas Themed Particle Engine Mark 2 % by: Chris % aka. Zren var picBarrier, width, height : int var image : string := "scene.gif" if File.Exists (image) then picBarrier := Pic.FileNew (image) width := Pic.Width (picBarrier) height := Pic.Height (picBarrier) View.Set ("graphics:" + intstr (width) + ";" + intstr (height) + ",offscreenonly") % lol Tony else % Oh noes. File no existe. Draw.FillBox(0,0,maxx,maxy,black) Draw.FillOval (maxx div 2, -1000, 1050, 1050, 17) var x : array 1 .. 3 of int := init (150, 450, 300) var y : array 1 .. 3 of int := init (150, 150, 300) Draw.FillBox (200, 0, 400, 150, white) Draw.FillPolygon (x, y, 3, white) picBarrier := Pic.New (0, 0, maxx, maxy) width := 600 height := 400 View.Set ("graphics,offscreenonly") %no see-ee for you end if class Snowflake export setAng, setVel, setView, getAng, getView, initialize, move, paint, flipView, isOnGround var x, y, ang, vel : real var view, onground : boolean proc setAng (a : real) ang := a end setAng proc setVel (v : real) %Going mach 4 now! vel := v end setVel proc setView (v : boolean) view := v end setView function getAng : real result ang end getAng function getView : boolean % You want to know what I look like? result view end getView function isOnGround : boolean result onground end isOnGround proc initialize %Bios view := false x := Rand.Real * maxx y := maxy ang := 270 vel := Rand.Real * 3 + 1 onground := false end initialize proc move var px := x var py := y x += vel * cosd (ang) y += vel * sind (ang) if x >= maxx then px -= maxx %That's post tramatic stress to you x -= maxx end if if x < 0 then px += maxx x += maxx end if if whatdotcolor (round (x), round (y)) = white then %Im so awesome x := px y := py vel = 0.8 if vel <= 0.5 then onground := true % OMG Its on the freeking ground man end if end if end move proc paint Draw.Dot (round (x), round (y), white) % Draw.FillOval (round (x), round (y), 1, 1, white) end paint procedure flipView view := ~view end flipView end Snowflake var flakes_per_frame := 1 var totalflakes : int := flakes_per_frame 400 var flake : array 1 .. totalflakes of pointer to Snowflake for i : 1 .. totalflakes new Snowflake, flake (i) flake (i) -> initialize % snowflake now exists end for var currentflake := totalflakes + 1 var wind : int := 3 var next : int %So what's next man loop %Render WhiteBarrier Pic.Draw (picBarrier, 0, 0, picCopy) next := currentflake + flakes_per_frame if next <= totalflakes then %You for i : currentflake .. next flake (i) -> initialize flake (i) -> setView (true) end for else %Spin me round next -= totalflakes for i : 1 .. next flake (i) -> initialize flake (i) -> setView (true) end for %Right round for i : currentflake .. totalflakes flake (i) -> initialize flake (i) -> setView (true) end for end if %like a record currentflake := next if currentflake > totalflakes then currentflake -= totalflakes end if for i : 1 .. totalflakes flake (i) -> setAng (flake (i) -> getAng + Rand.Int (-wind, wind)) flake (i) -> move % it baby end for for i : 1 .. totalflakes if flake (i) -> isOnGround = true and flake (i) -> getView = true then flake (i) -> paint %Add to WhiteBarrier %Move last flake in array to this point. flake (i) -> initialize %Move last flake in array to this point. end if end for Pic.Free (picBarrier) picBarrier := Pic.New (0, 0, maxx, maxy) for i : 1 .. totalflakes if flake (i) -> getView = true then flake (i) -> paint % 5 year old + paint...yeah thats right end if end for %Stop! Hammertime! View.Update delay (10) % 100 FPS? HA! Remove this line to watch how unefficient this is. end loop

Author:	Tony [ Sun Nov 29, 2009 11:47 pm ]
Post subject:	Re: The Snow is Falling!
Zren @ Sun Nov 29, 2009 11:19 pm wrote: View.Set ("graphics:" + intstr (width) + ";" + intstr (height) + ",offscreenonly") % lol Tony I saw that. Tony @ Thu Nov 26, 2009 1:39 pm wrote: Zren @ Thu Nov 26, 2009 12:06 am wrote: Not like you guys read that stuff anyways right? That's all I ever do around here

Author:	DemonWasp [ Mon Nov 30, 2009 10:14 am ]
Post subject:	RE:The Snow is Falling!
Thanks. There's actually a surprising amount of physics built into that. Turns out wind resistance is really easy as long as you simulate it iteratively rather than doing the differential equations. Incidentally, for efficiency in Turing: never use classes or pointers. I don't know what's wrong with them, but they're sooooo slooooow. Mine uses records in arrays (not flexible arrays!) and runs pretty smoothly with 1000 particles, or even 2000 on relatively-powerful hardware.

Author:	Murphman [ Mon Nov 30, 2009 11:02 am ]
Post subject:	Re: The Snow is Falling!
Thanks. This has helped me with my x-mas scene i have been working on

Author:	andrew. [ Mon Nov 30, 2009 5:12 pm ]
Post subject:	Re: RE:The Snow is Falling!
DemonWasp @ Mon Nov 30, 2009 10:14 am wrote: Incidentally, for efficiency in Turing: never use classes or pointers. I don't know what's wrong with them, but they're sooooo slooooow. Mine uses records in arrays (not flexible arrays!) and runs pretty smoothly with 1000 particles, or even 2000 on relatively-powerful hardware. Yeah I find that OOP in Turing is extremely slow. Turing takes a long time for some reason to create and modify objects and if you are doing so for a bunch of particles, it gets bogged down pretty easily.