!


GR.OPEN         0,0,0,40,0,1


! main parameters --------------


ARRAY.LOAD      nCtrl[], 60, 120, 180 , 240
ARRAY.LOAD      nCols[], 6,  8,   10  , 12
ARRAY.LOAD      rad[],   44, 32,  27  , 21


variant       = 1

nctrl         = nCtrl [variant]
nCols         = nCols [variant]
rad           = rad   [variant]


GOSUB          init 


!main loop -----------------
DO

PAUSE 33

UNTIL0
!------------------------

END





!callbackRoutines (but individual) ------------

_1::  PRINT "button: ";1  : RETURN 
_2::  PRINT "button: ";2  : RETURN 
_3::  PRINT "button: ";3  : RETURN 
_4::  PRINT "button: ";4  : RETURN 
_5::  PRINT "button: ";5  : RETURN 
_6::  PRINT "button: ";6  : RETURN 
_7::  PRINT "button: ";7  : RETURN 
_8::  PRINT "button: ";8  : RETURN 
_9::  PRINT "button: ";9  : RETURN
_10:: PRINT "button: ";10 : RETURN 

!   ....and so on 

!------------------------------------



!press action (all buts) --------

butPressAction:

RETURN
!------------------------



!release action (all buts) ------

butReleaseAction:

txt$         += CHR$(47+ curBut )
IF              !MOD(LEN(txt$),20) THEN  txt$ =""+CHR$(47+curBut)
GR.MODIFY       txt1, "text", txt$
!VIBRATE         vib2[],-1

RETURN
!------------------------









!===========================================
!Private part ==============================

!------------------------
ONGRTOUCH:

GOSUB           butPressAction

curBut        = 0
DO
GR.TOUCH       tou,tx,ty
GR.MODIFY      dum ,"x", tx, "y", ty
FOR i        = 1 TO nctrl
  IF            GR_COLLISION(ctrl[i],dum) THEN GOSUB colliHandle
NEXT
UNTIL           !tou

IF               curBut
GR.MODIFY       ctrl[curBut]+2, "alpha", 255
GOSUB           curBut, _1,_2,_3,_4,_5,_6,_7,_8,_9,_10
GOSUB           butReleaseAction
GR.RENDER
ENDIF

GR.ONGRTOUCH.RESUME
!------------------------

!------------------------
colliHandle:
IF               i <> curBut THEN
!VIBRATE         vib1[],-1
IF              curBut THEN GR.MODIFY ctrl[curBut]+2, "alpha", 255
GR.MODIFY       ctrl[i]+2       , "alpha", 0
curBut    = i
GR.RENDER
ENDIF
RETURN
!------------------------





!-------------------------------
init: 

GOSUB           userfun

GR.COLOR        0 ,255,0,0,1
GR.CIRCLE       dum, 0,0,0

!ARRAY.LOAD      vib1[],0,20
!ARRAY.LOAD      vib2[],0,10


! colors ----------------------
GR.TEXT.SIZE    rad*1.0
GR.SET.STROKE   4
GR.TEXT.ALIGN   2
GR.TEXT.BOLD    0
Gr.Color 255, 219, 249, 255,1
Gr.Color 255, 219, 249, 255,0
Gr.Color 255, 219, 249, 255,0
Gr.Color 255, 219, 249, 255,1
Gr.Color 255, 0, 0, 0,1
GR.PAINT.GET    colorIdx


! create button grid ----------
DIM             ctrl[nctrl]
kx            = 2.1*rad*1.20
ky            = 2.1*rad*0.90
FOR i         = 0 TO nctrl-1
x            = 50  + MOD(i,nCols) *kx  + MOD(INT(i/nCols),2) *kx/2
y            = 450 + INT(i/nCols) *ky 
ctrl[i+1]    = circButCreate (x, y ,rad, colorIdx,CHR$(48+i))
NEXT

! text bar for feedback -------
GR.TEXT.ALIGN   1
GR.TEXT.SIZE    45
Gr.Color 255, 255, 255, 255,1
GR.TEXT.DRAW    txt1, 50, 60 ,"--"
GR.RENDER

RETURN
! -----------------------

!------------------------
userfun:

FN.DEF          circButCreate (x,y,rad, color, txt$)     
FOR i        = 1 TO 3
  GR.rect nn,(x-rad/2-10),(y-rad/2-10),(x+rad/2+10),(y+rad/2+10)
  GR.MODIFY     nn, "paint" , color +i -5
NEXT
GR.MOVE        nn, 1 , 1

GR.TEXT.DRAW   nn, x,y+rad*0.5,txt$
GR.MODIFY      nn, "paint" , color  -1
GR.TEXT.DRAW   nn, x,y+rad*0.5,txt$
GR.MOVE        nn, 2 , 2
FN.RTN         nn-4
FN.END

RETURN
!------------------------

!===========================================