I made this frmo scratch, it's nothing but it looks cool
you need to wait till the end to see all of it:
`setup
sync on : sync rate 60
`Data
mx=0
my=240
wy=241
`**Main Loop**
Do
`Old Positions
oldx=x : oldy=y
`Background
inc by
ink rgb(0,0-by,by),0
line 1,by,639,by
`City
if by>240
ink rgb(255,255,255),0
by=240
y=sin(tan((x^2)-(10*x)-20))*150
inc x
line mx+oldx,my+oldy,mx+x,my+y
endif
`water
if x>639
inc wy
ink rgb(0,128-(wy/5),255-(wy/2)),0
line 1,wy,639,wy
endif
`**End Loop**
Sync
Loop
The forumla to draw the city is:
y=sin(tan((x^2)-(10*x)-20))*150
Have fun
[edit]
Picture:
[edit]
Woah! Just tested it in DBPro. It doesn't look right, I made it in DBC because it doesn't take 300 years to execute...
[edit]
Here's a higher resolution one.
`setup
sync on : sync rate 60
Set Display mode 1024,768,16
`Data
mx=0
my=screen height()/2
wy=screen height()/2
`**Main Loop**
Do
`Old Positions
oldx=x : oldy=y
`Background
inc by
ink rgb(0,0-(by/3),by/3),0
line 1,by,screen width()-1,by
`City
if by>screen height()/2
ink rgb(255,255,255),0
by=screen height()/2
y=sin(tan((x^2)-(10*x)-20))*150
inc x
line mx+oldx,my+oldy,mx+x,my+y
endif
`water
if x>screen width()-1
x=screen width()
inc wy
ink rgb(0,0,255-(wy/6)),0
line 1,wy,screen width()-1,wy
endif
`**End Loop**
Sync
Loop
