Computer Science Canada

Skyline
Author:  Martin [ Sun May 11, 2003 8:12 pm ]
Post subject:  Skyline
code:
for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for
Author:  Catalyst [ Sun May 11, 2003 8:47 pm ]
Post subject: 
Very Happy
code:
for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for

drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
var hold : int
for i : 1 .. 200
    hold := Rand.Int (0, maxx)
    drawfillbox (hold, 0,hold+Rand.Int (10,20), Rand.Int (0, 100), 7)
end for
Author:  Catalyst [ Sun May 11, 2003 9:12 pm ]
Post subject: 
Very Happy Very Happy

code:
for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for

var hold, hold2 : int

drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)

for i : 1 .. 200
    hold := Rand.Int (0, maxx)
    drawfillbox (hold, 0, hold + Rand.Int (10, 20), Rand.Int (0, 100), 7)
end for

for i : 1 .. 1000
    hold := Rand.Int (0, 100)
    hold2 := Rand.Int (0, maxx)
    if whatdotcolor (hold2, hold) = 7 then
        drawfillbox (hold2, hold,hold2+1,hold+1,Rand.Int (14, 30))
    end if
end for

var over : int := Pic.New (0, 0, maxx, maxy)

for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

Pic.Draw (over, 0, 0, picMerge)
Author:  Tony [ Sun May 11, 2003 9:24 pm ]
Post subject: 
Nice stuff guys Very Happy

add this
code:

Draw.FillOval(550,350,24,24,black)
Draw.Arc(550,350,25,25,250,110,yellow)
Draw.Arc(540,350,20,22,270,90,yellow)
Draw.Fill(570,350,yellow,yellow)


+7Bits to Catalyst, Darkness is a mod - Tony
Author:  octopi [ Sun May 11, 2003 9:34 pm ]
Post subject: 
Nice work
1 bit to tony, 9 to catalyst, and darkness

sorry for being so cheap....but unlike some people (tony) I am not made of millions of bits...

MOD Edit: The color blue is reserved for mod edits so they can be easily seen. -Asok
Author:  Homer_simpson [ Sun May 11, 2003 9:49 pm ]
Post subject: 
man it's been a long time since i've seen a sky full of stars... =(
*feeling very very low* Crying or Very sad Crying or Very sad Crying or Very sad Crying or Very sad
Author:  octopi [ Sun May 11, 2003 9:50 pm ]
Post subject: 
...Where do you live?, I can see them basically every night. (Unless its cloudy)
Author:  Catalyst [ Sun May 11, 2003 10:06 pm ]
Post subject: 
he probly lives in the city
Author:  Asok [ Sun May 11, 2003 10:12 pm ]
Post subject: 
I don't go outside so I don't really care Wink
Author:  Homer_simpson [ Sun May 11, 2003 10:31 pm ]
Post subject: 
from dawn to moonlight
code:
var ii := 0
View.Set ("offscreenonly")
loop
    ii += 5
    for decreasing i : maxy .. 0
        RGB.SetColour (1, ii, 0, i * (1 / maxy))
        Draw.Line (0, maxy - i, maxx, maxy - i, 1)
    end for

    for a : 1 .. 500
        var x := Rand.Int (0, maxx)
        var y := Rand.Int (150, maxy)
        var c := Rand.Int (16, 31)
        Draw.Dot (x, y, c)
    end for

    drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
    var hold : int
    for i : 1 .. 200
        hold := Rand.Int (0, maxx)
        drawfillbox (hold, 0, hold + Rand.Int (10, 20), Rand.Int (0, 100), 7)
    end for
    Draw.FillOval (550, 350, 24, 24, 15)
    Draw.Arc (550, 350, 25, 25, 250, 110, white)
    Draw.Arc (540, 350, 20, 22, 270, 90, white)
    Draw.Fill (570, 350, white, white)
    View.Update
    delay (100)
end loop

/ /
Ow hurts my eyes (-)(-)/
Author:  Homer_simpson [ Sun May 11, 2003 10:32 pm ]
Post subject: 
I live in toronto and i hate it... I HATE everything the people the city the places... EVERYTHING!!!!!!!!!!
Author:  Catalyst [ Sun May 11, 2003 10:37 pm ]
Post subject: 
so i ur world the stars and buildings move during the night??
Author:  Homer_simpson [ Sun May 11, 2003 10:48 pm ]
Post subject: 
no... think of it this way your in a car moving with the speed of light on a road around the earth.... bwahahaarrr...
Author:  naoki [ Wed May 21, 2003 5:04 pm ]
Post subject: 
nice

Razz
Author:  Krabjuice [ Wed Feb 04, 2004 6:29 pm ]
Post subject: 
code:
   setscreen ("graphics:v256")
    setscreen ("graphics:640;480,nobuttonbar")
   
%declairations
var tim:string
var day:string
var ground:int
var ground1:int
var building:int
var moonphase:int
var moon:int
var light:int
var light1:int

%backdrop
for decreasing g : maxy .. 0
    RGB.SetColour (1, 0, 0, g * (1 / maxy))%color fade of backdrop
    Draw.Line (0, maxy - g, maxx, maxy - g, 1)%base of backdrop
end for

%stars
for a : 1 .. 750%number of stars
%declairation of star location/color
var ecks := Rand.Int (0, maxx)%x position, random (x, ecks... get it.. heh..eh?)
var wy := Rand.Int (150, maxy)%y position, random
var zee := Rand.Int (14, 31)%color
    Draw.Dot (ecks, wy, zee)%draws the star
end for

%buildings
for i : 1 .. 125%affects number of buildings
    ground:=Rand.Int (0, maxx)%beginning of buildings
    ground1:=ground+Rand.Int (10,25)%width of buildings
    building:=Rand.Int (0, 125)%height of buildings

    drawbox (ground -1, 0, ground1+1, building+1, Rand.Int (15,20)) %Outlines buildings
    drawfillbox (ground, 0,ground1, building, Rand.Int (15,29))%Draws the buildings
end for

%lights
for l:1..500

light:=Rand.Int (0,640)
light1:=Rand.Int (0,124)

if whatdotcolor (light,light1) = 15 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 16 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 17 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 18 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 19 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 20 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 21 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 22 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 23 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 24 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 25 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 26 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 27 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 28 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 29 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
end if
end for

%moon
   moon:=Rand.Int (25,575)%Generates random moon location
   moonphase:=Rand.Int (0,5)%Generates moon phase
%moonphases
if moonphase = 0
then
elsif moonphase = 1
then drawfilloval (moon,445,14,16,yellow)
elsif moonphase = 2
then drawfilloval (moon,445,16,16,yellow)
elsif moonphase = 3
then drawfilloval (moon,445,16,16,yellow)
     drawfillbox  (moon - 16,429,moon,461,black)
elsif moonphase = 4
then drawfilloval (moon,445,16,16,yellow)
     drawfilloval (moon - 10,445,16,16,black)
elsif moonphase = 5
then drawfilloval (moon,445,16,16,yellow)
     drawfilloval (moon - 2,445,16,16,black)
end if

loop

%twinkle effect
var twn1:int:=Rand.Int (0,600)
var twn :int:=Rand.Int (126,400)

if whatdotcolor (twn1,twn) = 14 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 15 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 16 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 17 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 18 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 19 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 20 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 21 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 22 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 23 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 24 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 25 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 26 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 27 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 28 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 29 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 30 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 31 then drawdot (twn1,twn,Rand.Int (14,31))
end if

%Clock
    date (day)%day of the year
    time (tim)%time of day
    colourback (black)%blends in the background
    color (white)%For visibility
    Text.LocateXY (5, 470)%Constatly places time over itself
put day, " " ,tim
    delay (5)
end loop       
Color Whoo!

Oh, and excuse me, I have not reached the experience level required to make all this less.. big.
Author:  shorthair [ Wed Feb 04, 2004 7:01 pm ]
Post subject: 
nice , very Funkadelic , Its well done , how long have you been programming , (this changes wheather im impressed or not )
Author:  Krabjuice [ Wed Feb 04, 2004 7:15 pm ]
Post subject: 
It would be my.. o.O second month of rather light programming.
Author:  AsianSensation [ Wed Feb 04, 2004 11:26 pm ]
Post subject: 
code:
   for rep : 15 .. 29
        if whatdotcolor (light, light1) = rep then
            drawfillbox (light, light1, light + 1, light1 + 1, Rand.Int (14, 31))
        end if
    end for


and

code:
    for rep : 14 .. 31
        if whatdotcolor (twn1, twn) = rep then
            drawdot (twn1, twn, Rand.Int (14, 31))
        end if
    end for


to reduce all those lines. 8)

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy