Good morning ladies :-)

General discussion for topics related to the FreeBASIC project or its community.
ShawnLG
Posts: 142
Joined: Dec 25, 2008 20:21

Post by ShawnLG »

Merry Christmas and have a happy new year!

Here is an animated Christmas card.

Code: Select all

'Software Chirstmas card by Shawn Grieb, 2009
'snowfall:
'100 normal
'300 heavy
'1000 blizzard
const snowfall = 100


screen 13
line(0,185)-(319,199),6,BF
circle(160,170),20,15,,,,F
circle(160,140),15,15,,,,F
circle(160,120),10,15,,,,F
circle(156,116),2,0,,,,F
circle(164,116),2,0,,,,F
circle(160,120),2,4,,,,F

dim x(0 to snowfall) as integer
dim y(0 to snowfall) as integer
dim i as integer
for i = 0 to snowfall
    x(i) = 319*rnd
    y(i) = 100*rnd
next i
dim as integer newx, newy
do
    sleep 10
    for i = 0 to snowfall
        newx = x(i) + int(3 * rnd - 1)
        newy = y(i) + 1
        if point(newx,newy) = 0 or point(newx,newy) = 7 then
            pset(x(i),y(i)), 0
            pset(newx,newy), 7
            x(i) = newx
            y(i) = newy
        else
            pset(x(i),y(i)), 15
            x(i) = 319 * rnd
            y(i) = 0
        end if
    next i
loop until inkey <> ""
Kot
Posts: 336
Joined: Dec 28, 2006 10:34

Post by Kot »

Cool! :-) Merry Christmas from Poland! (snow melted here yesterday, unfortunately)
v1ctor
Site Admin
Posts: 3804
Joined: May 27, 2005 8:08
Location: SP / Bra[s]il
Contact:

Post by v1ctor »

Ho, ho, ho! Merry Christmas from [<o>]! (that's supposed to be the Brazil's flag ;)
Mentat
Posts: 332
Joined: Oct 27, 2007 15:23
Location: NC, US
Contact:

Post by Mentat »

Merry Christmas from NC. ;)
badmrbox
Posts: 664
Joined: Oct 27, 2005 14:40
Location: Sweden
Contact:

Post by badmrbox »

Merry Christmas from Sweden.
roook_ph
Posts: 402
Joined: Apr 01, 2006 20:50
Location: philippines
Contact:

Post by roook_ph »

Maligayang Pasko! ---- Look it up in google :_)
SARG
Posts: 1756
Joined: May 27, 2005 7:15
Location: FRANCE

Post by SARG »

And other merry Christmas from France.
St_W
Posts: 1619
Joined: Feb 11, 2009 14:24
Location: Austria
Contact:

Post by St_W »

Happy Christmas from Austria ! (not australia, that one in europe :-) )
Frohe und besinnliche Weihnachten aus Österreich !
Joyeux Noël !
Feliz Navidad !
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Post by fxm »

I join @JL35 and @SARG to wish you all a Merry Christmas from France too.
Antoni
Posts: 1393
Joined: May 27, 2005 15:40
Location: Barcelona, Spain

Post by Antoni »

Merry Christmas from Spain!
Sisophon2001
Posts: 1706
Joined: May 27, 2005 6:34
Location: Cambodia, Thailand, Lao, Ireland etc.
Contact:

Post by Sisophon2001 »

Merry Christmas from Cambodia
barok
Posts: 32
Joined: Aug 28, 2005 17:30

Post by barok »

In order to not discriminate against people who don't celebrate christmas, peple who use canes, non-merry people and dentists, I decided to give a fairly neutral, non-christmassy greeting. Something like hi or hello. But then there are people who don't speak english, so I had to think of something else. Math is universal, so I thought about making my greeting in math. then I said screw it.

Merry Christmas from Canyada!
nobozoz
Posts: 238
Joined: Nov 17, 2005 6:24
Location: Chino Hills, CA, USA

Post by nobozoz »

Merry Christmas from Southern California, USA.
Dr_D
Posts: 2451
Joined: May 27, 2005 4:59
Contact:

Post by Dr_D »

Merry Christmas from the land of Oz! :p
anonymous1337
Posts: 5494
Joined: Sep 12, 2005 20:06
Location: California

Post by anonymous1337 »

happy Flying Saint Day everyone.
Post Reply