4. Analysys POV_1.1 

POV_1.1 display 8X8-pixels.
Word'drive_LED' drive LED-On/Off according to LED_data array.
Word'getRow' get row-data.
Word'pov' operate shorting-pixel (from16 X 32pixel ti 8 X 8pixel).

Detail is next tips.


Analysys POV_1.1_1

Converting colum from 16dots to 8dots.
Converting row from 32dots to 8dots. 

Word'demo4' print out datas saved inside LED_data to TeraTerm.
Character's top is screen-right.
Not clear font.
Changeing column data by bit_mask's datas.
Changeing row data by operation inside [do-loop]. (refering A-B insidedemo4's code)

fl
hex
clkfreq A u/ constant dT           \ scroll time per dot(row)
wvariable char                     \ character address
wvariable odd                      \ character odd/even
wvariable pos                      \ scan position of font

wvariable bit_mask -2 allot
\ even character
10 l, 100 l, 400 l, 4000 l, 40000 l, 400000 l, 1000000 l, 10000000 l,
\ odd character
20 l, 200 l, 800 l, 8000 l, 80000 l, 800000 l, 2000000 l, 20000000 l,

: getRow
4 u* swap       
if d32 + then                 \ When even-character,d32 is added to bit_mask's address.
bit_mask + L@                 \ get row-data(1bit)
and dup 0<>
if drop 1 then 
;
: demo4
h7F94 char W!
cnt COG@ dT L@ +     
begin                                   \ main loop
     char W@ d128 + dup hC000 >         \ If last character, return to first character
     if drop h8014 char W! else char W! then
     2 0 do                             \ even/odd character
          i odd W!       
          d10 0 do                      \ get row-data for charcter 
                                        \ 8bytes per 1-charcter  (last 2byte is sepaerator)
               i pos W!
               i 8 <     
               if
         \ A      
                    0                             \ set initial data
                    8 0 do                        \ get column-data
                         i d12 u* char W@ + L@        
                         swap 1 lshift swap
                         odd W@ pos W@ getRow +     
                    loop
         \ B           
\                    row_data W!
                    1 8 0 do 2dup and if h2A else bl then emit 1 lshift loop 2drop
                    cr
               else
\                    0 row_data W!
                    8 0 do bl emit loop
                    cr
               then
               dT waitcnt          \ wait 0.1sec
\               LED_data 
\               d47 0 do dup dup i + 1+ C@ swap i + C! loop           \ shift datas from buffer[i+1] to buffer[i]       
\               d47 + row_data W@ swap C!                          \ store new-data to last-buffer
          loop
     loop
     dT waitcnt          
fkey? swap drop until
drop
\ 5 cogreset
;


---------> character top

   *

      *
      *
** *   *
** **  *
    * *
    ***


  ****
   **
  *  *
 **  **
 * ** *
 * ** *
 * ** *
 * * **


  ****
******
*******
    * *
    *  *
    *  *
    * *
*******


********
********
********
*   *  *
*   *  *
*   *  *
 * ** *
 ******


  *  *
  ****
 ******
 *    *
*      *
*      *
 *    *
 *    *


********
********
********
*      *
*      *
*      *
 *    *
 ******


  ****
********
********
*   *  *
*   *  *
*   *  *
*      *
*      *


********
********
********
    *  *
    *  *
    *  *
       *
       *


       *
  ****
 ******
 *    *
*      *
*      *
 * *  *
****  *