Calculator graphics drawing benchmark

[C.Ret]

Nice benchmark !

Here is a solution for the HP-28S Advanced Scientific (and Graphic) Calculator :

Code:

« { 31 241 } { 0 1 16 17 }
  1 34 START RAND * 2 CEIL NEXT 34 →LIST
  1  4 START RAND * 4 CEIL NEXT  4 →LIST  → CC CR C R
  « ""
    1 4 FOR r
       1 34 FOR c
         CC C C GET GET CHR + 
         CR R r GET IF 1 FS?C THEN 5 - NEG ELSE 1 SF END GET CHR DUP DUP + + + 
       NEXT 241 CHR +
    NEXT →LCD » »

Performance is 175.36
Time ~25"
Screen 137x32


UPDATE: A few drawing time is spare with this code (same algorithm, better implementation into the HP-28S):

Code:


« 31 CHR 241 CHR 2 →LIST            
  0 CHR 1 CHR 16 CHR 17 CHR 4 →LIST
  17 CHR 16 CHR 1 CHR 0 CHR 4 →LIST                → LC LR LI
  « "" 1 34 START
               LC RAND 2 * CEIL GET +
            NEXT
    "" "" 1 4 START
               RAND 4 * CEIL ROT LI 3 PICK GET +
               ROT LR 4 ROLL GET +
          NEXT                                     → CC CR CI
    « "" 1 4 FOR r 
              1 34 FOR c
                    CC c DUP SUB +
                    IF 1 FS?C THEN CI ELSE CR 1 SF END 
                    r DUP SUB DUP DUP + + +
             NEXT 241 CHR +
         NEXT →LCD » » »

Screen: 137x32
Time: ~14"
Performance: 313.14

Here links to screen captures:
HP-28S Hitomezashi screen capture 1
HP-28S Hitomezashi screen capture 2
HP-28S Hitomezashi screen capture 3