'Display Colour Counter - requires MISO connected to LCD_SDO
 dim a$(2)=(" Blues"," Greens"," Reds")
 dim integer b, c, n
 for b=0 to 2
  n=0
  for c=0 to 255
   pixel 99,99,c<<b*8
   if pixel(99,99)=c<<b*8 then
    inc n
   endif
  next
  Print n;a$(b)
 next

> files
A:/
  <DIR>  .
  <DIR>  ..
00:00 01-01-2000          4  bootcount
00:02 01-01-2000      39808  DSC03042.jpg
2 directories, 2 files
> load jpg "DSC03042"
Error: Invalid address - resetting
PicoMite MMBasic Version 5.07.07RC4
Copyright 2011-2023 Geoff Graham
Copyright 2016-2023 Peter Mather

> load jpg "DSC03042"
>

[{"hex":"#000000"},
{"hex":"#FF0000"},
{"hex":"#0000FF"},
{"hex":"#FF00FF"},
{"hex":"#004000"},
{"hex":"#FF4000"},
{"hex":"#0040FF"},
{"hex":"#FF40FF"},
{"hex":"#008000"},
{"hex":"#FF8000"},
{"hex":"#0080FF"},
{"hex":"#FF80FF"},
{"hex":"#00FF00"},
{"hex":"#FFFF00"},
{"hex":"#00FFFF"},
{"hex":"#FFFFFF"}]

> option list
PicoMite MMBasic Version 5.07.07RC5
OPTION SYSTEM SPI GP10,GP11,GP28
OPTION COLOURCODE ON
OPTION LCDPANEL GC9A01, LANDSCAPE,GP8,GP12,GP9,GP25
>

Option explicit
Option default none
'
Const Y_top = 0 'Y coordinate of top of the image file on the screen
Const X_left = 0 'X coordinate of left of the image file on the screen
Const s_Y_point = 172 'Y coordinate of the centre of the second hand relative to the image top
Const s_X_point = 119 'X coordinate of the centre of the second hand relative to the image left
Const h_Y_point = 119 'Y coordinate of the centre of the hour and minute hands relative to the image top
Const h_X_point = 120 'X coordinate of the centre of the hour and minute hands relative to the image top
Const sl=-30
Const ml=-100
Const hl=-75

Backlight 100

'
'
'
' Now we define the pointers as the X,Y coordinates of a number of triangles with the rotation point at 0,0
' It is simplest to define this in the 12-oclock position which means the Y-coordinates at the top of the pointer will be negative
' The order of data elements in the array is:
' t1x1,t1y1,t1x2,t1y2,t1x3,t1y3, t2x1,t2y1,t2x2,t2y2,t2x3,t2y3,...tntx1,tnty1,tntx2,tnty2,tntx3,tnty3
'
Dim integer nt=6 'Number of triangles used to define the pointer
Dim integer x1(nt-1)=(-1,-1,-2,-2,-3,-3)
Dim integer y1(nt-1)=(0,0,0,0,0,0)
Dim integer x2(nt-1)=(-1,1,-2,2,-3,3)
Dim integer y2(nt-1)=(sl,sl,ml,ml,hl,hl)
Dim integer x3(nt-1)=(1,1,2,2,3,3)
Dim integer y3(nt-1)=(sl,0,ml,0,hl,0)
Dim INTEGER pcolour=RGB(Green) 'define the colour of the pointer
Const s_pivot=3, m_pivot=5, h_pivot=3 'diameter in pixels of the fulcrum of the pointer
'
Dim integer xx0(nt-1),yy0(nt-1),xx1(nt-1),yy1(nt-1),xx2(nt-1),yy2(nt-1),tcol(nt-1)
Dim integer first=1 'marker to control alternate processing on first time through the loop

'
FRAMEBUFFER create
FRAMEBUFFER layer
FRAMEBUFFER write l
CLS
Load JPG "DSC03042"
'Load Image "DSC03042"
'
' demo code moving the pointer
Dim float secondangle=0, minuteangle=0, hourangle=0
Do
FRAMEBUFFER copy l,f
If secondangle Mod 60=0 Then Inc minuteangle,1
If (minuteangle Mod 72=0) And (secondangle Mod 60=0) Then Inc hourangle,6
drawpointer
FRAMEBUFFER copy f,n
Inc secondangle,6

Loop
'
Sub drawpointer
Local integer i,x,y
Local float angle
For i=0 To nt-1
  If i<2 Then
    x=s_X_point
    y=s_Y_point
    pcolour=RGB(red)
    angle=secondangle
  Else
    x=h_X_point
    y=h_Y_point
    pcolour=RGB(white)
    If i<4 Then
      angle=minuteangle
    Else
      angle=hourangle
    EndIf
  EndIf
  rotatetriangle(i,pcolour,angle,x+X_left,y+Y_top,x1(i),y1(i),x2(i),y2(i),x3(i),y3(i)) 'rotate the pointer into the drawing array
Next i
FRAMEBUFFER write f
Triangle xx0(), yy0(), xx1(), yy1(), xx2(), yy2(),tcol(),tcol()
drawpivot
End Sub

Sub rotatetriangle(n As integer, col As integer, angle As float, x As integer,y As integer, x0 As integer, y0 As integer, x1 As integer, y1 As integer, x2 As integer, y2 As integer)
Local float sine=Sin(Rad(angle)),cosine=Cos(Rad(angle))
Local integer x0a,y0a,x1a,y1a,x2a,y2a
x0a= x0*cosine - y0 * sine + x
y0a= y0*cosine + x0 * sine + y
x1a= x1*cosine - y1 * sine + x
y1a= y1*cosine + x1 * sine + y
x2a= x2*cosine - y2 * sine + x
y2a= y2*cosine + x2 * sine + y
xx0(n)=x0a
yy0(n)=y0a
xx1(n)=x1a
yy1(n)=y1a
xx2(n)=x2a
yy2(n)=y2a
tcol(n)=pcolour
End Sub
'
Sub drawpivot() 'put anything you like here to draw the fulcrum as you wish
Circle s_X_point+X_left,s_Y_point+Y_top,s_pivot,0,,,RGB(green)
Circle h_X_point+X_left,h_Y_point+Y_top,m_pivot,0,,,RGB(white)
Circle h_X_point+X_left,h_Y_point+Y_top,h_pivot,0,,,RGB(black)

End Sub      

> option list
PicoMite MMBasic Version 5.07.07RC5
OPTION SYSTEM SPI GP10,GP11,GP28
OPTION COLOURCODE ON
OPTION LCDPANEL GC9A01, LANDSCAPE,GP8,GP12,GP9,GP25
> LIBRARY DELETE
> run
> Load JPG "DSC03042"
> run
> Load JPG "DSC03042"
> files
A:/
  <DIR>  .
  <DIR>  ..
00:00 01-01-2000          4  bootcount
00:01 01-01-2000      39808  DSC03042.jpg
2 directories, 2 files
> Load JPG "DSC03042"
Error: Invalid address - resetting
PicoMite MMBasic Version 5.07.07RC5
Copyright 2011-2023 Geoff Graham
Copyright 2016-2023 Peter Mather

> Load JPG "DSC03042"
> run

> load jpg  "DSC03042"
> files
A:/
  <DIR>  .
  <DIR>  ..
00:00 01-01-2000          4  bootcount
00:01 01-01-2000      39808  DSC03042.jpg
2 directories, 2 files
> load jpg  "DSC03042"
Error: Invalid address - resetting
PicoMite MMBasic Version 5.07.07RC6
Copyright 2011-2023 Geoff Graham
Copyright 2016-2023 Peter Mather

>

[{"hex":"#000000"},
{"hex":"#FF0000"},
{"hex":"#0000FF"},
{"hex":"#FF00FF"},
{"hex":"#005500"},
{"hex":"#FF5500"},
{"hex":"#0055FF"},
{"hex":"#FF55FF"},
{"hex":"#00AA00"},
{"hex":"#FFAA00"},
{"hex":"#00AAFF"},
{"hex":"#FFAAFF"},
{"hex":"#00FF00"},
{"hex":"#FFFF00"},
{"hex":"#00FFFF"},
{"hex":"#FFFFFF"}]

> load jpg "A"
> files
A:/
  <DIR>  .
  <DIR>  ..
00:01 01-01-2000       9472  A.jpg
00:00 01-01-2000          4  bootcount
00:18 01-01-2000      14592  DSC03042.jpg
2 directories, 3 files
> load jpg "A"
Error: Invalid address - resetting
PicoMite MMBasic Version 5.07.07RC6
Copyright 2011-2023 Geoff Graham
Copyright 2016-2023 Peter Mather

>