added samples

Author: chrisws

graphics 4/circ.bas

@@ -0,0 +1,71 @@
+REM SmallBASIC
+REM created: 13/08/2019
+option predef load modules
+import android
+
+android.sensor_on(0)
+randomize ticks
+x=xmax/2
+y=ymax/2
+np=60
+gap=7
+ar=[]
+
+func mk(n)
+  local r
+  r.co=rgb(90-n,90-n,n)'rnd*15
+  r.p1=rnd*360
+  r.p2=rnd*360
+  r.dr=iff(n mod 2==1,1,0)
+  r.s=rnd*900
+  r.n=n+5
+  return r
+end
+
+sub sh(i,of,ac)
+  local r,s,e,j
+  j=iff(ar[i].dr==1, of, -of)
+  s=rad(ar[i].p1+j+ar[i].s)
+  e=rad(ar[i].p2+j+ar[i].s)
+  r=ar[i].n*gap
+  arc x,y,r,s,e,1,ar[i].co
+  if i==ac then
+    arc x,y,r+1,s,e,1,ar[i].co
+    arc x,y,r-1,s,e,1,ar[i].co
+    arc x,y,r+2,s,e,1,ar[i].co
+    arc x,y,r-2,s,e,1,ar[i].co
+  endif
+end
+ 
+for i = 0 to np - 1
+  ar<<mk(i)
+next i
+
+of=0
+ac=10
+nn=1
+t=10
+while 1
+  of=(of+10) mod 360
+  nn=(nn+1) mod (np-1)
+  s=android.sensor
+  x+=s.y*100
+  y+=s.x*100
+  if x<0 then x=0
+  if x>xmax then x=xmax
+  if y<0 then y=0
+  if y>ymax then y=ymax
+  if ac>0 and s.y*s.x < 0 then ac-=1
+  if ac<np-1 and s.y*s.x > 0 then ac+=1
+'  if ac==0 then exit loop
+  cls
+  'print ac+ " "+s.z
+  for i = 0 to np-1
+    sh(i,of,ac)
+  next i
+
+  showpage
+  delay t
+wend
+
+

index.bas

@@ -18,6 +18,7 @@ print cat(3) + "SmallBASIC featured samples" + cat(0)
 dim frm
 frm.inputs << bn("5000", "[Android] Stopit")
 frm.inputs << bn("5001", "[Android] Silly words")
+frm.inputs << bn("5004", "[Android] Circle slider")
 frm.inputs << bn("1407", "3d rotating cube with message [harixxx]") 'nice one harixxx!
 frm.inputs << bn("1613", "NIM [jsalai]")
 frm.inputs << bn("1409", "Mastermind [MGA & Johnno]")

mathematics/func.bas

@@ -0,0 +1,70 @@
+REM SmallBASIC
+REM created: 11/08/2019
+
+func yfn(x)
+ return x^2
+' return log(sin(x))
+' return log(x)
+' return sin(x)*(tan(x)+.1)
+' return 1/(cos(x)+.001)
+' return atan(x)*tan(x+.001)
+'return -3*x-5
+' return iff(x==0, 0, 1/x)*12
+end
+
+xm=xmax/2
+ym=ymax/2
+tw=30
+th=30
+xn=int(xm/tw)
+yn=int(ym/th)
+xw=xm/xn
+yh=ym/yn
+thh=th/2
+tww=tw/4
+grey=rgb(60,60,90)
+
+for x = 0 to xn
+  xleg(x)
+  xleg(-x)  
+next j
+
+for y = 0 to yn
+  yleg(y)
+  yleg(-y)  
+next j
+
+line xm,0,xm,ymax,15
+line 0,ym,xmax,ym,15
+
+sub xleg(x)
+  local px = xpx(x)
+  line px, 0, px, ymax, grey
+end
+
+sub yleg(y)
+  local py = ypx(y)
+  line 0, py, xmax, py, grey
+end
+
+func xpx(x)
+  return xm + x * xw
+end
+
+func ypx(y)
+  return ym + y * yh
+end
+
+sub plotx
+  local px,py,x,y,po
+  po=[]
+  for x = -xn to xn
+    y =- yfn(x)
+
+    po << [xpx(x),ypx(y)]
+  next x
+  drawpoly po color 2
+end
+
+plotx
+