The Snow is Falling!

[Zren]

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.

[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 Nice demo of snow.

[DemonWasp]

I see your snow, and raise you my attempt, attached. It's...peaceful.

The file format in model.txt is as follows:

code:

(number of walls) (x1) (y1) (x2) (y2) (x1) (y1) (x2) (y2) (x1) (y1) (x2) (y2) ...

[The_Bean]

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)

[Zasalamel]

Cool! but what about those little pieces that stop mid-flight? I wouldn't have enought patience to do that...

[ecookman]

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

[DemonWasp]

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.

[Zren]

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

[Tony]

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

[DemonWasp]

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.

[Murphman]

Thanks. This has helped me with my x-mas scene i have been working on

[andrew.]

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.