« previous next »
Pages: [1]   Go Down

Author Topic: Re: Another LED Scroller  (Read 666 times)

0 Members and 1 Guest are viewing this topic.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Another LED Scroller
« on: October 25, 2019, 09:14:43 am »
I like the program but NOT Sound of Music.... *sigh*
Logged
Logic is the beginning of wisdom.

FellippeHeitor

  • Guest
Re: Another LED Scroller
« Reply #1 on: October 25, 2019, 09:15:21 am »
Can confirm. It does scroll.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Another LED Scroller
« Reply #2 on: October 25, 2019, 10:09:48 am »
Nice one [banned user]!

I like the program Plus I like (most) music, specially the sound part. ;-))
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Another LED Scroller
« Reply #3 on: October 25, 2019, 10:26:53 am »
Quote from: [banned user] on October 25, 2019, 05:13:40 am
Just what the world doesn't need: Another LED Scroller, but here it is.
Like me, it needs work.  The longer the window, the slower it becomes.  Maybe someone can help this along to get better and faster.

One very simple little change, which makes it just a weeee bit faster:

Code: QB64: [Select]
  1. _TITLE "LED Screen"
  2.  
  3. CONST false = 0
  4. CONST true = NOT false
  5.  
  7.  
  8. TYPE LED_Board
  9.     hor AS INTEGER ' # of horizontal pixels
  10.     vert AS INTEGER ' # of vertical pixels
  11.     chars AS INTEGER ' # of text characters
  12.     rows AS INTEGER ' # of text rows
  13.     size AS INTEGER ' Size of the LED pixels
  15.  
  16. DIM SHARED LEDs AS LED_Board
  17. LEDs.size = 1
  18.  
  19. DIM SHARED bScreen AS LONG
  22.  
  23. DIM SHARED CharFont AS STRING
  24. DIM SHARED DotMatrix(16) AS STRING
  25.  
  26. sWidth = 800
  27. sHeight = 480
  28.  
  29. LEDs.hor = sWidth \ (2 * LEDs.size + 2)
  30. LEDs.vert = sHeight \ (2 * LEDs.size + 2)
  31.  
  32. LEDs.chars = LEDs.hor \ 8
  33. LEDs.rows = LEDs.vert \ 16
  34.  
  35. LoadFont
  36.  
  37. SCREEN _NEWIMAGE(sWidth, sHeight, 12)
  38.  
  39. chars = LEDs.chars
  40. row = LEDs.rows \ 2
  41.  
  42. temp = SPACE$(chars) + "Supercalifragilisticexpialidocious "
  43. temp = temp + "Even though the sound of it is something quite atrocious "
  44. temp = temp + "If you say it loud enough, you'll always sound precocious "
  45. temp = temp + "Supercalifragilisticexpialidocious" + SPACE$(chars)
  46.  
  47. length = LEN(temp) - chars + 1
  48.  
  49. FOR scroll = 1 TO length
  50.     _LIMIT 60
  51.     LINE (0, 0)-(sWidth - 1, sHeight - 1), _RGB(0, 0, 0), BF
  52.  
  53.     PrintLED MID$(temp, scroll, chars), row, 0
  54.     _DISPLAY
  56.  
  58.  
  59. FUNCTION BIN$ (Value)
  60.     WHILE Value <> 0
  61.         T$ = RIGHT$(STR$(Value MOD 2), 1) + T$: Value = Value \ 2
  62.     WEND
  63.  
  64.     BIN = RIGHT$(STRING$(8, 48) + T$, 8)
  66.  
  67. FUNCTION Font$ (Value)
  68.     DIM Tag AS STRING
  69.     DIM Temp AS STRING
  70.  
  71.     Tag = MID$(CharFont, 16 * Value + 1, 16)
  72.  
  73.     Temp = ""
  74.     FOR i = 1 TO 16
  75.         Temp = Temp + RIGHT$("0000000" + BIN(ASC(MID$(Tag, i, 1))), 8)
  76.     NEXT
  77.  
  78.     Font = Temp
  80.  
  81. SUB LoadText (Message AS STRING, flag AS INTEGER)
  82.     DIM Text AS STRING
  83.     DIM Blank AS STRING
  84.  
  85.     ' Set flag when scrolling the message
  86.  
  87.     Blank = ""
  88.     IF flag THEN
  89.         Blank = STRING$(LEDs.hor, 48)
  90.     END IF
  91.  
  92.     FOR v = 1 TO 16
  93.         DotMatrix(v) = Blank
  94.     NEXT
  95.  
  96.     Text = Message + " "
  97.     FOR char = 1 TO LEN(Text)
  98.         a = ASC(MID$(Text, char, 1))
  99.  
  100.         FOR v = 0 TO 15
  101.             DotMatrix(v + 1) = DotMatrix(v + 1) + MID$(Font(a), 8 * v + 1, 8)
  102.         NEXT
  103.     NEXT
  104.  
  105.     IF flag THEN
  106.         FOR v = 1 TO 16
  107.             DotMatrix(v) = DotMatrix(v) + Blank
  108.         NEXT
  109.     END IF
  111.  
  112. SUB PrintLED (Message AS STRING, Row AS INTEGER, flag AS INTEGER)
  113.     DIM temp AS STRING
  114.  
  115.     ' Set flag to center the message
  116.  
  117.     IF flag THEN
  118.         t = LEDs.chars \ 2 - LEN(Message) \ 2
  119.         LoadText SPACE$(t) + Message, 0
  120.     ELSE
  121.         LoadText Message, 0
  122.     END IF
  123.  
  124.     tx = 0: ty = 16 * Row
  125.  
  126.     Length = LEN(DotMatrix(1))
  127.     IF Length > LEDs.hor THEN
  128.         Length = LEDs.hor
  129.     END IF
  130.  
  131.     FOR v = 0 TO 15
  132.         temp = MID$(DotMatrix(v + 1), char, Length)
  133.  
  134.         FOR h = 0 TO LEN(temp)
  135.             FlipLED tx + h, ty + v, 1, VAL(MID$(temp, h + 1, 1))
  136.  
  137.             ' Use this to speed up the program:
  138.             'IF VAL(MID$(temp, h + 1, 1)) THEN FlipLED tx + h, ty + v, 1, 1
  139.         NEXT
  140.     NEXT
  142.  
  143. SUB FlipLED (x, y, colour, state)
  144.     t1 = LEDs.size
  145.     t2 = 2 * t1 + 2
  146.  
  147.     ' State is On/Off
  148.     tc = 8 * state + colour
  149.     'CIRCLE (x * t2 + t1, y * t2 + t1), LEDs.size, tc
  150.     'PAINT (x * t2 + t1, y * t2 + t1), tc, tc
  151.     CircleFill x * t2 + t1, y * t2 + t1, LEDs.size, tc
  153.  
  154. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  155.     ' CX = center x coordinate
  156.     ' CY = center y coordinate
  157.     '  R = radius
  158.     '  C = fill color
  159.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  160.     DIM X AS INTEGER, Y AS INTEGER
  161.     Radius = ABS(R)
  162.     RadiusError = -Radius
  163.     X = Radius
  164.     Y = 0
  165.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  166.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  167.     WHILE X > Y
  168.         RadiusError = RadiusError + Y * 2 + 1
  169.         IF RadiusError >= 0 THEN
  170.             IF X <> Y + 1 THEN
  171.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  172.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  173.             END IF
  174.             X = X - 1
  175.             RadiusError = RadiusError - X * 2
  176.         END IF
  177.         Y = Y + 1
  178.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  179.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  180.     WEND
  182.  
  183.  
  184.  
  185.  
  186. SUB LoadFont
  187.     FOR i = 1 TO 4096
  188.         READ charVal
  189.         CharFont = CharFont + CHR$(charVal)
  190.     NEXT
  191.     EXIT SUB
  192.  
  193.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,126,129,165,129,129,189,153,129,129,126,0,0,0,0
  194.     DATA 0,0,126,255,219,255,255,195,231,255,255,126,0,0,0,0,0,0,0,0,108,254,254,254,254,124,56,16,0,0,0,0
  195.     DATA 0,0,0,0,16,56,124,254,124,56,16,0,0,0,0,0,0,0,0,24,60,60,231,231,231,24,24,60,0,0,0,0
  196.     DATA 0,0,0,24,60,126,255,255,126,24,24,60,0,0,0,0,0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0
  197.     DATA 255,255,255,255,255,255,231,195,195,231,255,255,255,255,255,255,0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0
  198.     DATA 255,255,255,255,255,195,153,189,189,153,195,255,255,255,255,255,0,0,30,14,26,50,120,204,204,204,204,120,0,0,0,0
  199.     DATA 0,0,60,102,102,102,102,60,24,126,24,24,0,0,0,0,0,0,63,51,63,48,48,48,48,112,240,224,0,0,0,0
  200.     DATA 0,0,127,99,127,99,99,99,99,103,231,230,192,0,0,0,0,0,0,24,24,219,60,231,60,219,24,24,0,0,0,0
  201.     DATA 0,128,192,224,240,248,254,248,240,224,192,128,0,0,0,0,0,2,6,14,30,62,254,62,30,14,6,2,0,0,0,0
  202.     DATA 0,0,24,60,126,24,24,24,126,60,24,0,0,0,0,0,0,0,102,102,102,102,102,102,102,0,102,102,0,0,0,0
  203.     DATA 0,0,127,219,219,219,123,27,27,27,27,27,0,0,0,0,0,124,198,96,56,108,198,198,108,56,12,198,124,0,0,0
  204.     DATA 0,0,0,0,0,0,0,0,254,254,254,254,0,0,0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0,0,0
  205.     DATA 0,0,24,60,126,24,24,24,24,24,24,24,0,0,0,0,0,0,24,24,24,24,24,24,24,126,60,24,0,0,0,0
  206.     DATA 0,0,0,0,0,24,12,254,12,24,0,0,0,0,0,0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0,0
  207.     DATA 0,0,0,0,0,0,192,192,192,254,0,0,0,0,0,0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0,0
  208.     DATA 0,0,0,0,16,56,56,124,124,254,254,0,0,0,0,0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0,0
  209.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,60,60,60,24,24,24,0,24,24,0,0,0,0
  210.     DATA 0,102,102,102,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,108,108,254,108,108,108,254,108,108,0,0,0,0
  211.     DATA 24,24,124,198,194,192,124,6,6,134,198,124,24,24,0,0,0,0,0,0,194,198,12,24,48,96,198,134,0,0,0,0
  212.     DATA 0,0,56,108,108,56,118,220,204,204,204,118,0,0,0,0,0,48,48,48,96,0,0,0,0,0,0,0,0,0,0,0
  213.     DATA 0,0,12,24,48,48,48,48,48,48,24,12,0,0,0,0,0,0,48,24,12,12,12,12,12,12,24,48,0,0,0,0
  214.     DATA 0,0,0,0,0,102,60,255,60,102,0,0,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,0,0,0,0
  215.     DATA 0,0,0,0,0,0,0,0,0,24,24,24,48,0,0,0,0,0,0,0,0,0,0,254,0,0,0,0,0,0,0,0
  216.     DATA 0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,0,2,6,12,24,48,96,192,128,0,0,0,0
  217.     DATA 0,0,60,102,195,195,219,219,195,195,102,60,0,0,0,0,0,0,24,56,120,24,24,24,24,24,24,126,0,0,0,0
  218.     DATA 0,0,124,198,6,12,24,48,96,192,198,254,0,0,0,0,0,0,124,198,6,6,60,6,6,6,198,124,0,0,0,0
  219.     DATA 0,0,12,28,60,108,204,254,12,12,12,30,0,0,0,0,0,0,254,192,192,192,252,6,6,6,198,124,0,0,0,0
  220.     DATA 0,0,56,96,192,192,252,198,198,198,198,124,0,0,0,0,0,0,254,198,6,6,12,24,48,48,48,48,0,0,0,0
  221.     DATA 0,0,124,198,198,198,124,198,198,198,198,124,0,0,0,0,0,0,124,198,198,198,126,6,6,6,12,120,0,0,0,0
  222.     DATA 0,0,0,0,24,24,0,0,0,24,24,0,0,0,0,0,0,0,0,0,24,24,0,0,0,24,24,48,0,0,0,0
  223.     DATA 0,0,0,6,12,24,48,96,48,24,12,6,0,0,0,0,0,0,0,0,0,126,0,0,126,0,0,0,0,0,0,0
  224.     DATA 0,0,0,96,48,24,12,6,12,24,48,96,0,0,0,0,0,0,124,198,198,12,24,24,24,0,24,24,0,0,0,0
  225.     DATA 0,0,0,124,198,198,222,222,222,220,192,124,0,0,0,0,0,0,16,56,108,198,198,254,198,198,198,198,0,0,0,0
  226.     DATA 0,0,252,102,102,102,124,102,102,102,102,252,0,0,0,0,0,0,60,102,194,192,192,192,192,194,102,60,0,0,0,0
  227.     DATA 0,0,248,108,102,102,102,102,102,102,108,248,0,0,0,0,0,0,254,102,98,104,120,104,96,98,102,254,0,0,0,0
  228.     DATA 0,0,254,102,98,104,120,104,96,96,96,240,0,0,0,0,0,0,60,102,194,192,192,222,198,198,102,58,0,0,0,0
  229.     DATA 0,0,198,198,198,198,254,198,198,198,198,198,0,0,0,0,0,0,60,24,24,24,24,24,24,24,24,60,0,0,0,0
  230.     DATA 0,0,30,12,12,12,12,12,204,204,204,120,0,0,0,0,0,0,230,102,102,108,120,120,108,102,102,230,0,0,0,0
  231.     DATA 0,0,240,96,96,96,96,96,96,98,102,254,0,0,0,0,0,0,195,231,255,255,219,195,195,195,195,195,0,0,0,0
  232.     DATA 0,0,198,230,246,254,222,206,198,198,198,198,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,124,0,0,0,0
  233.     DATA 0,0,252,102,102,102,124,96,96,96,96,240,0,0,0,0,0,0,124,198,198,198,198,198,198,214,222,124,12,14,0,0
  234.     DATA 0,0,252,102,102,102,124,108,102,102,102,230,0,0,0,0,0,0,124,198,198,96,56,12,6,198,198,124,0,0,0,0
  235.     DATA 0,0,255,219,153,24,24,24,24,24,24,60,0,0,0,0,0,0,198,198,198,198,198,198,198,198,198,124,0,0,0,0
  236.     DATA 0,0,195,195,195,195,195,195,195,102,60,24,0,0,0,0,0,0,195,195,195,195,195,219,219,255,102,102,0,0,0,0
  237.     DATA 0,0,195,195,102,60,24,24,60,102,195,195,0,0,0,0,0,0,195,195,195,102,60,24,24,24,24,60,0,0,0,0
  238.     DATA 0,0,255,195,134,12,24,48,96,193,195,255,0,0,0,0,0,0,60,48,48,48,48,48,48,48,48,60,0,0,0,0
  239.     DATA 0,0,0,128,192,224,112,56,28,14,6,2,0,0,0,0,0,0,60,12,12,12,12,12,12,12,12,60,0,0,0,0
  240.     DATA 16,56,108,198,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0
  241.     DATA 48,48,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,12,124,204,204,204,118,0,0,0,0
  242.     DATA 0,0,224,96,96,120,108,102,102,102,102,124,0,0,0,0,0,0,0,0,0,124,198,192,192,192,198,124,0,0,0,0
  243.     DATA 0,0,28,12,12,60,108,204,204,204,204,118,0,0,0,0,0,0,0,0,0,124,198,254,192,192,198,124,0,0,0,0
  244.     DATA 0,0,56,108,100,96,240,96,96,96,96,240,0,0,0,0,0,0,0,0,0,118,204,204,204,204,204,124,12,204,120,0
  245.     DATA 0,0,224,96,96,108,118,102,102,102,102,230,0,0,0,0,0,0,24,24,0,56,24,24,24,24,24,60,0,0,0,0
  246.     DATA 0,0,6,6,0,14,6,6,6,6,6,6,102,102,60,0,0,0,224,96,96,102,108,120,120,108,102,230,0,0,0,0
  247.     DATA 0,0,56,24,24,24,24,24,24,24,24,60,0,0,0,0,0,0,0,0,0,230,255,219,219,219,219,219,0,0,0,0
  248.     DATA 0,0,0,0,0,220,102,102,102,102,102,102,0,0,0,0,0,0,0,0,0,124,198,198,198,198,198,124,0,0,0,0
  249.     DATA 0,0,0,0,0,220,102,102,102,102,102,124,96,96,240,0,0,0,0,0,0,118,204,204,204,204,204,124,12,12,30,0
  250.     DATA 0,0,0,0,0,220,118,102,96,96,96,240,0,0,0,0,0,0,0,0,0,124,198,96,56,12,198,124,0,0,0,0
  251.     DATA 0,0,16,48,48,252,48,48,48,48,54,28,0,0,0,0,0,0,0,0,0,204,204,204,204,204,204,118,0,0,0,0
  252.     DATA 0,0,0,0,0,195,195,195,195,102,60,24,0,0,0,0,0,0,0,0,0,195,195,195,219,219,255,102,0,0,0,0
  253.     DATA 0,0,0,0,0,195,102,60,24,60,102,195,0,0,0,0,0,0,0,0,0,198,198,198,198,198,198,126,6,12,248,0
  254.     DATA 0,0,0,0,0,254,204,24,48,96,198,254,0,0,0,0,0,0,14,24,24,24,112,24,24,24,24,14,0,0,0,0
  255.     DATA 0,0,24,24,24,24,0,24,24,24,24,24,0,0,0,0,0,0,112,24,24,24,14,24,24,24,24,112,0,0,0,0
  256.     DATA 0,0,118,220,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,56,108,198,198,198,254,0,0,0,0,0
  257.     DATA 0,0,60,102,194,192,192,192,194,102,60,12,6,124,0,0,0,0,204,0,0,204,204,204,204,204,204,118,0,0,0,0
  258.     DATA 0,12,24,48,0,124,198,254,192,192,198,124,0,0,0,0,0,16,56,108,0,120,12,124,204,204,204,118,0,0,0,0
  259.     DATA 0,0,204,0,0,120,12,124,204,204,204,118,0,0,0,0,0,96,48,24,0,120,12,124,204,204,204,118,0,0,0,0
  260.     DATA 0,56,108,56,0,120,12,124,204,204,204,118,0,0,0,0,0,0,0,0,60,102,96,96,102,60,12,6,60,0,0,0
  261.     DATA 0,16,56,108,0,124,198,254,192,192,198,124,0,0,0,0,0,0,198,0,0,124,198,254,192,192,198,124,0,0,0,0
  262.     DATA 0,96,48,24,0,124,198,254,192,192,198,124,0,0,0,0,0,0,102,0,0,56,24,24,24,24,24,60,0,0,0,0
  263.     DATA 0,24,60,102,0,56,24,24,24,24,24,60,0,0,0,0,0,96,48,24,0,56,24,24,24,24,24,60,0,0,0,0
  264.     DATA 0,198,0,16,56,108,198,198,254,198,198,198,0,0,0,0,56,108,56,0,56,108,198,198,254,198,198,198,0,0,0,0
  265.     DATA 24,48,96,0,254,102,96,124,96,96,102,254,0,0,0,0,0,0,0,0,0,110,59,27,126,216,220,119,0,0,0,0
  266.     DATA 0,0,62,108,204,204,254,204,204,204,204,206,0,0,0,0,0,16,56,108,0,124,198,198,198,198,198,124,0,0,0,0
  267.     DATA 0,0,198,0,0,124,198,198,198,198,198,124,0,0,0,0,0,96,48,24,0,124,198,198,198,198,198,124,0,0,0,0
  268.     DATA 0,48,120,204,0,204,204,204,204,204,204,118,0,0,0,0,0,96,48,24,0,204,204,204,204,204,204,118,0,0,0,0
  269.     DATA 0,0,198,0,0,198,198,198,198,198,198,126,6,12,120,0,0,198,0,124,198,198,198,198,198,198,198,124,0,0,0,0
  270.     DATA 0,198,0,198,198,198,198,198,198,198,198,124,0,0,0,0,0,24,24,126,195,192,192,192,195,126,24,24,0,0,0,0
  271.     DATA 0,56,108,100,96,240,96,96,96,96,230,252,0,0,0,0,0,0,195,102,60,24,255,24,255,24,24,24,0,0,0,0
  272.     DATA 0,252,102,102,124,98,102,111,102,102,102,243,0,0,0,0,0,14,27,24,24,24,126,24,24,24,24,24,216,112,0,0
  273.     DATA 0,24,48,96,0,120,12,124,204,204,204,118,0,0,0,0,0,12,24,48,0,56,24,24,24,24,24,60,0,0,0,0
  274.     DATA 0,24,48,96,0,124,198,198,198,198,198,124,0,0,0,0,0,24,48,96,0,204,204,204,204,204,204,118,0,0,0,0
  275.     DATA 0,0,118,220,0,220,102,102,102,102,102,102,0,0,0,0,118,220,0,198,230,246,254,222,206,198,198,198,0,0,0,0
  276.     DATA 0,60,108,108,62,0,126,0,0,0,0,0,0,0,0,0,0,56,108,108,56,0,124,0,0,0,0,0,0,0,0,0
  277.     DATA 0,0,48,48,0,48,48,96,192,198,198,124,0,0,0,0,0,0,0,0,0,0,254,192,192,192,192,0,0,0,0,0
  278.     DATA 0,0,0,0,0,0,254,6,6,6,6,0,0,0,0,0,0,192,192,194,198,204,24,48,96,206,155,6,12,31,0,0
  279.     DATA 0,192,192,194,198,204,24,48,102,206,150,62,6,6,0,0,0,0,24,24,0,24,24,24,60,60,60,24,0,0,0,0
  280.     DATA 0,0,0,0,0,54,108,216,108,54,0,0,0,0,0,0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0,0
  281.     DATA 17,68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,85,170,85,170,85,170,85,170,85,170,85,170,85,170,85,170
  282.     DATA 221,119,221,119,221,119,221,119,221,119,221,119,221,119,221,119,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  283.     DATA 24,24,24,24,24,24,24,248,24,24,24,24,24,24,24,24,24,24,24,24,24,248,24,248,24,24,24,24,24,24,24,24
  284.     DATA 54,54,54,54,54,54,54,246,54,54,54,54,54,54,54,54,0,0,0,0,0,0,0,254,54,54,54,54,54,54,54,54
  285.     DATA 0,0,0,0,0,248,24,248,24,24,24,24,24,24,24,24,54,54,54,54,54,246,6,246,54,54,54,54,54,54,54,54
  286.     DATA 54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,0,0,0,0,0,254,6,246,54,54,54,54,54,54,54,54
  287.     DATA 54,54,54,54,54,246,6,254,0,0,0,0,0,0,0,0,54,54,54,54,54,54,54,254,0,0,0,0,0,0,0,0
  288.     DATA 24,24,24,24,24,248,24,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24,24
  289.     DATA 24,24,24,24,24,24,24,31,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0,0
  290.     DATA 0,0,0,0,0,0,0,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24,24
  291.     DATA 0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24,24
  292.     DATA 24,24,24,24,24,31,24,31,24,24,24,24,24,24,24,24,54,54,54,54,54,54,54,55,54,54,54,54,54,54,54,54
  293.     DATA 54,54,54,54,54,55,48,63,0,0,0,0,0,0,0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54,54,54
  294.     DATA 54,54,54,54,54,247,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54,54,54
  295.     DATA 54,54,54,54,54,55,48,55,54,54,54,54,54,54,54,54,0,0,0,0,0,255,0,255,0,0,0,0,0,0,0,0
  296.     DATA 54,54,54,54,54,247,0,247,54,54,54,54,54,54,54,54,24,24,24,24,24,255,0,255,0,0,0,0,0,0,0,0
  297.     DATA 54,54,54,54,54,54,54,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,255,24,24,24,24,24,24,24,24
  298.     DATA 0,0,0,0,0,0,0,255,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,63,0,0,0,0,0,0,0,0
  299.     DATA 24,24,24,24,24,31,24,31,0,0,0,0,0,0,0,0,0,0,0,0,0,31,24,31,24,24,24,24,24,24,24,24
  300.     DATA 0,0,0,0,0,0,0,63,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,255,54,54,54,54,54,54,54,54
  301.     DATA 24,24,24,24,24,255,24,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0,0
  302.     DATA 0,0,0,0,0,0,0,31,24,24,24,24,24,24,24,24,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  303.     DATA 0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240
  304.     DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0
  305.     DATA 0,0,0,0,0,118,220,216,216,216,220,118,0,0,0,0,0,0,120,204,204,204,216,204,198,198,198,204,0,0,0,0
  306.     DATA 0,0,254,198,198,192,192,192,192,192,192,192,0,0,0,0,0,0,0,0,254,108,108,108,108,108,108,108,0,0,0,0
  307.     DATA 0,0,0,254,198,96,48,24,48,96,198,254,0,0,0,0,0,0,0,0,0,126,216,216,216,216,216,112,0,0,0,0
  308.     DATA 0,0,0,0,102,102,102,102,102,124,96,96,192,0,0,0,0,0,0,0,118,220,24,24,24,24,24,24,0,0,0,0
  309.     DATA 0,0,0,126,24,60,102,102,102,60,24,126,0,0,0,0,0,0,0,56,108,198,198,254,198,198,108,56,0,0,0,0
  310.     DATA 0,0,56,108,198,198,198,108,108,108,108,238,0,0,0,0,0,0,30,48,24,12,62,102,102,102,102,60,0,0,0,0
  311.     DATA 0,0,0,0,0,126,219,219,219,126,0,0,0,0,0,0,0,0,0,3,6,126,219,219,243,126,96,192,0,0,0,0
  312.     DATA 0,0,28,48,96,96,124,96,96,96,48,28,0,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,0,0,0,0
  313.     DATA 0,0,0,0,254,0,0,254,0,0,254,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,255,0,0,0,0
  314.     DATA 0,0,0,48,24,12,6,12,24,48,0,126,0,0,0,0,0,0,0,12,24,48,96,48,24,12,0,126,0,0,0,0
  315.     DATA 0,0,14,27,27,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,216,216,216,112,0,0,0,0
  316.     DATA 0,0,0,0,24,24,0,126,0,24,24,0,0,0,0,0,0,0,0,0,0,118,220,0,118,220,0,0,0,0,0,0
  317.     DATA 0,56,108,108,56,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0
  318.     DATA 0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,15,12,12,12,12,12,236,108,108,60,28,0,0,0,0
  319.     DATA 0,216,108,108,108,108,108,0,0,0,0,0,0,0,0,0,0,112,216,48,96,200,248,0,0,0,0,0,0,0,0,0
  320.     DATA 0,0,0,0,124,124,124,124,124,124,124,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  322.  

I didn't bother trying to improve the performance any more after this little alteration-- it's a simple one, so I'll leave it to you to see what it was and where it changed the program for us.  :D

You may also want to change the _LIMIT from 60 to something a little more reasonable, like 6, with this.  The screen is scrolling by waaaay to fast now to be useful for anything practical, besides showing off the difference in routines. 
« Last Edit: October 25, 2019, 10:31:29 am by SMcNeill »
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Another LED Scroller
« Reply #4 on: October 25, 2019, 10:48:15 am »
I would put the scroller in a loop, with plasma coloring of course, alas I am tied up with a sort of card/majong tile game.

Yeah, if I had the time I'd do something like this (which I actually had to slow down!):
Code: QB64: [Select]
  1. _TITLE " LED Screen by [banned user], mod by B+, new background colors every loop." '2019-10-25
  3. CONST false = 0
  4. CONST true = NOT false
  5.  
  7.  
  8. TYPE LED_Board
  9.     ' # of horizontal pixels
  10.     hor AS INTEGER
  11.  
  12.     ' # of vertical pixels
  13.     vert AS INTEGER
  14.  
  15.     ' # of text characters
  16.     chars AS INTEGER
  17.  
  18.     ' # of text rows
  19.     rows AS INTEGER
  20.  
  21.     ' Size of the LED pixels
  22.     size AS INTEGER
  24.  
  25. DIM SHARED LEDs AS LED_Board
  26. LEDs.size = 8
  27.  
  28. DIM SHARED bScreen AS LONG
  31.  
  32. DIM SHARED CharFont AS STRING
  33. DIM SHARED DotMatrix(16) AS STRING
  34. DIM SHARED pR, pG, pB, pN, r1, r2, r3 'for plasma numbers
  35. sWidth = 1280
  36. sHeight = 780
  37.  
  38. LEDs.hor = sWidth \ (2 * LEDs.size + 2)
  39. LEDs.vert = sHeight \ (2 * LEDs.size + 2)
  40.  
  41. LEDs.chars = LEDs.hor \ 8
  42. LEDs.rows = LEDs.vert \ 16
  43.  
  44. LoadFont
  45.  
  46. SCREEN _NEWIMAGE(sWidth, sHeight, 32)
  48. resetPlasma
  49. chars = LEDs.chars
  50. row = LEDs.rows \ 2
  51.  
  52. temp = SPACE$(chars) + "Supercalifragilisticexpialidocious "
  53. temp = temp + "Even though the sound of it is something quite atrocious "
  54. temp = temp + "If you say it loud enough, you'll always sound precocious "
  55. temp = temp + "Supercalifragilisticexpialidocious" + SPACE$(chars)
  56.  
  57. length = LEN(temp) - chars + 1
  58. WHILE _KEYDOWN(27) = 0
  59.     scroll = scroll + 1
  60.     IF scroll > length THEN scroll = 1: resetPlasma
  61.     IF INKEY$ = " " THEN resetPlasma
  62.     LINE (0, 0)-(sWidth - 1, sHeight - 1), _RGB(0, 0, 0), BF
  63.     PrintLED MID$(temp, scroll, chars), row, 0
  64.     _DISPLAY
  65.     _LIMIT 10
  67.  
  69.  
  70. FUNCTION BIN$ (Value)
  71.     WHILE Value <> 0
  72.         T$ = RIGHT$(STR$(Value MOD 2), 1) + T$: Value = Value \ 2
  73.     WEND
  74.  
  75.     BIN = RIGHT$(STRING$(8, 48) + T$, 8)
  77.  
  78. FUNCTION Font$ (Value)
  79.     DIM Tag AS STRING
  80.     DIM Temp AS STRING
  81.  
  82.     Tag = MID$(CharFont, 16 * Value + 1, 16)
  83.  
  84.     Temp = ""
  85.     FOR i = 1 TO 16
  86.         Temp = Temp + RIGHT$("0000000" + BIN(ASC(MID$(Tag, i, 1))), 8)
  87.     NEXT
  88.  
  89.     Font = Temp
  91.  
  92. SUB LoadText (Message AS STRING, flag AS INTEGER)
  93.     DIM Text AS STRING
  94.     DIM Blank AS STRING
  95.  
  96.     ' Set flag when scrolling the message
  97.  
  98.     Blank = ""
  99.     IF flag THEN
  100.         Blank = STRING$(LEDs.hor, 48)
  101.     END IF
  102.  
  103.     FOR v = 1 TO 16
  104.         DotMatrix(v) = Blank
  105.     NEXT
  106.  
  107.     Text = Message + " "
  108.     FOR char = 1 TO LEN(Text)
  109.         a = ASC(MID$(Text, char, 1))
  110.  
  111.         FOR v = 0 TO 15
  112.             DotMatrix(v + 1) = DotMatrix(v + 1) + MID$(Font(a), 8 * v + 1, 8)
  113.         NEXT
  114.     NEXT
  115.  
  116.     IF flag THEN
  117.         FOR v = 1 TO 16
  118.             DotMatrix(v) = DotMatrix(v) + Blank
  119.         NEXT
  120.     END IF
  122.  
  123. SUB PrintLED (Message AS STRING, Row AS INTEGER, flag AS INTEGER)
  124.     DIM temp AS STRING
  125.  
  126.     ' Set flag to center the message
  127.  
  128.     IF flag THEN
  129.         t = LEDs.chars \ 2 - LEN(Message) \ 2
  130.  
  131.         LoadText SPACE$(t) + Message, 0
  132.     ELSE
  133.         LoadText Message, 0
  134.     END IF
  135.  
  136.     tx = 0: ty = 16 * Row
  137.  
  138.     Length = LEN(DotMatrix(1))
  139.     IF Length > LEDs.hor THEN
  140.         Length = LEDs.hor
  141.     END IF
  142.  
  143.     FOR v = 0 TO 15
  144.         temp = MID$(DotMatrix(v + 1), char, Length)
  145.  
  146.         FOR h = 0 TO LEN(temp)
  147.             FlipLED tx + h, ty + v, 1, VAL(MID$(temp, h + 1, 1))
  148.  
  149.             ' Use this to speed up the program:
  150.             'IF VAL(MID$(temp, h + 1, 1)) THEN FlipLED tx + h, ty + v, 1, 1
  151.         NEXT
  152.     NEXT
  154.  
  155. SUB FlipLED (x, y, colour, state)
  156.     t1 = LEDs.size
  157.     t2 = 2 * t1 + 2
  158.  
  159.     ' State is On/Off
  160.     IF state THEN tc~& = &HFFFFFFFF ELSE tc~& = changePlasma
  161.     'tc = 8 * state + colour
  162.  
  163.     CIRCLE (x * t2 + t1, y * t2 + t1), LEDs.size, tc~&
  164.     PAINT (x * t2 + t1, y * t2 + t1), tc~&, tc~&
  166.  
  167. SUB LoadFont
  168.     FOR i = 1 TO 4096
  169.         READ charVal
  170.         CharFont = CharFont + CHR$(charVal)
  171.     NEXT
  172.     EXIT SUB
  173.  
  174.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,126,129,165,129,129,189,153,129,129,126,0,0,0,0
  175.     DATA 0,0,126,255,219,255,255,195,231,255,255,126,0,0,0,0,0,0,0,0,108,254,254,254,254,124,56,16,0,0,0,0
  176.     DATA 0,0,0,0,16,56,124,254,124,56,16,0,0,0,0,0,0,0,0,24,60,60,231,231,231,24,24,60,0,0,0,0
  177.     DATA 0,0,0,24,60,126,255,255,126,24,24,60,0,0,0,0,0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0
  178.     DATA 255,255,255,255,255,255,231,195,195,231,255,255,255,255,255,255,0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0
  179.     DATA 255,255,255,255,255,195,153,189,189,153,195,255,255,255,255,255,0,0,30,14,26,50,120,204,204,204,204,120,0,0,0,0
  180.     DATA 0,0,60,102,102,102,102,60,24,126,24,24,0,0,0,0,0,0,63,51,63,48,48,48,48,112,240,224,0,0,0,0
  181.     DATA 0,0,127,99,127,99,99,99,99,103,231,230,192,0,0,0,0,0,0,24,24,219,60,231,60,219,24,24,0,0,0,0
  182.     DATA 0,128,192,224,240,248,254,248,240,224,192,128,0,0,0,0,0,2,6,14,30,62,254,62,30,14,6,2,0,0,0,0
  183.     DATA 0,0,24,60,126,24,24,24,126,60,24,0,0,0,0,0,0,0,102,102,102,102,102,102,102,0,102,102,0,0,0,0
  184.     DATA 0,0,127,219,219,219,123,27,27,27,27,27,0,0,0,0,0,124,198,96,56,108,198,198,108,56,12,198,124,0,0,0
  185.     DATA 0,0,0,0,0,0,0,0,254,254,254,254,0,0,0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0,0,0
  186.     DATA 0,0,24,60,126,24,24,24,24,24,24,24,0,0,0,0,0,0,24,24,24,24,24,24,24,126,60,24,0,0,0,0
  187.     DATA 0,0,0,0,0,24,12,254,12,24,0,0,0,0,0,0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0,0
  188.     DATA 0,0,0,0,0,0,192,192,192,254,0,0,0,0,0,0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0,0
  189.     DATA 0,0,0,0,16,56,56,124,124,254,254,0,0,0,0,0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0,0
  190.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,60,60,60,24,24,24,0,24,24,0,0,0,0
  191.     DATA 0,102,102,102,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,108,108,254,108,108,108,254,108,108,0,0,0,0
  192.     DATA 24,24,124,198,194,192,124,6,6,134,198,124,24,24,0,0,0,0,0,0,194,198,12,24,48,96,198,134,0,0,0,0
  193.     DATA 0,0,56,108,108,56,118,220,204,204,204,118,0,0,0,0,0,48,48,48,96,0,0,0,0,0,0,0,0,0,0,0
  194.     DATA 0,0,12,24,48,48,48,48,48,48,24,12,0,0,0,0,0,0,48,24,12,12,12,12,12,12,24,48,0,0,0,0
  195.     DATA 0,0,0,0,0,102,60,255,60,102,0,0,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,0,0,0,0
  196.     DATA 0,0,0,0,0,0,0,0,0,24,24,24,48,0,0,0,0,0,0,0,0,0,0,254,0,0,0,0,0,0,0,0
  197.     DATA 0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,0,2,6,12,24,48,96,192,128,0,0,0,0
  198.     DATA 0,0,60,102,195,195,219,219,195,195,102,60,0,0,0,0,0,0,24,56,120,24,24,24,24,24,24,126,0,0,0,0
  199.     DATA 0,0,124,198,6,12,24,48,96,192,198,254,0,0,0,0,0,0,124,198,6,6,60,6,6,6,198,124,0,0,0,0
  200.     DATA 0,0,12,28,60,108,204,254,12,12,12,30,0,0,0,0,0,0,254,192,192,192,252,6,6,6,198,124,0,0,0,0
  201.     DATA 0,0,56,96,192,192,252,198,198,198,198,124,0,0,0,0,0,0,254,198,6,6,12,24,48,48,48,48,0,0,0,0
  202.     DATA 0,0,124,198,198,198,124,198,198,198,198,124,0,0,0,0,0,0,124,198,198,198,126,6,6,6,12,120,0,0,0,0
  203.     DATA 0,0,0,0,24,24,0,0,0,24,24,0,0,0,0,0,0,0,0,0,24,24,0,0,0,24,24,48,0,0,0,0
  204.     DATA 0,0,0,6,12,24,48,96,48,24,12,6,0,0,0,0,0,0,0,0,0,126,0,0,126,0,0,0,0,0,0,0
  205.     DATA 0,0,0,96,48,24,12,6,12,24,48,96,0,0,0,0,0,0,124,198,198,12,24,24,24,0,24,24,0,0,0,0
  206.     DATA 0,0,0,124,198,198,222,222,222,220,192,124,0,0,0,0,0,0,16,56,108,198,198,254,198,198,198,198,0,0,0,0
  207.     DATA 0,0,252,102,102,102,124,102,102,102,102,252,0,0,0,0,0,0,60,102,194,192,192,192,192,194,102,60,0,0,0,0
  208.     DATA 0,0,248,108,102,102,102,102,102,102,108,248,0,0,0,0,0,0,254,102,98,104,120,104,96,98,102,254,0,0,0,0
  209.     DATA 0,0,254,102,98,104,120,104,96,96,96,240,0,0,0,0,0,0,60,102,194,192,192,222,198,198,102,58,0,0,0,0
  210.     DATA 0,0,198,198,198,198,254,198,198,198,198,198,0,0,0,0,0,0,60,24,24,24,24,24,24,24,24,60,0,0,0,0
  211.     DATA 0,0,30,12,12,12,12,12,204,204,204,120,0,0,0,0,0,0,230,102,102,108,120,120,108,102,102,230,0,0,0,0
  212.     DATA 0,0,240,96,96,96,96,96,96,98,102,254,0,0,0,0,0,0,195,231,255,255,219,195,195,195,195,195,0,0,0,0
  213.     DATA 0,0,198,230,246,254,222,206,198,198,198,198,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,124,0,0,0,0
  214.     DATA 0,0,252,102,102,102,124,96,96,96,96,240,0,0,0,0,0,0,124,198,198,198,198,198,198,214,222,124,12,14,0,0
  215.     DATA 0,0,252,102,102,102,124,108,102,102,102,230,0,0,0,0,0,0,124,198,198,96,56,12,6,198,198,124,0,0,0,0
  216.     DATA 0,0,255,219,153,24,24,24,24,24,24,60,0,0,0,0,0,0,198,198,198,198,198,198,198,198,198,124,0,0,0,0
  217.     DATA 0,0,195,195,195,195,195,195,195,102,60,24,0,0,0,0,0,0,195,195,195,195,195,219,219,255,102,102,0,0,0,0
  218.     DATA 0,0,195,195,102,60,24,24,60,102,195,195,0,0,0,0,0,0,195,195,195,102,60,24,24,24,24,60,0,0,0,0
  219.     DATA 0,0,255,195,134,12,24,48,96,193,195,255,0,0,0,0,0,0,60,48,48,48,48,48,48,48,48,60,0,0,0,0
  220.     DATA 0,0,0,128,192,224,112,56,28,14,6,2,0,0,0,0,0,0,60,12,12,12,12,12,12,12,12,60,0,0,0,0
  221.     DATA 16,56,108,198,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0
  222.     DATA 48,48,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,12,124,204,204,204,118,0,0,0,0
  223.     DATA 0,0,224,96,96,120,108,102,102,102,102,124,0,0,0,0,0,0,0,0,0,124,198,192,192,192,198,124,0,0,0,0
  224.     DATA 0,0,28,12,12,60,108,204,204,204,204,118,0,0,0,0,0,0,0,0,0,124,198,254,192,192,198,124,0,0,0,0
  225.     DATA 0,0,56,108,100,96,240,96,96,96,96,240,0,0,0,0,0,0,0,0,0,118,204,204,204,204,204,124,12,204,120,0
  226.     DATA 0,0,224,96,96,108,118,102,102,102,102,230,0,0,0,0,0,0,24,24,0,56,24,24,24,24,24,60,0,0,0,0
  227.     DATA 0,0,6,6,0,14,6,6,6,6,6,6,102,102,60,0,0,0,224,96,96,102,108,120,120,108,102,230,0,0,0,0
  228.     DATA 0,0,56,24,24,24,24,24,24,24,24,60,0,0,0,0,0,0,0,0,0,230,255,219,219,219,219,219,0,0,0,0
  229.     DATA 0,0,0,0,0,220,102,102,102,102,102,102,0,0,0,0,0,0,0,0,0,124,198,198,198,198,198,124,0,0,0,0
  230.     DATA 0,0,0,0,0,220,102,102,102,102,102,124,96,96,240,0,0,0,0,0,0,118,204,204,204,204,204,124,12,12,30,0
  231.     DATA 0,0,0,0,0,220,118,102,96,96,96,240,0,0,0,0,0,0,0,0,0,124,198,96,56,12,198,124,0,0,0,0
  232.     DATA 0,0,16,48,48,252,48,48,48,48,54,28,0,0,0,0,0,0,0,0,0,204,204,204,204,204,204,118,0,0,0,0
  233.     DATA 0,0,0,0,0,195,195,195,195,102,60,24,0,0,0,0,0,0,0,0,0,195,195,195,219,219,255,102,0,0,0,0
  234.     DATA 0,0,0,0,0,195,102,60,24,60,102,195,0,0,0,0,0,0,0,0,0,198,198,198,198,198,198,126,6,12,248,0
  235.     DATA 0,0,0,0,0,254,204,24,48,96,198,254,0,0,0,0,0,0,14,24,24,24,112,24,24,24,24,14,0,0,0,0
  236.     DATA 0,0,24,24,24,24,0,24,24,24,24,24,0,0,0,0,0,0,112,24,24,24,14,24,24,24,24,112,0,0,0,0
  237.     DATA 0,0,118,220,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,56,108,198,198,198,254,0,0,0,0,0
  238.     DATA 0,0,60,102,194,192,192,192,194,102,60,12,6,124,0,0,0,0,204,0,0,204,204,204,204,204,204,118,0,0,0,0
  239.     DATA 0,12,24,48,0,124,198,254,192,192,198,124,0,0,0,0,0,16,56,108,0,120,12,124,204,204,204,118,0,0,0,0
  240.     DATA 0,0,204,0,0,120,12,124,204,204,204,118,0,0,0,0,0,96,48,24,0,120,12,124,204,204,204,118,0,0,0,0
  241.     DATA 0,56,108,56,0,120,12,124,204,204,204,118,0,0,0,0,0,0,0,0,60,102,96,96,102,60,12,6,60,0,0,0
  242.     DATA 0,16,56,108,0,124,198,254,192,192,198,124,0,0,0,0,0,0,198,0,0,124,198,254,192,192,198,124,0,0,0,0
  243.     DATA 0,96,48,24,0,124,198,254,192,192,198,124,0,0,0,0,0,0,102,0,0,56,24,24,24,24,24,60,0,0,0,0
  244.     DATA 0,24,60,102,0,56,24,24,24,24,24,60,0,0,0,0,0,96,48,24,0,56,24,24,24,24,24,60,0,0,0,0
  245.     DATA 0,198,0,16,56,108,198,198,254,198,198,198,0,0,0,0,56,108,56,0,56,108,198,198,254,198,198,198,0,0,0,0
  246.     DATA 24,48,96,0,254,102,96,124,96,96,102,254,0,0,0,0,0,0,0,0,0,110,59,27,126,216,220,119,0,0,0,0
  247.     DATA 0,0,62,108,204,204,254,204,204,204,204,206,0,0,0,0,0,16,56,108,0,124,198,198,198,198,198,124,0,0,0,0
  248.     DATA 0,0,198,0,0,124,198,198,198,198,198,124,0,0,0,0,0,96,48,24,0,124,198,198,198,198,198,124,0,0,0,0
  249.     DATA 0,48,120,204,0,204,204,204,204,204,204,118,0,0,0,0,0,96,48,24,0,204,204,204,204,204,204,118,0,0,0,0
  250.     DATA 0,0,198,0,0,198,198,198,198,198,198,126,6,12,120,0,0,198,0,124,198,198,198,198,198,198,198,124,0,0,0,0
  251.     DATA 0,198,0,198,198,198,198,198,198,198,198,124,0,0,0,0,0,24,24,126,195,192,192,192,195,126,24,24,0,0,0,0
  252.     DATA 0,56,108,100,96,240,96,96,96,96,230,252,0,0,0,0,0,0,195,102,60,24,255,24,255,24,24,24,0,0,0,0
  253.     DATA 0,252,102,102,124,98,102,111,102,102,102,243,0,0,0,0,0,14,27,24,24,24,126,24,24,24,24,24,216,112,0,0
  254.     DATA 0,24,48,96,0,120,12,124,204,204,204,118,0,0,0,0,0,12,24,48,0,56,24,24,24,24,24,60,0,0,0,0
  255.     DATA 0,24,48,96,0,124,198,198,198,198,198,124,0,0,0,0,0,24,48,96,0,204,204,204,204,204,204,118,0,0,0,0
  256.     DATA 0,0,118,220,0,220,102,102,102,102,102,102,0,0,0,0,118,220,0,198,230,246,254,222,206,198,198,198,0,0,0,0
  257.     DATA 0,60,108,108,62,0,126,0,0,0,0,0,0,0,0,0,0,56,108,108,56,0,124,0,0,0,0,0,0,0,0,0
  258.     DATA 0,0,48,48,0,48,48,96,192,198,198,124,0,0,0,0,0,0,0,0,0,0,254,192,192,192,192,0,0,0,0,0
  259.     DATA 0,0,0,0,0,0,254,6,6,6,6,0,0,0,0,0,0,192,192,194,198,204,24,48,96,206,155,6,12,31,0,0
  260.     DATA 0,192,192,194,198,204,24,48,102,206,150,62,6,6,0,0,0,0,24,24,0,24,24,24,60,60,60,24,0,0,0,0
  261.     DATA 0,0,0,0,0,54,108,216,108,54,0,0,0,0,0,0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0,0
  262.     DATA 17,68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,85,170,85,170,85,170,85,170,85,170,85,170,85,170,85,170
  263.     DATA 221,119,221,119,221,119,221,119,221,119,221,119,221,119,221,119,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  264.     DATA 24,24,24,24,24,24,24,248,24,24,24,24,24,24,24,24,24,24,24,24,24,248,24,248,24,24,24,24,24,24,24,24
  265.     DATA 54,54,54,54,54,54,54,246,54,54,54,54,54,54,54,54,0,0,0,0,0,0,0,254,54,54,54,54,54,54,54,54
  266.     DATA 0,0,0,0,0,248,24,248,24,24,24,24,24,24,24,24,54,54,54,54,54,246,6,246,54,54,54,54,54,54,54,54
  267.     DATA 54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,0,0,0,0,0,254,6,246,54,54,54,54,54,54,54,54
  268.     DATA 54,54,54,54,54,246,6,254,0,0,0,0,0,0,0,0,54,54,54,54,54,54,54,254,0,0,0,0,0,0,0,0
  269.     DATA 24,24,24,24,24,248,24,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24,24
  270.     DATA 24,24,24,24,24,24,24,31,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0,0
  271.     DATA 0,0,0,0,0,0,0,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24,24
  272.     DATA 0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24,24
  273.     DATA 24,24,24,24,24,31,24,31,24,24,24,24,24,24,24,24,54,54,54,54,54,54,54,55,54,54,54,54,54,54,54,54
  274.     DATA 54,54,54,54,54,55,48,63,0,0,0,0,0,0,0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54,54,54
  275.     DATA 54,54,54,54,54,247,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54,54,54
  276.     DATA 54,54,54,54,54,55,48,55,54,54,54,54,54,54,54,54,0,0,0,0,0,255,0,255,0,0,0,0,0,0,0,0
  277.     DATA 54,54,54,54,54,247,0,247,54,54,54,54,54,54,54,54,24,24,24,24,24,255,0,255,0,0,0,0,0,0,0,0
  278.     DATA 54,54,54,54,54,54,54,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,255,24,24,24,24,24,24,24,24
  279.     DATA 0,0,0,0,0,0,0,255,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,63,0,0,0,0,0,0,0,0
  280.     DATA 24,24,24,24,24,31,24,31,0,0,0,0,0,0,0,0,0,0,0,0,0,31,24,31,24,24,24,24,24,24,24,24
  281.     DATA 0,0,0,0,0,0,0,63,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,255,54,54,54,54,54,54,54,54
  282.     DATA 24,24,24,24,24,255,24,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0,0
  283.     DATA 0,0,0,0,0,0,0,31,24,24,24,24,24,24,24,24,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  284.     DATA 0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240
  285.     DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0
  286.     DATA 0,0,0,0,0,118,220,216,216,216,220,118,0,0,0,0,0,0,120,204,204,204,216,204,198,198,198,204,0,0,0,0
  287.     DATA 0,0,254,198,198,192,192,192,192,192,192,192,0,0,0,0,0,0,0,0,254,108,108,108,108,108,108,108,0,0,0,0
  288.     DATA 0,0,0,254,198,96,48,24,48,96,198,254,0,0,0,0,0,0,0,0,0,126,216,216,216,216,216,112,0,0,0,0
  289.     DATA 0,0,0,0,102,102,102,102,102,124,96,96,192,0,0,0,0,0,0,0,118,220,24,24,24,24,24,24,0,0,0,0
  290.     DATA 0,0,0,126,24,60,102,102,102,60,24,126,0,0,0,0,0,0,0,56,108,198,198,254,198,198,108,56,0,0,0,0
  291.     DATA 0,0,56,108,198,198,198,108,108,108,108,238,0,0,0,0,0,0,30,48,24,12,62,102,102,102,102,60,0,0,0,0
  292.     DATA 0,0,0,0,0,126,219,219,219,126,0,0,0,0,0,0,0,0,0,3,6,126,219,219,243,126,96,192,0,0,0,0
  293.     DATA 0,0,28,48,96,96,124,96,96,96,48,28,0,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,0,0,0,0
  294.     DATA 0,0,0,0,254,0,0,254,0,0,254,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,255,0,0,0,0
  295.     DATA 0,0,0,48,24,12,6,12,24,48,0,126,0,0,0,0,0,0,0,12,24,48,96,48,24,12,0,126,0,0,0,0
  296.     DATA 0,0,14,27,27,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,216,216,216,112,0,0,0,0
  297.     DATA 0,0,0,0,24,24,0,126,0,24,24,0,0,0,0,0,0,0,0,0,0,118,220,0,118,220,0,0,0,0,0,0
  298.     DATA 0,56,108,108,56,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0
  299.     DATA 0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,15,12,12,12,12,12,236,108,108,60,28,0,0,0,0
  300.     DATA 0,216,108,108,108,108,108,0,0,0,0,0,0,0,0,0,0,112,216,48,96,200,248,0,0,0,0,0,0,0,0,0
  301.     DATA 0,0,0,0,124,124,124,124,124,124,124,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  303.  
  304. FUNCTION changePlasma~& ()
  305.     pN = pN + .5 'dim shared cN as _Integer64, pR as integer, pG as integer, pB as integer
  306.     changePlasma~& = _RGB(r1 * (32 + 32 * SIN(pR * pN)), r2 * (32 + 32 * SIN(pG * pN)), r3 * (32 + 32 * SIN(pB * pN)))
  308.  
  309. SUB resetPlasma ()
  310.     IF RND < .5 THEN r1 = 0 ELSE r1 = 1
  311.     IF RND < .5 THEN r2 = 0 ELSE r2 = 1
  312.     IF RND < .5 THEN r3 = 0 ELSE r3 = 1
  313.     IF r1 = 0 AND r2 = 0 AND r3 = 0 THEN r1 = 1
  314.     pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2: pN = 1
  316.  
  317.  

2 EDITs later: Wow, I really had to alter Plasma Coloring for nice background action (that doesn't over power the words (too much ;-)).

« Last Edit: October 25, 2019, 01:35:51 pm by bplus »
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Another LED Scroller
« Reply #5 on: October 25, 2019, 07:17:18 pm »
I fixed it...

Try the following:

temp = SPACE$(chars) + "Riders on the storm. Riders on the storm. "
temp = temp + "Into this house we're born. Into this world we're thrown. "
temp = temp + "Like a dog without a bone, an actor out on loan. "
temp = temp + "Riders on the storm. "

Sorry [banned user], choosing between Julie Andrews and Jim Morrison, Jim will win hands down every time... lol

J
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Another LED Scroller
« Reply #6 on: October 25, 2019, 09:53:30 pm »
Awesome scroller!
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Another LED Scroller
« Reply #7 on: October 25, 2019, 11:48:56 pm »
Steve,

A "wee bit" faster? The scroller moved so fast that the letters were a blur.... My monitor almost got "rug burn"....
Logged
Logic is the beginning of wisdom.

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Another LED Scroller
« Reply #8 on: October 26, 2019, 01:36:53 am »
Quote from: johnno56 on October 25, 2019, 11:48:56 pm
Steve,

A "wee bit" faster? The scroller moved so fast that the letters were a blur.... My monitor almost got "rug burn"....

And all I changed was this segment:

    'CIRCLE (x * t2 + t1, y * t2 + t1), LEDs.size, tc
    'PAINT (x * t2 + t1, y * t2 + t1), tc, tc
    CircleFill x * t2 + t1, y * t2 + t1, LEDs.size, tc

CIRCLE/PAINT is sloooooow.  Swapping it with a good CircleFill routine was all the code needed to eliminate the lag.  ;)
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Another LED Scroller
« Reply #9 on: October 26, 2019, 10:10:24 am »
Fast, who needs fast? The app is about displaying info to be read by human, NOT crunching numbers!

[banned user]'s code already scrolls faster than you can read without a _LIMIT set! That is why I had to slow it down for my mod with bigger lettered screen. :P
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Another LED Scroller
« Reply #10 on: October 26, 2019, 10:29:22 am »
Quote from: bplus on October 26, 2019, 10:10:24 am
Fast, who needs fast? The app is about displaying info to be read by human, NOT crunching numbers!

Apparently [banned user] did:
Quote
Maybe someone can help this along to get better and faster.
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Another LED Scroller
« Reply #11 on: October 26, 2019, 10:34:28 am »
Quote from: SMcNeill on October 26, 2019, 10:29:22 am
Apparently [banned user] did:
Quote
Maybe someone can help this along to get better and faster.

Oh I missed that part, typical reading comprehension by me. :P

Quote from: [banned user] on October 25, 2019, 11:10:10 pm
You call  THAT  F A S T?  On my Quad core 3.5Ghz system with a low 8GB ram it takes a second for each letter with/without the _LIMIT command loaded.  I must have low end specs and y'all have light speed computers.  Where can I get one?

Nice one Steve and B+.

[banned user], are you a speed demon? WTH? ;-))

wait... "one second for each letter with or without _LIMIT"??? Yikes man!
« Last Edit: October 26, 2019, 10:39:23 am by bplus »
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Another LED Scroller
« Reply #12 on: October 27, 2019, 06:35:29 pm »
Hi [banned user]

Good Job


about speed ??? How can it  improve your algorithm?? Well how many circles and paints are executed in a second?
Steve has pointed to the issue... with fillcircle you can gain some times but to do it faster IMHO you must rewrite /rethink the core of output.

About the progression not fluid but it seems to jump at each character, this is caused by _display at each character...
moreover the PrintLED sub must be rewritten if you want to show progression of scrolling for each vertical line of circle and not for each letter to print...

Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Another LED Scroller
« Reply #13 on: October 27, 2019, 06:44:47 pm »
However if you forget CIRCLE and PAINT
I can improve very much the speed of your scrolling...

see here this code!
Code: QB64: [Select]
  1. _TITLE "LED Screen"
  2.  
  3. CONST false = 0
  4. CONST true = NOT false
  5.  
  7.  
  8. TYPE LED_Board
  9.     ' # of horizontal pixels
  10.     hor AS INTEGER
  11.  
  12.     ' # of vertical pixels
  13.     vert AS INTEGER
  14.  
  15.     ' # of text characters
  16.     chars AS INTEGER
  17.  
  18.     ' # of text rows
  19.     rows AS INTEGER
  20.  
  21.     ' Size of the LED pixels
  22.     size AS INTEGER
  24.  
  25. DIM SHARED LEDs AS LED_Board
  26. LEDs.size = 1
  27.  
  28. DIM SHARED bScreen AS LONG
  31.  
  32. DIM SHARED CharFont AS STRING
  33. DIM SHARED DotMatrix(16) AS STRING
  34.  
  35. sWidth = 800
  36. sHeight = 480
  37.  
  38. LEDs.hor = sWidth \ (2 * LEDs.size + 2)
  39. LEDs.vert = sHeight \ (2 * LEDs.size + 2)
  40.  
  41. LEDs.chars = LEDs.hor \ 8
  42. LEDs.rows = LEDs.vert \ 16
  43.  
  44. LoadFont
  45.  
  46. SCREEN _NEWIMAGE(sWidth, sHeight, 12)
  47.  
  48. chars = LEDs.chars
  49. row = LEDs.rows \ 2
  50.  
  51. temp = SPACE$(chars) + "Supercalifragilisticexpialidocious "
  52. temp = temp + "Even though the sound of it is something quite atrocious "
  53. temp = temp + "If you say it loud enough, you'll always sound precocious "
  54. temp = temp + "Supercalifragilisticexpialidocious" + SPACE$(chars)
  55.  
  56. length = LEN(temp) - chars + 1
  57.  
  58. FOR scroll = 1 TO length
  59.     _LIMIT 60
  60.     LINE (0, 0)-(sWidth - 1, sHeight - 1), _RGB(0, 0, 0), BF
  61.  
  62.     PrintLED MID$(temp, scroll, chars), row, 0
  63.     _DISPLAY
  65.  
  67.  
  68. FUNCTION BIN$ (Value)
  69.     WHILE Value <> 0
  70.         T$ = RIGHT$(STR$(Value MOD 2), 1) + T$: Value = Value \ 2
  71.     WEND
  72.  
  73.     BIN = RIGHT$(STRING$(8, 48) + T$, 8)
  75.  
  76. FUNCTION Font$ (Value)
  77.     DIM Tag AS STRING
  78.     DIM Temp AS STRING
  79.  
  80.     Tag = MID$(CharFont, 16 * Value + 1, 16)
  81.  
  82.     Temp = ""
  83.     FOR i = 1 TO 16
  84.         Temp = Temp + RIGHT$("0000000" + BIN(ASC(MID$(Tag, i, 1))), 8)
  85.     NEXT
  86.  
  87.     Font = Temp
  89.  
  90. SUB LoadText (Message AS STRING, flag AS INTEGER)
  91.     DIM Text AS STRING
  92.     DIM Blank AS STRING
  93.  
  94.     ' Set flag when scrolling the message
  95.  
  96.     Blank = ""
  97.     IF flag THEN
  98.         Blank = STRING$(LEDs.hor, 48)
  99.     END IF
  100.  
  101.     FOR v = 1 TO 16
  102.         DotMatrix(v) = Blank
  103.     NEXT
  104.  
  105.     Text = Message + " "
  106.     FOR char = 1 TO LEN(Text)
  107.         a = ASC(MID$(Text, char, 1))
  108.  
  109.         FOR v = 0 TO 15
  110.             DotMatrix(v + 1) = DotMatrix(v + 1) + MID$(Font(a), 8 * v + 1, 8)
  111.         NEXT
  112.     NEXT
  113.  
  114.     IF flag THEN
  115.         FOR v = 1 TO 16
  116.             DotMatrix(v) = DotMatrix(v) + Blank
  117.         NEXT
  118.     END IF
  120.  
  121. SUB PrintLED (Message AS STRING, Row AS INTEGER, flag AS INTEGER)
  122.     DIM temp AS STRING
  123.  
  124.     ' Set flag to center the message
  125.  
  126.     IF flag THEN
  127.         t = LEDs.chars \ 2 - LEN(Message) \ 2
  128.  
  129.         LoadText SPACE$(t) + Message, 0
  130.     ELSE
  131.         LoadText Message, 0
  132.     END IF
  133.  
  134.     tx = 0: ty = 16 * Row
  135.  
  136.     Length = LEN(DotMatrix(1))
  137.     IF Length > LEDs.hor THEN
  138.         Length = LEDs.hor
  139.     END IF
  140.  
  141.     FOR v = 0 TO 15
  142.         temp = MID$(DotMatrix(v + 1), char, Length)
  143.  
  144.         FOR h = 0 TO LEN(temp)
  145.             FlipLED tx + h, ty + v, 1, VAL(MID$(temp, h + 1, 1))
  146.  
  147.             ' Use this to speed up the program:
  148.             'IF VAL(MID$(temp, h + 1, 1)) THEN FlipLED tx + h, ty + v, 1, 1
  149.         NEXT
  150.     NEXT
  152.  
  153. SUB FlipLED (x, y, colour, state)
  154.     t1 = LEDs.size
  155.     t2 = 2 * t1 + 2
  156.  
  157.     ' State is On/Off
  158.     tc = 8 * state + colour
  159.     LINE (x * t2 + t1, y * t2 + t1)-(x * t2 + t1 + LEDs.size, y * t2 + t1 + LEDs.size), tc, BF
  160.     '    CIRCLE (x * t2 + t1, y * t2 + t1), LEDs.size, tc
  161.     '   PAINT (x * t2 + t1, y * t2 + t1), tc, tc
  163.  
  164. SUB LoadFont
  165.     FOR i = 1 TO 4096
  166.         READ charVal
  167.         CharFont = CharFont + CHR$(charVal)
  168.     NEXT
  169.     EXIT SUB
  170.  
  171.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,126,129,165,129,129,189,153,129,129,126,0,0,0,0
  172.     DATA 0,0,126,255,219,255,255,195,231,255,255,126,0,0,0,0,0,0,0,0,108,254,254,254,254,124,56,16,0,0,0,0
  173.     DATA 0,0,0,0,16,56,124,254,124,56,16,0,0,0,0,0,0,0,0,24,60,60,231,231,231,24,24,60,0,0,0,0
  174.     DATA 0,0,0,24,60,126,255,255,126,24,24,60,0,0,0,0,0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0
  175.     DATA 255,255,255,255,255,255,231,195,195,231,255,255,255,255,255,255,0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0
  176.     DATA 255,255,255,255,255,195,153,189,189,153,195,255,255,255,255,255,0,0,30,14,26,50,120,204,204,204,204,120,0,0,0,0
  177.     DATA 0,0,60,102,102,102,102,60,24,126,24,24,0,0,0,0,0,0,63,51,63,48,48,48,48,112,240,224,0,0,0,0
  178.     DATA 0,0,127,99,127,99,99,99,99,103,231,230,192,0,0,0,0,0,0,24,24,219,60,231,60,219,24,24,0,0,0,0
  179.     DATA 0,128,192,224,240,248,254,248,240,224,192,128,0,0,0,0,0,2,6,14,30,62,254,62,30,14,6,2,0,0,0,0
  180.     DATA 0,0,24,60,126,24,24,24,126,60,24,0,0,0,0,0,0,0,102,102,102,102,102,102,102,0,102,102,0,0,0,0
  181.     DATA 0,0,127,219,219,219,123,27,27,27,27,27,0,0,0,0,0,124,198,96,56,108,198,198,108,56,12,198,124,0,0,0
  182.     DATA 0,0,0,0,0,0,0,0,254,254,254,254,0,0,0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0,0,0
  183.     DATA 0,0,24,60,126,24,24,24,24,24,24,24,0,0,0,0,0,0,24,24,24,24,24,24,24,126,60,24,0,0,0,0
  184.     DATA 0,0,0,0,0,24,12,254,12,24,0,0,0,0,0,0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0,0
  185.     DATA 0,0,0,0,0,0,192,192,192,254,0,0,0,0,0,0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0,0
  186.     DATA 0,0,0,0,16,56,56,124,124,254,254,0,0,0,0,0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0,0
  187.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,60,60,60,24,24,24,0,24,24,0,0,0,0
  188.     DATA 0,102,102,102,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,108,108,254,108,108,108,254,108,108,0,0,0,0
  189.     DATA 24,24,124,198,194,192,124,6,6,134,198,124,24,24,0,0,0,0,0,0,194,198,12,24,48,96,198,134,0,0,0,0
  190.     DATA 0,0,56,108,108,56,118,220,204,204,204,118,0,0,0,0,0,48,48,48,96,0,0,0,0,0,0,0,0,0,0,0
  191.     DATA 0,0,12,24,48,48,48,48,48,48,24,12,0,0,0,0,0,0,48,24,12,12,12,12,12,12,24,48,0,0,0,0
  192.     DATA 0,0,0,0,0,102,60,255,60,102,0,0,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,0,0,0,0
  193.     DATA 0,0,0,0,0,0,0,0,0,24,24,24,48,0,0,0,0,0,0,0,0,0,0,254,0,0,0,0,0,0,0,0
  194.     DATA 0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,0,2,6,12,24,48,96,192,128,0,0,0,0
  195.     DATA 0,0,60,102,195,195,219,219,195,195,102,60,0,0,0,0,0,0,24,56,120,24,24,24,24,24,24,126,0,0,0,0
  196.     DATA 0,0,124,198,6,12,24,48,96,192,198,254,0,0,0,0,0,0,124,198,6,6,60,6,6,6,198,124,0,0,0,0
  197.     DATA 0,0,12,28,60,108,204,254,12,12,12,30,0,0,0,0,0,0,254,192,192,192,252,6,6,6,198,124,0,0,0,0
  198.     DATA 0,0,56,96,192,192,252,198,198,198,198,124,0,0,0,0,0,0,254,198,6,6,12,24,48,48,48,48,0,0,0,0
  199.     DATA 0,0,124,198,198,198,124,198,198,198,198,124,0,0,0,0,0,0,124,198,198,198,126,6,6,6,12,120,0,0,0,0
  200.     DATA 0,0,0,0,24,24,0,0,0,24,24,0,0,0,0,0,0,0,0,0,24,24,0,0,0,24,24,48,0,0,0,0
  201.     DATA 0,0,0,6,12,24,48,96,48,24,12,6,0,0,0,0,0,0,0,0,0,126,0,0,126,0,0,0,0,0,0,0
  202.     DATA 0,0,0,96,48,24,12,6,12,24,48,96,0,0,0,0,0,0,124,198,198,12,24,24,24,0,24,24,0,0,0,0
  203.     DATA 0,0,0,124,198,198,222,222,222,220,192,124,0,0,0,0,0,0,16,56,108,198,198,254,198,198,198,198,0,0,0,0
  204.     DATA 0,0,252,102,102,102,124,102,102,102,102,252,0,0,0,0,0,0,60,102,194,192,192,192,192,194,102,60,0,0,0,0
  205.     DATA 0,0,248,108,102,102,102,102,102,102,108,248,0,0,0,0,0,0,254,102,98,104,120,104,96,98,102,254,0,0,0,0
  206.     DATA 0,0,254,102,98,104,120,104,96,96,96,240,0,0,0,0,0,0,60,102,194,192,192,222,198,198,102,58,0,0,0,0
  207.     DATA 0,0,198,198,198,198,254,198,198,198,198,198,0,0,0,0,0,0,60,24,24,24,24,24,24,24,24,60,0,0,0,0
  208.     DATA 0,0,30,12,12,12,12,12,204,204,204,120,0,0,0,0,0,0,230,102,102,108,120,120,108,102,102,230,0,0,0,0
  209.     DATA 0,0,240,96,96,96,96,96,96,98,102,254,0,0,0,0,0,0,195,231,255,255,219,195,195,195,195,195,0,0,0,0
  210.     DATA 0,0,198,230,246,254,222,206,198,198,198,198,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,124,0,0,0,0
  211.     DATA 0,0,252,102,102,102,124,96,96,96,96,240,0,0,0,0,0,0,124,198,198,198,198,198,198,214,222,124,12,14,0,0
  212.     DATA 0,0,252,102,102,102,124,108,102,102,102,230,0,0,0,0,0,0,124,198,198,96,56,12,6,198,198,124,0,0,0,0
  213.     DATA 0,0,255,219,153,24,24,24,24,24,24,60,0,0,0,0,0,0,198,198,198,198,198,198,198,198,198,124,0,0,0,0
  214.     DATA 0,0,195,195,195,195,195,195,195,102,60,24,0,0,0,0,0,0,195,195,195,195,195,219,219,255,102,102,0,0,0,0
  215.     DATA 0,0,195,195,102,60,24,24,60,102,195,195,0,0,0,0,0,0,195,195,195,102,60,24,24,24,24,60,0,0,0,0
  216.     DATA 0,0,255,195,134,12,24,48,96,193,195,255,0,0,0,0,0,0,60,48,48,48,48,48,48,48,48,60,0,0,0,0
  217.     DATA 0,0,0,128,192,224,112,56,28,14,6,2,0,0,0,0,0,0,60,12,12,12,12,12,12,12,12,60,0,0,0,0
  218.     DATA 16,56,108,198,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0
  219.     DATA 48,48,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,12,124,204,204,204,118,0,0,0,0
  220.     DATA 0,0,224,96,96,120,108,102,102,102,102,124,0,0,0,0,0,0,0,0,0,124,198,192,192,192,198,124,0,0,0,0
  221.     DATA 0,0,28,12,12,60,108,204,204,204,204,118,0,0,0,0,0,0,0,0,0,124,198,254,192,192,198,124,0,0,0,0
  222.     DATA 0,0,56,108,100,96,240,96,96,96,96,240,0,0,0,0,0,0,0,0,0,118,204,204,204,204,204,124,12,204,120,0
  223.     DATA 0,0,224,96,96,108,118,102,102,102,102,230,0,0,0,0,0,0,24,24,0,56,24,24,24,24,24,60,0,0,0,0
  224.     DATA 0,0,6,6,0,14,6,6,6,6,6,6,102,102,60,0,0,0,224,96,96,102,108,120,120,108,102,230,0,0,0,0
  225.     DATA 0,0,56,24,24,24,24,24,24,24,24,60,0,0,0,0,0,0,0,0,0,230,255,219,219,219,219,219,0,0,0,0
  226.     DATA 0,0,0,0,0,220,102,102,102,102,102,102,0,0,0,0,0,0,0,0,0,124,198,198,198,198,198,124,0,0,0,0
  227.     DATA 0,0,0,0,0,220,102,102,102,102,102,124,96,96,240,0,0,0,0,0,0,118,204,204,204,204,204,124,12,12,30,0
  228.     DATA 0,0,0,0,0,220,118,102,96,96,96,240,0,0,0,0,0,0,0,0,0,124,198,96,56,12,198,124,0,0,0,0
  229.     DATA 0,0,16,48,48,252,48,48,48,48,54,28,0,0,0,0,0,0,0,0,0,204,204,204,204,204,204,118,0,0,0,0
  230.     DATA 0,0,0,0,0,195,195,195,195,102,60,24,0,0,0,0,0,0,0,0,0,195,195,195,219,219,255,102,0,0,0,0
  231.     DATA 0,0,0,0,0,195,102,60,24,60,102,195,0,0,0,0,0,0,0,0,0,198,198,198,198,198,198,126,6,12,248,0
  232.     DATA 0,0,0,0,0,254,204,24,48,96,198,254,0,0,0,0,0,0,14,24,24,24,112,24,24,24,24,14,0,0,0,0
  233.     DATA 0,0,24,24,24,24,0,24,24,24,24,24,0,0,0,0,0,0,112,24,24,24,14,24,24,24,24,112,0,0,0,0
  234.     DATA 0,0,118,220,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,56,108,198,198,198,254,0,0,0,0,0
  235.     DATA 0,0,60,102,194,192,192,192,194,102,60,12,6,124,0,0,0,0,204,0,0,204,204,204,204,204,204,118,0,0,0,0
  236.     DATA 0,12,24,48,0,124,198,254,192,192,198,124,0,0,0,0,0,16,56,108,0,120,12,124,204,204,204,118,0,0,0,0
  237.     DATA 0,0,204,0,0,120,12,124,204,204,204,118,0,0,0,0,0,96,48,24,0,120,12,124,204,204,204,118,0,0,0,0
  238.     DATA 0,56,108,56,0,120,12,124,204,204,204,118,0,0,0,0,0,0,0,0,60,102,96,96,102,60,12,6,60,0,0,0
  239.     DATA 0,16,56,108,0,124,198,254,192,192,198,124,0,0,0,0,0,0,198,0,0,124,198,254,192,192,198,124,0,0,0,0
  240.     DATA 0,96,48,24,0,124,198,254,192,192,198,124,0,0,0,0,0,0,102,0,0,56,24,24,24,24,24,60,0,0,0,0
  241.     DATA 0,24,60,102,0,56,24,24,24,24,24,60,0,0,0,0,0,96,48,24,0,56,24,24,24,24,24,60,0,0,0,0
  242.     DATA 0,198,0,16,56,108,198,198,254,198,198,198,0,0,0,0,56,108,56,0,56,108,198,198,254,198,198,198,0,0,0,0
  243.     DATA 24,48,96,0,254,102,96,124,96,96,102,254,0,0,0,0,0,0,0,0,0,110,59,27,126,216,220,119,0,0,0,0
  244.     DATA 0,0,62,108,204,204,254,204,204,204,204,206,0,0,0,0,0,16,56,108,0,124,198,198,198,198,198,124,0,0,0,0
  245.     DATA 0,0,198,0,0,124,198,198,198,198,198,124,0,0,0,0,0,96,48,24,0,124,198,198,198,198,198,124,0,0,0,0
  246.     DATA 0,48,120,204,0,204,204,204,204,204,204,118,0,0,0,0,0,96,48,24,0,204,204,204,204,204,204,118,0,0,0,0
  247.     DATA 0,0,198,0,0,198,198,198,198,198,198,126,6,12,120,0,0,198,0,124,198,198,198,198,198,198,198,124,0,0,0,0
  248.     DATA 0,198,0,198,198,198,198,198,198,198,198,124,0,0,0,0,0,24,24,126,195,192,192,192,195,126,24,24,0,0,0,0
  249.     DATA 0,56,108,100,96,240,96,96,96,96,230,252,0,0,0,0,0,0,195,102,60,24,255,24,255,24,24,24,0,0,0,0
  250.     DATA 0,252,102,102,124,98,102,111,102,102,102,243,0,0,0,0,0,14,27,24,24,24,126,24,24,24,24,24,216,112,0,0
  251.     DATA 0,24,48,96,0,120,12,124,204,204,204,118,0,0,0,0,0,12,24,48,0,56,24,24,24,24,24,60,0,0,0,0
  252.     DATA 0,24,48,96,0,124,198,198,198,198,198,124,0,0,0,0,0,24,48,96,0,204,204,204,204,204,204,118,0,0,0,0
  253.     DATA 0,0,118,220,0,220,102,102,102,102,102,102,0,0,0,0,118,220,0,198,230,246,254,222,206,198,198,198,0,0,0,0
  254.     DATA 0,60,108,108,62,0,126,0,0,0,0,0,0,0,0,0,0,56,108,108,56,0,124,0,0,0,0,0,0,0,0,0
  255.     DATA 0,0,48,48,0,48,48,96,192,198,198,124,0,0,0,0,0,0,0,0,0,0,254,192,192,192,192,0,0,0,0,0
  256.     DATA 0,0,0,0,0,0,254,6,6,6,6,0,0,0,0,0,0,192,192,194,198,204,24,48,96,206,155,6,12,31,0,0
  257.     DATA 0,192,192,194,198,204,24,48,102,206,150,62,6,6,0,0,0,0,24,24,0,24,24,24,60,60,60,24,0,0,0,0
  258.     DATA 0,0,0,0,0,54,108,216,108,54,0,0,0,0,0,0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0,0
  259.     DATA 17,68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,85,170,85,170,85,170,85,170,85,170,85,170,85,170,85,170
  260.     DATA 221,119,221,119,221,119,221,119,221,119,221,119,221,119,221,119,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  261.     DATA 24,24,24,24,24,24,24,248,24,24,24,24,24,24,24,24,24,24,24,24,24,248,24,248,24,24,24,24,24,24,24,24
  262.     DATA 54,54,54,54,54,54,54,246,54,54,54,54,54,54,54,54,0,0,0,0,0,0,0,254,54,54,54,54,54,54,54,54
  263.     DATA 0,0,0,0,0,248,24,248,24,24,24,24,24,24,24,24,54,54,54,54,54,246,6,246,54,54,54,54,54,54,54,54
  264.     DATA 54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,0,0,0,0,0,254,6,246,54,54,54,54,54,54,54,54
  265.     DATA 54,54,54,54,54,246,6,254,0,0,0,0,0,0,0,0,54,54,54,54,54,54,54,254,0,0,0,0,0,0,0,0
  266.     DATA 24,24,24,24,24,248,24,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24,24
  267.     DATA 24,24,24,24,24,24,24,31,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0,0
  268.     DATA 0,0,0,0,0,0,0,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24,24
  269.     DATA 0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24,24
  270.     DATA 24,24,24,24,24,31,24,31,24,24,24,24,24,24,24,24,54,54,54,54,54,54,54,55,54,54,54,54,54,54,54,54
  271.     DATA 54,54,54,54,54,55,48,63,0,0,0,0,0,0,0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54,54,54
  272.     DATA 54,54,54,54,54,247,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54,54,54
  273.     DATA 54,54,54,54,54,55,48,55,54,54,54,54,54,54,54,54,0,0,0,0,0,255,0,255,0,0,0,0,0,0,0,0
  274.     DATA 54,54,54,54,54,247,0,247,54,54,54,54,54,54,54,54,24,24,24,24,24,255,0,255,0,0,0,0,0,0,0,0
  275.     DATA 54,54,54,54,54,54,54,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,255,24,24,24,24,24,24,24,24
  276.     DATA 0,0,0,0,0,0,0,255,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,63,0,0,0,0,0,0,0,0
  277.     DATA 24,24,24,24,24,31,24,31,0,0,0,0,0,0,0,0,0,0,0,0,0,31,24,31,24,24,24,24,24,24,24,24
  278.     DATA 0,0,0,0,0,0,0,63,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,255,54,54,54,54,54,54,54,54
  279.     DATA 24,24,24,24,24,255,24,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0,0
  280.     DATA 0,0,0,0,0,0,0,31,24,24,24,24,24,24,24,24,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  281.     DATA 0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240
  282.     DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0
  283.     DATA 0,0,0,0,0,118,220,216,216,216,220,118,0,0,0,0,0,0,120,204,204,204,216,204,198,198,198,204,0,0,0,0
  284.     DATA 0,0,254,198,198,192,192,192,192,192,192,192,0,0,0,0,0,0,0,0,254,108,108,108,108,108,108,108,0,0,0,0
  285.     DATA 0,0,0,254,198,96,48,24,48,96,198,254,0,0,0,0,0,0,0,0,0,126,216,216,216,216,216,112,0,0,0,0
  286.     DATA 0,0,0,0,102,102,102,102,102,124,96,96,192,0,0,0,0,0,0,0,118,220,24,24,24,24,24,24,0,0,0,0
  287.     DATA 0,0,0,126,24,60,102,102,102,60,24,126,0,0,0,0,0,0,0,56,108,198,198,254,198,198,108,56,0,0,0,0
  288.     DATA 0,0,56,108,198,198,198,108,108,108,108,238,0,0,0,0,0,0,30,48,24,12,62,102,102,102,102,60,0,0,0,0
  289.     DATA 0,0,0,0,0,126,219,219,219,126,0,0,0,0,0,0,0,0,0,3,6,126,219,219,243,126,96,192,0,0,0,0
  290.     DATA 0,0,28,48,96,96,124,96,96,96,48,28,0,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,0,0,0,0
  291.     DATA 0,0,0,0,254,0,0,254,0,0,254,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,255,0,0,0,0
  292.     DATA 0,0,0,48,24,12,6,12,24,48,0,126,0,0,0,0,0,0,0,12,24,48,96,48,24,12,0,126,0,0,0,0
  293.     DATA 0,0,14,27,27,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,216,216,216,112,0,0,0,0
  294.     DATA 0,0,0,0,24,24,0,126,0,24,24,0,0,0,0,0,0,0,0,0,0,118,220,0,118,220,0,0,0,0,0,0
  295.     DATA 0,56,108,108,56,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0
  296.     DATA 0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,15,12,12,12,12,12,236,108,108,60,28,0,0,0,0
  297.     DATA 0,216,108,108,108,108,108,0,0,0,0,0,0,0,0,0,0,112,216,48,96,200,248,0,0,0,0,0,0,0,0,0
  298.     DATA 0,0,0,0,124,124,124,124,124,124,124,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  300.  
  301.  

and as you can see I REMmed CIRCLE and PAINT raws and add a LINE code
Code: QB64: [Select]
  1.  LINE (x * t2 + t1, y * t2 + t1)-(x * t2 + t1 + LEDs.size, y * t2 + t1 + LEDs.size), tc, BF

as you can see also Bplus mod goes faster

Code: QB64: [Select]
  1. _TITLE " LED Screen by [banned user], mod by B+, new background colors every loop." '2019-10-25
  3. CONST false = 0
  4. CONST true = NOT false
  5.  
  7.  
  8. TYPE LED_Board
  9.     ' # of horizontal pixels
  10.     hor AS INTEGER
  11.  
  12.     ' # of vertical pixels
  13.     vert AS INTEGER
  14.  
  15.     ' # of text characters
  16.     chars AS INTEGER
  17.  
  18.     ' # of text rows
  19.     rows AS INTEGER
  20.  
  21.     ' Size of the LED pixels
  22.     size AS INTEGER
  24.  
  25. DIM SHARED LEDs AS LED_Board
  26. LEDs.size = 8
  27.  
  28. DIM SHARED bScreen AS LONG
  31.  
  32. DIM SHARED CharFont AS STRING
  33. DIM SHARED DotMatrix(16) AS STRING
  34. DIM SHARED pR, pG, pB, pN, r1, r2, r3 'for plasma numbers
  35. sWidth = 1280
  36. sHeight = 780
  37.  
  38. LEDs.hor = sWidth \ (2 * LEDs.size + 2)
  39. LEDs.vert = sHeight \ (2 * LEDs.size + 2)
  40.  
  41. LEDs.chars = LEDs.hor \ 8
  42. LEDs.rows = LEDs.vert \ 16
  43.  
  44. LoadFont
  45.  
  46. SCREEN _NEWIMAGE(sWidth, sHeight, 32)
  48. resetPlasma
  49. chars = LEDs.chars
  50. row = LEDs.rows \ 2
  51.  
  52. temp = SPACE$(chars) + "Supercalifragilisticexpialidocious "
  53. temp = temp + "Even though the sound of it is something quite atrocious "
  54. temp = temp + "If you say it loud enough, you'll always sound precocious "
  55. temp = temp + "Supercalifragilisticexpialidocious" + SPACE$(chars)
  56.  
  57. length = LEN(temp) - chars + 1
  58. WHILE _KEYDOWN(27) = 0
  59.     scroll = scroll + 1
  60.     IF scroll > length THEN scroll = 1: resetPlasma
  61.     IF INKEY$ = " " THEN resetPlasma
  62.     LINE (0, 0)-(sWidth - 1, sHeight - 1), _RGB(0, 0, 0), BF
  63.     PrintLED MID$(temp, scroll, chars), row, 0
  64.     _DISPLAY
  65.     _LIMIT 10
  67.  
  69.  
  70. FUNCTION BIN$ (Value)
  71.     WHILE Value <> 0
  72.         T$ = RIGHT$(STR$(Value MOD 2), 1) + T$: Value = Value \ 2
  73.     WEND
  74.  
  75.     BIN = RIGHT$(STRING$(8, 48) + T$, 8)
  77.  
  78. FUNCTION Font$ (Value)
  79.     DIM Tag AS STRING
  80.     DIM Temp AS STRING
  81.  
  82.     Tag = MID$(CharFont, 16 * Value + 1, 16)
  83.  
  84.     Temp = ""
  85.     FOR i = 1 TO 16
  86.         Temp = Temp + RIGHT$("0000000" + BIN(ASC(MID$(Tag, i, 1))), 8)
  87.     NEXT
  88.  
  89.     Font = Temp
  91.  
  92. SUB LoadText (Message AS STRING, flag AS INTEGER)
  93.     DIM Text AS STRING
  94.     DIM Blank AS STRING
  95.  
  96.     ' Set flag when scrolling the message
  97.  
  98.     Blank = ""
  99.     IF flag THEN
  100.         Blank = STRING$(LEDs.hor, 48)
  101.     END IF
  102.  
  103.     FOR v = 1 TO 16
  104.         DotMatrix(v) = Blank
  105.     NEXT
  106.  
  107.     Text = Message + " "
  108.     FOR char = 1 TO LEN(Text)
  109.         a = ASC(MID$(Text, char, 1))
  110.  
  111.         FOR v = 0 TO 15
  112.             DotMatrix(v + 1) = DotMatrix(v + 1) + MID$(Font(a), 8 * v + 1, 8)
  113.         NEXT
  114.     NEXT
  115.  
  116.     IF flag THEN
  117.         FOR v = 1 TO 16
  118.             DotMatrix(v) = DotMatrix(v) + Blank
  119.         NEXT
  120.     END IF
  122.  
  123. SUB PrintLED (Message AS STRING, Row AS INTEGER, flag AS INTEGER)
  124.     DIM temp AS STRING
  125.  
  126.     ' Set flag to center the message
  127.  
  128.     IF flag THEN
  129.         t = LEDs.chars \ 2 - LEN(Message) \ 2
  130.  
  131.         LoadText SPACE$(t) + Message, 0
  132.     ELSE
  133.         LoadText Message, 0
  134.     END IF
  135.  
  136.     tx = 0: ty = 16 * Row
  137.  
  138.     Length = LEN(DotMatrix(1))
  139.     IF Length > LEDs.hor THEN
  140.         Length = LEDs.hor
  141.     END IF
  142.  
  143.     FOR v = 0 TO 15
  144.         temp = MID$(DotMatrix(v + 1), char, Length)
  145.  
  146.         FOR h = 0 TO LEN(temp)
  147.             FlipLED tx + h, ty + v, 1, VAL(MID$(temp, h + 1, 1))
  148.  
  149.             ' Use this to speed up the program:
  150.             'IF VAL(MID$(temp, h + 1, 1)) THEN FlipLED tx + h, ty + v, 1, 1
  151.         NEXT
  152.     NEXT
  154.  
  155. SUB FlipLED (x, y, colour, state)
  156.     t1 = LEDs.size
  157.     t2 = 2 * t1 + 2
  158.  
  159.     ' State is On/Off
  160.     IF state THEN tc~& = &HFFFFFFFF ELSE tc~& = changePlasma
  161.     'tc = 8 * state + colour
  162.     LINE (x * t2 + t1, y * t2 + t1)-(x * t2 + t1 + LEDs.size, y * t2 + t1 + LEDs.size), tc~&, BF
  163.     '    CIRCLE (x * t2 + t1, y * t2 + t1), LEDs.size, tc~&
  164.     '   PAINT (x * t2 + t1, y * t2 + t1), tc~&, tc~&
  166.  
  167. SUB LoadFont
  168.     FOR i = 1 TO 4096
  169.         READ charVal
  170.         CharFont = CharFont + CHR$(charVal)
  171.     NEXT
  172.     EXIT SUB
  173.  
  174.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,126,129,165,129,129,189,153,129,129,126,0,0,0,0
  175.     DATA 0,0,126,255,219,255,255,195,231,255,255,126,0,0,0,0,0,0,0,0,108,254,254,254,254,124,56,16,0,0,0,0
  176.     DATA 0,0,0,0,16,56,124,254,124,56,16,0,0,0,0,0,0,0,0,24,60,60,231,231,231,24,24,60,0,0,0,0
  177.     DATA 0,0,0,24,60,126,255,255,126,24,24,60,0,0,0,0,0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0
  178.     DATA 255,255,255,255,255,255,231,195,195,231,255,255,255,255,255,255,0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0
  179.     DATA 255,255,255,255,255,195,153,189,189,153,195,255,255,255,255,255,0,0,30,14,26,50,120,204,204,204,204,120,0,0,0,0
  180.     DATA 0,0,60,102,102,102,102,60,24,126,24,24,0,0,0,0,0,0,63,51,63,48,48,48,48,112,240,224,0,0,0,0
  181.     DATA 0,0,127,99,127,99,99,99,99,103,231,230,192,0,0,0,0,0,0,24,24,219,60,231,60,219,24,24,0,0,0,0
  182.     DATA 0,128,192,224,240,248,254,248,240,224,192,128,0,0,0,0,0,2,6,14,30,62,254,62,30,14,6,2,0,0,0,0
  183.     DATA 0,0,24,60,126,24,24,24,126,60,24,0,0,0,0,0,0,0,102,102,102,102,102,102,102,0,102,102,0,0,0,0
  184.     DATA 0,0,127,219,219,219,123,27,27,27,27,27,0,0,0,0,0,124,198,96,56,108,198,198,108,56,12,198,124,0,0,0
  185.     DATA 0,0,0,0,0,0,0,0,254,254,254,254,0,0,0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0,0,0
  186.     DATA 0,0,24,60,126,24,24,24,24,24,24,24,0,0,0,0,0,0,24,24,24,24,24,24,24,126,60,24,0,0,0,0
  187.     DATA 0,0,0,0,0,24,12,254,12,24,0,0,0,0,0,0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0,0
  188.     DATA 0,0,0,0,0,0,192,192,192,254,0,0,0,0,0,0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0,0
  189.     DATA 0,0,0,0,16,56,56,124,124,254,254,0,0,0,0,0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0,0
  190.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,60,60,60,24,24,24,0,24,24,0,0,0,0
  191.     DATA 0,102,102,102,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,108,108,254,108,108,108,254,108,108,0,0,0,0
  192.     DATA 24,24,124,198,194,192,124,6,6,134,198,124,24,24,0,0,0,0,0,0,194,198,12,24,48,96,198,134,0,0,0,0
  193.     DATA 0,0,56,108,108,56,118,220,204,204,204,118,0,0,0,0,0,48,48,48,96,0,0,0,0,0,0,0,0,0,0,0
  194.     DATA 0,0,12,24,48,48,48,48,48,48,24,12,0,0,0,0,0,0,48,24,12,12,12,12,12,12,24,48,0,0,0,0
  195.     DATA 0,0,0,0,0,102,60,255,60,102,0,0,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,0,0,0,0
  196.     DATA 0,0,0,0,0,0,0,0,0,24,24,24,48,0,0,0,0,0,0,0,0,0,0,254,0,0,0,0,0,0,0,0
  197.     DATA 0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,0,2,6,12,24,48,96,192,128,0,0,0,0
  198.     DATA 0,0,60,102,195,195,219,219,195,195,102,60,0,0,0,0,0,0,24,56,120,24,24,24,24,24,24,126,0,0,0,0
  199.     DATA 0,0,124,198,6,12,24,48,96,192,198,254,0,0,0,0,0,0,124,198,6,6,60,6,6,6,198,124,0,0,0,0
  200.     DATA 0,0,12,28,60,108,204,254,12,12,12,30,0,0,0,0,0,0,254,192,192,192,252,6,6,6,198,124,0,0,0,0
  201.     DATA 0,0,56,96,192,192,252,198,198,198,198,124,0,0,0,0,0,0,254,198,6,6,12,24,48,48,48,48,0,0,0,0
  202.     DATA 0,0,124,198,198,198,124,198,198,198,198,124,0,0,0,0,0,0,124,198,198,198,126,6,6,6,12,120,0,0,0,0
  203.     DATA 0,0,0,0,24,24,0,0,0,24,24,0,0,0,0,0,0,0,0,0,24,24,0,0,0,24,24,48,0,0,0,0
  204.     DATA 0,0,0,6,12,24,48,96,48,24,12,6,0,0,0,0,0,0,0,0,0,126,0,0,126,0,0,0,0,0,0,0
  205.     DATA 0,0,0,96,48,24,12,6,12,24,48,96,0,0,0,0,0,0,124,198,198,12,24,24,24,0,24,24,0,0,0,0
  206.     DATA 0,0,0,124,198,198,222,222,222,220,192,124,0,0,0,0,0,0,16,56,108,198,198,254,198,198,198,198,0,0,0,0
  207.     DATA 0,0,252,102,102,102,124,102,102,102,102,252,0,0,0,0,0,0,60,102,194,192,192,192,192,194,102,60,0,0,0,0
  208.     DATA 0,0,248,108,102,102,102,102,102,102,108,248,0,0,0,0,0,0,254,102,98,104,120,104,96,98,102,254,0,0,0,0
  209.     DATA 0,0,254,102,98,104,120,104,96,96,96,240,0,0,0,0,0,0,60,102,194,192,192,222,198,198,102,58,0,0,0,0
  210.     DATA 0,0,198,198,198,198,254,198,198,198,198,198,0,0,0,0,0,0,60,24,24,24,24,24,24,24,24,60,0,0,0,0
  211.     DATA 0,0,30,12,12,12,12,12,204,204,204,120,0,0,0,0,0,0,230,102,102,108,120,120,108,102,102,230,0,0,0,0
  212.     DATA 0,0,240,96,96,96,96,96,96,98,102,254,0,0,0,0,0,0,195,231,255,255,219,195,195,195,195,195,0,0,0,0
  213.     DATA 0,0,198,230,246,254,222,206,198,198,198,198,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,124,0,0,0,0
  214.     DATA 0,0,252,102,102,102,124,96,96,96,96,240,0,0,0,0,0,0,124,198,198,198,198,198,198,214,222,124,12,14,0,0
  215.     DATA 0,0,252,102,102,102,124,108,102,102,102,230,0,0,0,0,0,0,124,198,198,96,56,12,6,198,198,124,0,0,0,0
  216.     DATA 0,0,255,219,153,24,24,24,24,24,24,60,0,0,0,0,0,0,198,198,198,198,198,198,198,198,198,124,0,0,0,0
  217.     DATA 0,0,195,195,195,195,195,195,195,102,60,24,0,0,0,0,0,0,195,195,195,195,195,219,219,255,102,102,0,0,0,0
  218.     DATA 0,0,195,195,102,60,24,24,60,102,195,195,0,0,0,0,0,0,195,195,195,102,60,24,24,24,24,60,0,0,0,0
  219.     DATA 0,0,255,195,134,12,24,48,96,193,195,255,0,0,0,0,0,0,60,48,48,48,48,48,48,48,48,60,0,0,0,0
  220.     DATA 0,0,0,128,192,224,112,56,28,14,6,2,0,0,0,0,0,0,60,12,12,12,12,12,12,12,12,60,0,0,0,0
  221.     DATA 16,56,108,198,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0
  222.     DATA 48,48,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,120,12,124,204,204,204,118,0,0,0,0
  223.     DATA 0,0,224,96,96,120,108,102,102,102,102,124,0,0,0,0,0,0,0,0,0,124,198,192,192,192,198,124,0,0,0,0
  224.     DATA 0,0,28,12,12,60,108,204,204,204,204,118,0,0,0,0,0,0,0,0,0,124,198,254,192,192,198,124,0,0,0,0
  225.     DATA 0,0,56,108,100,96,240,96,96,96,96,240,0,0,0,0,0,0,0,0,0,118,204,204,204,204,204,124,12,204,120,0
  226.     DATA 0,0,224,96,96,108,118,102,102,102,102,230,0,0,0,0,0,0,24,24,0,56,24,24,24,24,24,60,0,0,0,0
  227.     DATA 0,0,6,6,0,14,6,6,6,6,6,6,102,102,60,0,0,0,224,96,96,102,108,120,120,108,102,230,0,0,0,0
  228.     DATA 0,0,56,24,24,24,24,24,24,24,24,60,0,0,0,0,0,0,0,0,0,230,255,219,219,219,219,219,0,0,0,0
  229.     DATA 0,0,0,0,0,220,102,102,102,102,102,102,0,0,0,0,0,0,0,0,0,124,198,198,198,198,198,124,0,0,0,0
  230.     DATA 0,0,0,0,0,220,102,102,102,102,102,124,96,96,240,0,0,0,0,0,0,118,204,204,204,204,204,124,12,12,30,0
  231.     DATA 0,0,0,0,0,220,118,102,96,96,96,240,0,0,0,0,0,0,0,0,0,124,198,96,56,12,198,124,0,0,0,0
  232.     DATA 0,0,16,48,48,252,48,48,48,48,54,28,0,0,0,0,0,0,0,0,0,204,204,204,204,204,204,118,0,0,0,0
  233.     DATA 0,0,0,0,0,195,195,195,195,102,60,24,0,0,0,0,0,0,0,0,0,195,195,195,219,219,255,102,0,0,0,0
  234.     DATA 0,0,0,0,0,195,102,60,24,60,102,195,0,0,0,0,0,0,0,0,0,198,198,198,198,198,198,126,6,12,248,0
  235.     DATA 0,0,0,0,0,254,204,24,48,96,198,254,0,0,0,0,0,0,14,24,24,24,112,24,24,24,24,14,0,0,0,0
  236.     DATA 0,0,24,24,24,24,0,24,24,24,24,24,0,0,0,0,0,0,112,24,24,24,14,24,24,24,24,112,0,0,0,0
  237.     DATA 0,0,118,220,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,56,108,198,198,198,254,0,0,0,0,0
  238.     DATA 0,0,60,102,194,192,192,192,194,102,60,12,6,124,0,0,0,0,204,0,0,204,204,204,204,204,204,118,0,0,0,0
  239.     DATA 0,12,24,48,0,124,198,254,192,192,198,124,0,0,0,0,0,16,56,108,0,120,12,124,204,204,204,118,0,0,0,0
  240.     DATA 0,0,204,0,0,120,12,124,204,204,204,118,0,0,0,0,0,96,48,24,0,120,12,124,204,204,204,118,0,0,0,0
  241.     DATA 0,56,108,56,0,120,12,124,204,204,204,118,0,0,0,0,0,0,0,0,60,102,96,96,102,60,12,6,60,0,0,0
  242.     DATA 0,16,56,108,0,124,198,254,192,192,198,124,0,0,0,0,0,0,198,0,0,124,198,254,192,192,198,124,0,0,0,0
  243.     DATA 0,96,48,24,0,124,198,254,192,192,198,124,0,0,0,0,0,0,102,0,0,56,24,24,24,24,24,60,0,0,0,0
  244.     DATA 0,24,60,102,0,56,24,24,24,24,24,60,0,0,0,0,0,96,48,24,0,56,24,24,24,24,24,60,0,0,0,0
  245.     DATA 0,198,0,16,56,108,198,198,254,198,198,198,0,0,0,0,56,108,56,0,56,108,198,198,254,198,198,198,0,0,0,0
  246.     DATA 24,48,96,0,254,102,96,124,96,96,102,254,0,0,0,0,0,0,0,0,0,110,59,27,126,216,220,119,0,0,0,0
  247.     DATA 0,0,62,108,204,204,254,204,204,204,204,206,0,0,0,0,0,16,56,108,0,124,198,198,198,198,198,124,0,0,0,0
  248.     DATA 0,0,198,0,0,124,198,198,198,198,198,124,0,0,0,0,0,96,48,24,0,124,198,198,198,198,198,124,0,0,0,0
  249.     DATA 0,48,120,204,0,204,204,204,204,204,204,118,0,0,0,0,0,96,48,24,0,204,204,204,204,204,204,118,0,0,0,0
  250.     DATA 0,0,198,0,0,198,198,198,198,198,198,126,6,12,120,0,0,198,0,124,198,198,198,198,198,198,198,124,0,0,0,0
  251.     DATA 0,198,0,198,198,198,198,198,198,198,198,124,0,0,0,0,0,24,24,126,195,192,192,192,195,126,24,24,0,0,0,0
  252.     DATA 0,56,108,100,96,240,96,96,96,96,230,252,0,0,0,0,0,0,195,102,60,24,255,24,255,24,24,24,0,0,0,0
  253.     DATA 0,252,102,102,124,98,102,111,102,102,102,243,0,0,0,0,0,14,27,24,24,24,126,24,24,24,24,24,216,112,0,0
  254.     DATA 0,24,48,96,0,120,12,124,204,204,204,118,0,0,0,0,0,12,24,48,0,56,24,24,24,24,24,60,0,0,0,0
  255.     DATA 0,24,48,96,0,124,198,198,198,198,198,124,0,0,0,0,0,24,48,96,0,204,204,204,204,204,204,118,0,0,0,0
  256.     DATA 0,0,118,220,0,220,102,102,102,102,102,102,0,0,0,0,118,220,0,198,230,246,254,222,206,198,198,198,0,0,0,0
  257.     DATA 0,60,108,108,62,0,126,0,0,0,0,0,0,0,0,0,0,56,108,108,56,0,124,0,0,0,0,0,0,0,0,0
  258.     DATA 0,0,48,48,0,48,48,96,192,198,198,124,0,0,0,0,0,0,0,0,0,0,254,192,192,192,192,0,0,0,0,0
  259.     DATA 0,0,0,0,0,0,254,6,6,6,6,0,0,0,0,0,0,192,192,194,198,204,24,48,96,206,155,6,12,31,0,0
  260.     DATA 0,192,192,194,198,204,24,48,102,206,150,62,6,6,0,0,0,0,24,24,0,24,24,24,60,60,60,24,0,0,0,0
  261.     DATA 0,0,0,0,0,54,108,216,108,54,0,0,0,0,0,0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0,0
  262.     DATA 17,68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,85,170,85,170,85,170,85,170,85,170,85,170,85,170,85,170
  263.     DATA 221,119,221,119,221,119,221,119,221,119,221,119,221,119,221,119,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  264.     DATA 24,24,24,24,24,24,24,248,24,24,24,24,24,24,24,24,24,24,24,24,24,248,24,248,24,24,24,24,24,24,24,24
  265.     DATA 54,54,54,54,54,54,54,246,54,54,54,54,54,54,54,54,0,0,0,0,0,0,0,254,54,54,54,54,54,54,54,54
  266.     DATA 0,0,0,0,0,248,24,248,24,24,24,24,24,24,24,24,54,54,54,54,54,246,6,246,54,54,54,54,54,54,54,54
  267.     DATA 54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,0,0,0,0,0,254,6,246,54,54,54,54,54,54,54,54
  268.     DATA 54,54,54,54,54,246,6,254,0,0,0,0,0,0,0,0,54,54,54,54,54,54,54,254,0,0,0,0,0,0,0,0
  269.     DATA 24,24,24,24,24,248,24,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24,24
  270.     DATA 24,24,24,24,24,24,24,31,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0,0
  271.     DATA 0,0,0,0,0,0,0,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24,24
  272.     DATA 0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24,24
  273.     DATA 24,24,24,24,24,31,24,31,24,24,24,24,24,24,24,24,54,54,54,54,54,54,54,55,54,54,54,54,54,54,54,54
  274.     DATA 54,54,54,54,54,55,48,63,0,0,0,0,0,0,0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54,54,54
  275.     DATA 54,54,54,54,54,247,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54,54,54
  276.     DATA 54,54,54,54,54,55,48,55,54,54,54,54,54,54,54,54,0,0,0,0,0,255,0,255,0,0,0,0,0,0,0,0
  277.     DATA 54,54,54,54,54,247,0,247,54,54,54,54,54,54,54,54,24,24,24,24,24,255,0,255,0,0,0,0,0,0,0,0
  278.     DATA 54,54,54,54,54,54,54,255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,255,24,24,24,24,24,24,24,24
  279.     DATA 0,0,0,0,0,0,0,255,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,63,0,0,0,0,0,0,0,0
  280.     DATA 24,24,24,24,24,31,24,31,0,0,0,0,0,0,0,0,0,0,0,0,0,31,24,31,24,24,24,24,24,24,24,24
  281.     DATA 0,0,0,0,0,0,0,63,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,255,54,54,54,54,54,54,54,54
  282.     DATA 24,24,24,24,24,255,24,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0,0
  283.     DATA 0,0,0,0,0,0,0,31,24,24,24,24,24,24,24,24,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  284.     DATA 0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240
  285.     DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0
  286.     DATA 0,0,0,0,0,118,220,216,216,216,220,118,0,0,0,0,0,0,120,204,204,204,216,204,198,198,198,204,0,0,0,0
  287.     DATA 0,0,254,198,198,192,192,192,192,192,192,192,0,0,0,0,0,0,0,0,254,108,108,108,108,108,108,108,0,0,0,0
  288.     DATA 0,0,0,254,198,96,48,24,48,96,198,254,0,0,0,0,0,0,0,0,0,126,216,216,216,216,216,112,0,0,0,0
  289.     DATA 0,0,0,0,102,102,102,102,102,124,96,96,192,0,0,0,0,0,0,0,118,220,24,24,24,24,24,24,0,0,0,0
  290.     DATA 0,0,0,126,24,60,102,102,102,60,24,126,0,0,0,0,0,0,0,56,108,198,198,254,198,198,108,56,0,0,0,0
  291.     DATA 0,0,56,108,198,198,198,108,108,108,108,238,0,0,0,0,0,0,30,48,24,12,62,102,102,102,102,60,0,0,0,0
  292.     DATA 0,0,0,0,0,126,219,219,219,126,0,0,0,0,0,0,0,0,0,3,6,126,219,219,243,126,96,192,0,0,0,0
  293.     DATA 0,0,28,48,96,96,124,96,96,96,48,28,0,0,0,0,0,0,0,124,198,198,198,198,198,198,198,198,0,0,0,0
  294.     DATA 0,0,0,0,254,0,0,254,0,0,254,0,0,0,0,0,0,0,0,0,24,24,126,24,24,0,0,255,0,0,0,0
  295.     DATA 0,0,0,48,24,12,6,12,24,48,0,126,0,0,0,0,0,0,0,12,24,48,96,48,24,12,0,126,0,0,0,0
  296.     DATA 0,0,14,27,27,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,216,216,216,112,0,0,0,0
  297.     DATA 0,0,0,0,24,24,0,126,0,24,24,0,0,0,0,0,0,0,0,0,0,118,220,0,118,220,0,0,0,0,0,0
  298.     DATA 0,56,108,108,56,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0
  299.     DATA 0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,15,12,12,12,12,12,236,108,108,60,28,0,0,0,0
  300.     DATA 0,216,108,108,108,108,108,0,0,0,0,0,0,0,0,0,0,112,216,48,96,200,248,0,0,0,0,0,0,0,0,0
  301.     DATA 0,0,0,0,124,124,124,124,124,124,124,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  303.  
  304. FUNCTION changePlasma~& ()
  305.     pN = pN + .5 'dim shared cN as _Integer64, pR as integer, pG as integer, pB as integer
  306.     changePlasma~& = _RGB(r1 * (32 + 32 * SIN(pR * pN)), r2 * (32 + 32 * SIN(pG * pN)), r3 * (32 + 32 * SIN(pB * pN)))
  308.  
  309. SUB resetPlasma ()
  310.     IF RND < .5 THEN r1 = 0 ELSE r1 = 1
  311.     IF RND < .5 THEN r2 = 0 ELSE r2 = 1
  312.     IF RND < .5 THEN r3 = 0 ELSE r3 = 1
  313.     IF r1 = 0 AND r2 = 0 AND r3 = 0 THEN r1 = 1
  314.     pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2: pN = 1
  316.  

Thanks to read and try
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Another LED Scroller
« Reply #14 on: October 27, 2019, 11:11:33 pm »
Looks great!
Logged
Pages: [1]   Go Up
« previous next »