GeezerVisonThe World Wide Web, restored to 800 pixels of glory. |
| Home|About|Gaming cabinet|Archives|How it works|Starter sites |
GeezerVison is showing github.com — smallbasic.github.io/samples/node/1349.bas at master · smallbasic/smallbasic.github.io Expand file tree/ Copy path1349.basMore file actions 56 lines (53 loc) · 969 Bytes / Copy path1349.basFile metadata and controls56 lines (53 loc) · 969 Bytes 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 'boing.bas for SmallBASIC 2015-07-25 MGA/B+ 'update for Android 2015-11-26 dim s(1 to 4,1 to 2) '4 corners s(1,1)=0 : s(1,2)=50 s(2,1)=0 : s(2,2)=ymax-50 s(3,1)=xmax+30 : s(3,2)=50 s(4,1)=xmax+30 : s(4,2)=ymax-50 oldtx=0:oldtyty=0:da=.03 boingx=0:boingy=0 color 0,7 :cls while 1 showpage delay 20 pen on if pen(3) then tx=pen(4)+20 ty=pen(5) delay 50 else tx=xmax/2 ty=ymax/2 if tx<>oldtx or ty<>oldty then boingx=3*(tx-oldtx)/4 boingy=3*(ty-oldty)/4 else boingx=-3*boingx/4 boingy=-3*boingy/4 endif tx+=boingx ty+=boingy endif pen off a=0 oldtx=tx oldty=ty cls circle tx-20,ty,25 filled for corner = 1 to 4 s1x=s(corner,1) s1y=s(corner,2) dx=(tx-s1x)/2000 dy=(ty-s1y)/2000 x=tx-20 y=ty for i=1 to 2000 sx=20*cos(a)+x sy=20*sin(a)+y rect sx,sy,sx+2,sy+2 filled x-=dx:y-=dy a+=da next next wend |
| You are visitor 01402520 — GeezerVison does not store the pages you look up. Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required. |