CharlieWing < MecrispCube

%DASHBOARD{ section="dashboard_start" }%
%DASHBOARD{ section="banner"
 image="%PUBURLPATH%/MecrispCube/CharlieWing/plex-header.jpg"
 title="!CharlieWing Plex LED Display"
 titlestyle="color:#F00000;"
}%
%DASHBOARD{ section="box_start" title="Intro" width="485" height="250"}%
Adafruit 15x7 [[https://learn.adafruit.com/adafruit-15x7-7x15-charlieplex-led-matrix-charliewing-featherwing][CharliePlex]] LED Matrix Display.

Driver is !IS31FL3731 [[https://www.issi.com/WW/pdf/31FL3731.pdf][datasheet]]

| %IMAGE{"%PUBURLPATH%/MecrispCube/CharlieWing/plex.jpg" type="thumb" }% | %IMAGE{"%ATTACHURLPATH%/feather_3138_iso_demo.jpg" type="thumb" }% |

%DASHBOARD{ section="box_end" }%
%DASHBOARD{ section="box_start" title="Contents" width="460" height="250"}%
%TOC%
%DASHBOARD{ section="box_end" }%
%DASHBOARD{ section="box_start"  width="992" height="400" }%
---+ Plex and !I2C Words

=plex-emit= works like the standard word =emit=. It blocks the calling thread, as long as the character is not written to the Plex display (less than 300 us for a 6x8 character and 400 kHz !I2C). Horizontal (x) position is in pixel (0 to 15). The plex display is default shutdown, to switch on =1 plexshutdown=. 

<pre>
plex-emit    ( Char -- )        Emits a character (writes a character to the Plex display)
plex-emit?   ( -- Flag )        Plex ready to get a character (I2C not busy)

hook-emit    ( -- a-addr )      Hooks for redirecting terminal IO on the fly
hook-emit?   ( -- a-addr )    

plexpos!     ( x -- )           Set Plex cursor position, 
                                x horizontal position, for 6x8 font max. (15 / 6) -1, depends on the font's x size 
plexpos@     (  -- x )          Get the current Plex cursor position
plexclr      (  --  )           Clears the Plex display, sets the cursor to 0
plexfont     ( u -- )           Select the font, u: 0 6x8, 1 8x8
plexpwm      ( n -- )           default PWM 1 .. 255 (brightness)
plexshutdown ( n -- )           1 activate Plex dispaly, 0 shutdown display

plexcolumn!  ( col leds pwm -- )
plexcolumn@  ( col -- leds )
plexpixel!   ( col row pwm -- )
plexpixel@   ( col row -- u )

plexframe!   ( n -- )
plexframe@   (  -- n )
plexdisplay! ( n -- )
plexdisplay@ (  -- n )


I2Cdev       ( u -- )           Sets the 7-bit I2C address
I2Cput       ( c-addr u -- )    c-addr buffer address for the message with lengh u to send
I2Cget       ( c-addr u -- )    c-addr buffer address for the message to receive
I2Cputget    ( a1 u1 a2 u2 -- ) a1 buffer address for the message to send, a2 buffer address for the message to receive

</pre>

%DASHBOARD{ section="box_end" }%

%DASHBOARD{ section="box_start"  width="992" height="500" }%
---+ Usage

It is easy to redirect the terminal output to the Plex display, to use the string formatting words.

<pre>
: count-down ( -- )
  plexclr
 -1 -1 -1 alarm!  \ an alarm every second
  wait-alarm  
  10 0 do
    1 plexpos!
    i 1 + 25 * plexpwm  \ set brightness
    i 0 = if 
      [char] 1 plex-emit
      [char] 0 plex-emit
    else
      [char] 0 plex-emit
      10 i - [char] 0 + plex-emit
    then
    wait-alarm  
  loop
   0 $ff -1 plexcolumn!
  14 $ff -1 plexcolumn!
  1 plexpos!
  [char] 0 dup plex-emit plex-emit 
  cr ." Launch!" cr
;

</pre>

---++ Marquee

%DASHBOARD{ section="box_end" }%
%DASHBOARD{ section="dashboard_end" }%

-- %USERSIG{PeterSchmid - 2020-12-29}%

<a rel="license" href="http://creativecommons.org/licenses/by-sa/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by-sa/4.0/88x31.png" /></a><br />This work by <a xmlns:cc="http://creativecommons.org/ns#" href="http://spyr.ch" property="cc:attributionName" rel="cc:attributionURL">Peter Schmid</a> is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by-sa/4.0/">Creative Commons Attribution-ShareAlike 4.0 International License</a>.
Attachments
Topic attachments
I	Attachment	History	Action	Size	Date	Who
jpg	feather_3138_iso_demo.jpg	r1	manage	758.0 K	2021-04-23 - 20:09	PeterSchmid
jpg	plex-header.jpg	r1	manage	77.4 K	2021-05-06 - 09:43	PeterSchmid
jpg	plex.jpg	r1	manage	483.7 K	2021-05-06 - 09:48	PeterSchmid
This topic: MecrispCube > WebHome > MecrispCubeF405 > CharlieWing
Topic revision: r11 - 2022-11-22 - PeterSchmid