Calculator graphics drawing benchmark

[robve]

An additional result:

Ti-nspire cx II cas
program: Ti Basic
screen: 318x210
time: 2.65s
performance: 25200

The program uses UseBuffer to increase performance:

Code:

Define LibPub hitomezashi(s)=
Prgm
Local x,y,h,v
UseBuffer
Clear
SetColor 0,0,255
SetPen 1,1
h:=317
v:=209
For y,0,v,s
  For x,s*randInt(0,1),h,2*s
    DrawLine x,y,x+s,y
  EndFor
EndFor
For x,0,h,s
  For y,s*randInt(0,1),v,2*s
    DrawLine x,y,x,y+s
  EndFor
EndFor
PaintBuffer
EndPrgm

- Rob