NaaLaa

Full Version: Warm Day
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2
Well, it has taken until 4th of February, for us to get what I call a warm Melbourne summer's day... A very nice 38C... at last... It is rare that we get hot days, 45C+, but it does happen... How warm does it get for other Forum members?

(Well, the forum IS listed as "Everything Else"... I suppose the weather would be included in that category... Moo Ha Ha Ha)
Slightly above 0°C here in Sweden, still winter Sad
It's pretty rare for our temperature to drop 'that' low in winter, but it has happened... The last time it snowed in Melbourne was July of 1986 but it almost melted as soon as it hit the ground.... But zero is a little too cold for me... lol
Our world is unique, one earth but it has opposite weather between the northern and southern hemisphere  Big Grin
Sometimes, I just entertain myself with "the falling snow" code below ... 

Code:
' Sources :
' The falling snow is inspired from the moving stars in Blastemroids (Naalaa 6) by Marcus

'----------------
' INITIALIZATION
'----------------=
w = 640
h = 300

snow            = []
hill            = []           
myfont          = []

#win32
set window "Snow",w,h,false
set redraw off

'initial value
snow.dx         = 0
snow.dy         = 0
snow.img        = 0
myfont.img      = 0
myfont.size     = 50

'create a snow image from ellipses
create image snow.img, w,h
set image snow.img
set color 100,100, 100 'gray background
cls
for i = 0 to 500
    snow.radius = rnd(4)
    set color 255, 255, 255, rnd(256)
    draw ellipse rnd(w),rnd(h),snow.radius,snow.radius,1
next
set image primary

'load assets     
hill.img    = loadimage ("data_snow/landscape.png")
myfont.img  = createfont("Arial", myfont.size, 0,0,0,0)'name,size,bold,italic,underlined,smoothed

'--------------
' MAIN PROGRAM
'--------------       
do   
    set color 0,0,0;cls; set color 255,255,255'white
   
    'snow movement 1 pixel at a time diagonally, use 4 images as continuity
    snow.dx = (snow.dx + 1)%w
    snow.dy = (snow.dy + 1)%h
    draw image snow.img, -w + snow.dx    , snow.dy
    draw image snow.img,  0 + snow.dx    , snow.dy
    draw image snow.img, -w + snow.dx    , snow.dy - h
    draw image snow.img,  0 + snow.dx    , snow.dy - h
   
    'draw a static hill
    draw image hill.img,0,(0.625*h)
   
    set font myfont.img; set caret w/2,50; center "It's snowy..."

    wait 10
    redraw
until keydown(KEY_ESCAPE)
Very "cool"... Nice job!
8°C, windy and rainy in Scotland.
8 degrees is a little "fresh" but not too bad.... Wind and rain are old friends... Plenty of that in Melbourne during Winter/Spring...
Do you want to swap? I'm gonna give you the Scottish weather and take the Australian in return. Big Grin
I really, really want to visit Scotland one day though. And Iceland and France.

Edit I suffer from severe arachnophobia and probably wouldn't last a minute in Australia Smile
New York and Japan are on top of my list of travelling destinations, but they would have to wait for me for another couple of years. Smile
Pages: 1 2