Skyline

Martin · **Posted:** Sun May 11, 2003 8:12 pm

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

Catalyst · **Posted:** Sun May 11, 2003 8:47 pm

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 · **Posted:** Sun May 11, 2003 9:12 pm

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 · **Posted:** Sun May 11, 2003 9:24 pm

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

octopi · **Posted:** Sun May 11, 2003 9:34 pm

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 · **Posted:** Sun May 11, 2003 9:49 pm

man it's been a long time since i've seen a sky full of stars... =(
*feeling very very low* Crying or Very sad

octopi · **Posted:** Sun May 11, 2003 9:50 pm

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

Catalyst · **Posted:** Sun May 11, 2003 10:06 pm

he probly lives in the city

Asok · **Posted:** Sun May 11, 2003 10:12 pm

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

Homer_simpson · **Posted:** Sun May 11, 2003 10:31 pm

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 · **Posted:** Sun May 11, 2003 10:32 pm

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

Catalyst · **Posted:** Sun May 11, 2003 10:37 pm

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

Homer_simpson · **Posted:** Sun May 11, 2003 10:48 pm

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

naoki · **Posted:** Wed May 21, 2003 5:04 pm

nice

Krabjuice · **Posted:** Wed Feb 04, 2004 6:29 pm

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

Whoo!

Oh, and excuse me, I have not reached the experience level required to make all this less.. big.

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members