option explicit
option default NONE
const NSAMPLES=9
const T_IRQ=59
const t_CS=60
'
init:
spi open 1000000,3,8
dim integer xvalues(NSAMPLES-1),yvalues(NSAMPLES-1),y0,x0,j
setpin t_irq,din
setpin t_cs,dout
main:
do
if T.getxy(xvalues(),yvalues(),1000,9)then
j=shellsortMX(xvalues(),NSAMPLES) 'change to use ARM sort as required
j=shellsortMX(yvalues(),NSAMPLES) 'change to use ARM sort as required
x0=xvalues(NSAMPLES\2) 'get the median x value
y0=yvalues(NSAMPLES\2) 'get the median y value
dosomething(x0,y0)
else
donothing
endif
loop
end
'
sub dosomething( x as integer, y as integer)
print x,y
pause 300
end sub
'
sub donothing( x as integer, y as integer)
print ".";
end sub

function T.Getdata(command as integer) as integer 'get data from the touch controller
local integer i,j,k
pin(T_CS)=0
i=spi(command)
j=spi(0)
k=spi(0)
pin(T_CS)=1
T.Getdata= (j*256+k)>>4
end function
'
function T.getxy(x() as integer, y() as integer, timeout as integer, samples as integer) as integer
local integer i
timer=0
for i=0 to samples-1
do while timer<timeout and pin(T_IRQ)=1:loop
if timer>=timeout then
T.getxy=0
exit function
else
y(i)=T.getdata(&H90)
x(i)=T.getdata(&HD0)
endif
next i
T.getxy=1
end function
'
CFunction shellsortMX
00000000
8ca20000 27bdfff8 afb10004 afb00000 00401821 00032fc2 00a31821 00031843
5060003d 00001021 0062282a 10a0fffa 00032fc2 00036823 000370c0 000d60c0
008e7021 0080c021 008c8021 00607821 0000c821 01e3282a 01c03021 8dd10000
14a0001e 8dcb0004 8f070004 03202821 0167402a 11000034 8f090000 01e04021
000840c0 00884021 00a3502a 02003021 ad090000 1540000f ad070004 8cc70004
8cc90000 0167402a 00ad5021 1100001f 00cc3021 00a04021 01402821 000840c0
00884021 00a3502a ad090000 1140fff3 ad070004 000528c0 00853021 25ef0001
01e2282a acd10000 accb0004 27390001 25ce0008 27180008 14a0ffd6 26100008
00032fc2 00a31821 00031843 1460ffc7 0062282a 00001021 00001821 8fb10004
8fb00000 03e00008 27bd0008 14ebffe9 0229402b 5100ffe8 000528c0 00a04021
1000ffde 01402821 54ebffe5 25ef0001 0229402b 5500ffca 01e04021 1000ffe0
25ef0001
End CFunction

CFunction shellsortARM
00000000
b089b480 6078af00 683b6039 2300e9d3 613b4613 61fb693b 69fbe040 e03961bb
00db69bb 4413687a 2300e9d3 2302e9c7 617b69bb 697be011 687a00db 697a18d1
1ad369fb 687a00db e9d34413 e9c12300 697a2300 1ad369fb 697a617b 429a69fb
697adb0d 1ad369fb 687a00db e9d34413 e9d72300 42900102 0303eb71 697bdbdb
687a00db e9d718d1 e9c12302 69bb2300 61bb3301 693b69ba dbc1429a 0fda69fb
105b4413 69fb61fb d1b62b00 0200f04f 0300f04f 46194610 46bd3724 7b04f85d
bf004770
End CFunction

option explicit
option default NONE
CPU 96
'
const NSAMPLES=9 'number of times to sample each touch point
const t_CS=2 'chip select pin for XPT2046 touch controller
const T_IRQ=3 'interrupt pin for XPT2046 touch controller
const XLEFT0=1859, XRIGHT0=217, YTOP0=181, YBOTTOM0=1795 ' global constants to define calibration values
DIM INTEGER XLEFT, XRIGHT, YTOP, YBOTTOM ' global variables to hold active values
DIM INTEGER xvalues(NSAMPLES-1),yvalues(NSAMPLES-1)' arrays to hold raw sample values
pin(t_CS)=1
setpin t_irq,din
setpin t_cs,dout
CONST default_rotation=0 'default screen orientation for this display type, in this case portrait
' this constant must be either 0 = portrait or 2= landscape
const screen_width=240 'width of display in use
const screen_height=320 'height of display in use
dim integer width, height'active values based on current orientation
' 0=portrait, 1=portrait inverted, 2=landscale, 3=landscape inverted
DIM integer XSAMPLE0=&HD0 'parameters to hold XPT commands, these may be reversed by the calibration routine
'for a particular application these values can be saved and set as constants
DIM integer YSAMPLE0=&H90
DIM INTEGER XSAMPLE, YSAMPLE
'
dim integer x,y 'main program variables
'
spi2 OPEN 1000000,3,8
display open ILI9341S,1,30,32,31,screen_width,screen_height
'
T.rotate(2)
display 2,0,0,&H07E0,0,"Top left"
main:
if t.screenpos(x,y,1000) then
if x>3 and x<width-3 and y>3 and y<height-3 then circle x,y,3,&HFFFF,f
endif
goto main