Good morning ladies :-)

For other topics related to the FreeBASIC project or its community.
ShawnLG
Posts: 103
Joined: Dec 25, 2008 20:21

Postby ShawnLG » Dec 24, 2009 17:41

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

Postby Kot » Dec 24, 2009 22:07

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

Postby v1ctor » Dec 24, 2009 22:56

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:

Postby Mentat » Dec 25, 2009 0:11

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

Postby badmrbox » Dec 25, 2009 0:19

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

Postby roook_ph » Dec 25, 2009 1:55

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

Postby SARG » Dec 25, 2009 10:36

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

Postby St_W » Dec 25, 2009 10:41

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

Postby fxm » Dec 25, 2009 10:48

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

Postby Antoni » Dec 25, 2009 11:15

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

Postby Sisophon2001 » Dec 25, 2009 13:04

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

Postby barok » Dec 25, 2009 16:18

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

Postby nobozoz » Dec 25, 2009 17:45

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

Postby Dr_D » Dec 25, 2009 21:23

Merry Christmas from the land of Oz! :p
Pritchard
Posts: 5492
Joined: Sep 12, 2005 20:06
Location: Ohio, USA

Postby Pritchard » Dec 26, 2009 4:11

happy Flying Saint Day everyone.

Return to “Community Discussion”

Who is online

Users browsing this forum: No registered users and 34 guests