Code: Select all
rem Sine ball demo.
rem iPhone 6 plus / 8.3 b4
rem Enjoy...
gosub setup
loop:
refresh off
'graphics clear
fill color 20/255,(c1/4)/255,20/255
'triangle 0,0 to sw,sh to 0,sh
trix(0)=0
triy(0)=0
trix(1)=sw
triy(1)=sh
trix(2)=0
triy(2)=sh
'fill poly trix,triy count 3
'triangle 0,0 to sw,sh to sw,0
trix(0)=0
triy(0)=0
trix(1)=sw
triy(1)=sh
trix(2)=sw
triy(2)=0
'fill poly trix,triy count 3
gosub balls
fill rect 0,sh-20 to sw,sh
draw color 100/255,100/255,50/255
s1=2+1*sin(mm)
s2=2+1*cos(mm/3)
slx=4*sin(mm)-4
sly=4*cos(mm)
offs=50*sin(mm)
draw text mid$(s$,p,76) at scx+offs-slx,sh-18-sly
draw text "ANARCHIC SPHERES DEMO!" at 30-slx,10-sly
draw color 140/255,140/255,70/255
draw text "ANARCHIC SPHERES DEMO!" at 33,10
draw text mid$(s$,p,76) at scx+offs,sh-20
scx=scx-2
if scx<-50 then
scx=scx+10
p=p+1
if p>len(s$)-1 then p=0
end if
refresh on
goto loop
balls:
fill color c1/255,c2/255,c3/255
off=off+2
if off>360 then off=off-360
n=(bobs*10)+1
for a=1 to bobs
mm=mm+.01
c1=100*sin(mm+a)+100
c2=100*sin(mm+a/2)+100
c3=100*sin(mm+a/3)+100
x=px(off+m)+sw/2+xt(m+off) '195
y=py(off+n)+sh/2 '140
for b=l+a to 360+l+a step 40
'triangle (sx(b)*s1)+x,(sy(b)*s2)+y to (sx(b+40)*s1)+x,(sy(b+40)*s2)+y to x,y
trix(0)=(sx(b)*s1)+x
triy(0)=(sy(b)*s2)+y
trix(1)=(sx(b+40)*s1)+x
triy(1)=(sy(b+40)*s2)+y
trix(2)=x
triy(2)=y
fill poly trix,triy count 3
next b
m=m+10
n=n-10
next a
l=l+20
if l>40 then l=l-40
m=0
return
setup:
graphics
pi=3.1415
sw=screen_width()
sh=screen_height()
bobs=14
dim sx(721)
dim sy(721)
dim px(721)
dim py(721)
dim xt(721)
dim trix(4),triy(4)
for a=1 to 720
xt(a)=100*sin(a*(pi/180))
sx(a)=50*sin(a*(pi/180))
sy(a)=50*cos(a*(pi/180))
px(a)=200*sin(a*(pi/180)*2)+sw/4
py(a)=200*cos(a*(pi/180))+sh/6
next a
s$=" "
s$=s$&"HI FOLKS!!! CAN YOU ACTUALLY READ THIS SCROLL?? "
s$=s$&" HOPE NOT BECAUSE THERE IS NOTHING WORTHWHILE IN "
s$=s$&"HERE! THIS ONE'S A BIT DIFFERENT THOUGH, EH?? "
s$=s$&" MORE PSYCHEDELIA.. NO 3D FOR A CHANGE.. STILL"
s$=s$&" LOOKS OK THOUGH, AND OF COURSE THE SCROLL IS "
s$=s$&"DIFFERENT!!! BIG HELLOS TO ALL THAT KNOW ME "
s$=s$&"MR. K HAS A GREAT SITE!! THAT'S ALL FOLKS..... "
p=0
scx=-40
return
