Here are two I found in the forum.
Rem ***** Included Source File *****
rem Please wait
set text font "verdana" : s$="generating clouds...please wait"
center text screen width()/2,screen height()/2,s$ : sync
rem init app at 60fps
sync on : sync rate 0
rem half-fill the sky with clouds
dc set cloudy 0.4
rem clouds at 3 km
dc set cloud height 1
rem dc set rain 0.4,0.01
rem set sky brightness to 1
brightness#=0.2
dc set brightness brightness#
rem adjust brightness based on time of day
dc set auto brightness 0
rem set wind to 30 mph at 270 degrees (heading west)
dc set wind 10,270
rem init with texture number 1, and number of keyframes per day
dc init 1,10
rem put clouds at 3km altitude
dc set cloud height 5.0
rem starting at 7am
time#=5.0
rem the update command creates the cloud texture
dc update time#
rem show texture 1 as the backdrop
texture backdrop 1
rem place camera for best view
position camera 0,10000,-200
load dll "Kernel32.dll",1
rem Main loop
do
Set cursor 0,0
Print screen FPS()
rem step through the day
time#=time#+100.0/(60.0*60.0*60.0)
rem update clouds
dc update time#
rem use mouselook on camera
mx#=mousemovex()/10.0;
my#=mousemovey()/10.0;
if MOUSECLICK()<>0
rotate camera camera angle x()+my#,camera angle y()+mx#,0
endif
if upkey()=1 then move camera 0,6.0
if downkey()=1 then move camera 0,-6.0
call dll 1,"Sleep",5
sync
rem end loop
loopSync On
Sync Rate 60
dc set cloudy 0.5
dc set cloud height 3
dc set brightness 1
dc set auto brightness 1
dc set wind 40, 270
dc init 1, 1
time#=7.0
dc update time#
texture backdrop 1
position camera 0, 25, 0
speed = 0
Do
If Inkey$() = "." Then Inc Speed
If Inkey$() = "," Then Dec Speed
Text 10, 10, "Speed: " + Str$(Speed) + "mph"
Roll Camera Right 0, RightKey() - LeftKey()
Pitch Camera Up 0, DownKey() - UpKey()
Move Camera 0, Speed
time#=time#+100.0/216000.0
dc update time#
Sync
Loop
They are two different programs, yet they both produce their results on the top left corner of a static image of clouds.
This makes me think that, it's not the code.
It must be something else.
