Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Skyline
Index -> Programming, Turing -> Turing Submissions
Goto page 1, 2  Next
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Martin




PostPosted: 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
Sponsor
Sponsor
Sponsor
sponsor
Catalyst




PostPosted: Sun May 11, 2003 8:47 pm   Post subject: (No 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
Catalyst




PostPosted: Sun May 11, 2003 9:12 pm   Post subject: (No 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)
Tony




PostPosted: Sun May 11, 2003 9:24 pm   Post subject: (No 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
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
octopi




PostPosted: Sun May 11, 2003 9:34 pm   Post subject: (No 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
Homer_simpson




PostPosted: Sun May 11, 2003 9:49 pm   Post subject: (No 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
octopi




PostPosted: Sun May 11, 2003 9:50 pm   Post subject: (No subject)

...Where do you live?, I can see them basically every night. (Unless its cloudy)
Catalyst




PostPosted: Sun May 11, 2003 10:06 pm   Post subject: (No subject)

he probly lives in the city
Sponsor
Sponsor
Sponsor
sponsor
Asok




PostPosted: Sun May 11, 2003 10:12 pm   Post subject: (No subject)

I don't go outside so I don't really care Wink
Homer_simpson




PostPosted: Sun May 11, 2003 10:31 pm   Post subject: (No 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 (-)(-)/
Homer_simpson




PostPosted: Sun May 11, 2003 10:32 pm   Post subject: (No subject)

I live in toronto and i hate it... I HATE everything the people the city the places... EVERYTHING!!!!!!!!!!
Catalyst




PostPosted: Sun May 11, 2003 10:37 pm   Post subject: (No subject)

so i ur world the stars and buildings move during the night??
Homer_simpson




PostPosted: Sun May 11, 2003 10:48 pm   Post subject: (No subject)

no... think of it this way your in a car moving with the speed of light on a road around the earth.... bwahahaarrr...
naoki




PostPosted: Wed May 21, 2003 5:04 pm   Post subject: (No subject)

nice

Razz
Krabjuice




PostPosted: Wed Feb 04, 2004 6:29 pm   Post subject: (No 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.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 2  [ 18 Posts ]
Goto page 1, 2  Next
Jump to:   


Style:  
Search: