Scrolling LED text

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

mike_g	Created : 05 March 2007 Edited : 05 March 2007 Language : Blitz Scrolling LED text
Heres some code for scrolling LED-like text I just finished. It shouldent be too hard to add to programs. Theres still a bit of tweaking I want to do to it but other than that its pretty much finished Graphics 640, 480, 32, 2 ;--------------------------------------; ;******** NEEDED IN PROG ********; ;--------------------------------------; Dim letter_data(236, 8) INIT_LETTER_DATA() Type led Field x, y, w, h, dir, spd, image, spawn, x_start End Type ;--------------------------------------; ;******** DEMO LOOP ***********; ;--------------------------------------; CREATE_LED(0, 0, 1, 0, 150, 0, 6, 0, "Some stuff ") CREATE_LED(65, 0, 2, 100, 0, 150, 10, 0, "hello heres an example of a scrolling text function") CREATE_LED(160, 1, 5, 120, 20, 0, 6, 1, "0010 1000 0110 1111 0101 1100 ") CREATE_LED(200, 1, 2, 150, 20, 0, 10, 1, "daer ot gnisufnoc eb dluow sihT Confusing ") CREATE_LED(300, 0, 8, 0, 150, 0, 4, 1, "read me ") CREATE_LED(380, 0, 3, 150, 150, 250, 6, 1, "Heres a mess ") CREATE_LED(360, 0, 3, 100, 0, 100, 10, 0, "hello heres an example of a scrolling text function ") While Not KeyHit(1) Cls DRAW_LEDS() Flip Wend ;--------------------------------------; ;******** FUNCTIONS ************; ;--------------------------------------; Function DRAW_LEDS() For l.led = Each led DrawImage l\image, l\x, l\y If l\dir = 0 l\x=l\x-l\spd ;loop the text If l\x+l\w < GraphicsWidth() And l\spawn = 0 l\spawn = 1 l2.led = New led l2\x = l\x_start: l2\y = l\y l2\w = l\w: l2\h = l\h l2\dir = l\dir: l2\spd = l\spd l2\image = l\image l2\x_start = l\x_start ;clean up text thats scrolled off screen Else If l\x+l\w < 0 Delete l.led EndIf Else l\x=l\x+l\spd ;loop the text If l\x > 0 And l\spawn = 0 l\spawn = 1 l2.led = New led l2\x = l\x_start: l2\y = l\y l2\w = l\w: l2\h = l\h l2\dir = l\dir: l2\spd = l\spd l2\image = l\image l2\x_start = l\x_start ;clean up text thats scrolled off screen Else If l\x > GraphicsWidth() Delete l.led EndIf EndIf Next End Function ;-----------------CREATE LED PARAMETERS----------------------; ;x_pos = x position for image to start at ;y_pos = y position for image to start at ;dir = direction led moves: 0 = left, 1 = right ;spd = speed image moves ;r, g , b = colour elements ;dot_size = the size of the dots ;dot_type = dot shape: 0 = round, 1 = square ;led_string = The text you want to display ;------------------------------------------------------------; Function CREATE_LED(y_pos, dir, spd, r, g, b, dot_size, dot_type, led_string$) length = Len(led_string$) l.led = New led l\image = CreateImage(8dot_sizelength, 8dot_size) l\y = y_pos l\w = ImageWidth(l\image) l\h = ImageHeight(l\image) l\dir = dir: l\spd = spd If l\dir = 0 l\x = GraphicsWidth() l\x_start = l\x Else l\x = -l\w l\x_start = l\x EndIf SetBuffer ImageBuffer(l\image) For c = 1 To length char$ = Mid(led_string$, c, 1) ascii = Asc(char$) If ascii < 58 And ascii > 47 ;Is Numeric loc = ((Asc(char$)-48)6)+1 Else If ascii > 64 And ascii < 91 ;Alpha Upper Case loc = ((Asc(char$)-55)6)+1 Else If ascii > 96 And ascii < 123 ;Lower case gets converted to upper loc = ((Asc(char$)-87)6)+1 Else If ascii = 32 ;Is space space = 1 Else ;Is metacharacter EndIf If space = 0 For x = 0 To 5 For y = 1 To 8 If letter_data(loc+x, y) = 1 Color r, g, b If dot_type = 0 Oval ((c-1) dot_size8)+((x)dot_size), ((y-1)dot_size), dot_size-2,dot_size-2, 1 Else Rect ((c-1) dot_size8)+((x)dot_size), ((y-1)dot_size), dot_size-2,dot_size-2, 1 EndIf If r-40 > 0 r2=r-80 Else r=0 EndIf If g-40 > 0 g2=g-80 Else g2=0 EndIf If b-40 > 0 b2=b-80 Else b=0 EndIf Color r2, g2, b2 If dot_type = 0 Oval ((c-1) dot_size8)+((x)dot_size), ((y-1)dot_size), dot_size-2,dot_size-2, 0 Else Rect ((c-1) dot_size8)+((x)dot_size), ((y-1)*dot_size), dot_size-2,dot_size-2, 0 EndIf EndIf Next Next EndIf space = 0 Next SetBuffer BackBuffer() End Function ;--------------------------------------; Function INIT_LETTER_DATA() ;0 to 9 For y = 1 To 8 For x = 1 To 60 Read letter_data(x, y) Next Next ;A to J For y = 1 To 8 For x = 61 To 120 Read letter_data(x, y) Next Next ;K to T For y = 1 To 8 For x = 121 To 180 Read letter_data(x, y) Next Next ;U to Z For y = 1 To 8 For x = 181 To 216 Read letter_data(x, y) Next Next End Function ;--------------------------------------; ;0 to 9 Data 0,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 1,0,0,1,0,0, 1,1,1,1,1,1, 0,1,1,1,1,0, 1,1,1,1,1,1, 0,1,1,1,1,0, 0,1,1,1,1,0 Data 1,0,0,0,1,1, 0,0,0,1,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 1,0,0,1,0,1, 0,0,1,1,0,0, 0,0,0,0,0,1, 0,0,0,0,0,1, 1,0,0,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 1,0,0,1,0,1, 0,0,0,1,0,0, 0,0,0,0,0,1, 0,0,0,0,0,1, 1,0,0,1,0,0, 0,1,1,1,1,0, 1,0,0,0,0,0, 0,0,0,0,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 1,0,1,0,0,1, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,0,1,1,1,0, 1,1,1,1,1,1, 0,0,0,0,0,1, 1,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,1,1,1,1,1 Data 1,0,1,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,0, 0,0,0,0,0,1, 0,0,0,1,0,0, 0,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,1, 0,0,0,0,0,1 Data 1,1,0,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,0,1,0,0, 0,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 0,1,1,1,1,0, 0,1,1,1,1,0, 1,1,1,1,1,1, 0,1,1,1,1,0, 0,0,0,1,0,0, 1,1,1,1,1,0, 0,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,1,1,1,1,0 ;A to J Data 0,1,1,1,1,0, 0,1,1,1,0,0, 0,0,1,1,0,0, 1,1,1,1,0,0, 0,1,1,1,1,1, 0,1,1,1,1,1, 0,1,1,1,1,0, 1,0,0,0,0,1, 0,1,1,1,0,0, 1,1,1,1,1,1 Data 1,0,0,0,0,1, 1,0,0,0,1,0, 0,1,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,1,1,1,1,1, 1,1,1,1,1,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,1,1,1,1,0, 1,1,1,1,1,0, 1,0,1,1,1,0, 1,1,1,1,1,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,0,0,0, 1,0,0,1,0,0 Data 1,0,0,0,0,1, 1,1,1,1,1,1, 0,0,1,1,0,0, 1,1,1,1,0,0, 0,1,1,1,1,1, 1,0,0,0,0,0, 0,1,1,1,1,0, 1,0,0,0,0,1, 0,1,1,1,0,0, 0,1,1,0,0,0 ;K to T Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,0,0,0,0,1, 1,1,0,0,0,1, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 1,1,1,1,1,1 Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,1,0,0,1,1, 1,1,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,1,0,0 Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,1,1,1,1,1, 1,0,1,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,0,1,1,0,0 Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,0,1,1,0,1, 1,0,1,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,0,1,1,0,0 Data 1,1,1,1,0,0, 0,1,0,0,0,0, 1,0,0,0,0,1, 1,0,0,1,0,1, 1,0,0,0,0,1, 1,1,1,1,1,0, 1,0,0,1,0,1, 1,1,1,1,1,0, 0,1,1,1,1,0, 0,0,1,1,0,0 Data 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,1,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,1,1,1,1,0, 1,0,0,0,0,1, 0,0,0,0,0,1, 0,0,1,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,1,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,0,0,1,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,1,0,0 Data 1,0,0,0,0,1, 1,1,1,1,1,1, 1,0,0,0,0,1, 1,0,0,0,1,1, 0,1,1,1,1,0, 1,0,0,0,0,0, 0,0,0,0,1,1, 1,0,0,0,0,1, 0,1,1,1,1,0, 0,0,1,1,0,0 ;U to Z Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,1,1,1,1,1 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,0,0,1 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,0,0,0,1,0 Data 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,0,1,1,0,0, 0,1,1,1,1,1, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,0,1,1,0,0, 0,0,0,0,0,1, 0,0,1,0,0,0 Data 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,1,1,0,1, 0,1,0,0,1,0, 0,0,0,0,0,1, 0,1,0,0,0,0 Data 1,0,0,0,0,1, 0,0,1,1,0,0, 0,1,1,1,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0 Data 0,1,1,1,1,0, 0,0,1,1,0,0, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,1,1,1,1,0, 1,1,1,1,1,1 --v \|edit\| Oh yeah and I forgot to mention that it cant deal with meta-characters yet. If you try and use them in the text the prog will crash. \|edit\|

Comments
Tuesday, 06 March 2007, 00:00
shroom_monk	Wow, Nice!
Tuesday, 06 March 2007, 05:47
mike_g	Glad you like it
Wednesday, 07 March 2007, 01:07
Agent	Nice, but not exactly what I was expecting. I thought it would be an LED matrix which simulates the scrolling effect by switching individual LEDs on and off, just like the actual hardware displays do. I might have a go at programming it, just to show what I mean.
Wednesday, 07 March 2007, 02:26
mike_g	Cool, it would be good to see what you come up with Yeah my version doesent really simulate LED displays, it just looks a bit like one. All the graphics in my version get pre-drawn to an image, because its faster than drawing stuff each loop. The downside to this is that there cant be any animation, or colour changing. Which you may have expected would have been possible. I'm probably going to re-code this as the image can become very big which seems to cause problems on some computers.
Wednesday, 07 March 2007, 09:45
garand	Graphics 640, 480, 32, 2 ;--------------------------------------; ;******** NEEDED IN PROG ********; ;--------------------------------------; Dim letter_data(236, 8) INIT_LETTER_DATA() Type led Field x, y, w, h, dir, spd, image, spawn, x_start End Type ;--------------------------------------; ;******** DEMO LOOP ***********; ;--------------------------------------; CREATE_LED(200, 0, 2, 150, 20, 0, 10, 0, "The quick brown fox jumps over the lazy dog.") While Not KeyHit(1) Cls DRAW_LEDS() Flip Wend ;--------------------------------------; ;******** FUNCTIONS ************; ;--------------------------------------; Function DRAW_LEDS() For l.led = Each led DrawImage l\image, l\x, l\y If l\dir = 0 l\x=l\x-l\spd ;loop the text If l\x+l\w < GraphicsWidth() And l\spawn = 0 l\spawn = 1 l2.led = New led l2\x = l\x_start: l2\y = l\y l2\w = l\w: l2\h = l\h l2\dir = l\dir: l2\spd = l\spd l2\image = l\image l2\x_start = l\x_start ;clean up text thats scrolled off screen Else If l\x+l\w < 0 Delete l.led EndIf Else l\x=l\x+l\spd ;loop the text If l\x > 0 And l\spawn = 0 l\spawn = 1 l2.led = New led l2\x = l\x_start: l2\y = l\y l2\w = l\w: l2\h = l\h l2\dir = l\dir: l2\spd = l\spd l2\image = l\image l2\x_start = l\x_start ;clean up text thats scrolled off screen Else If l\x > GraphicsWidth() Delete l.led EndIf EndIf Next End Function ;-----------------CREATE LED PARAMETERS----------------------; ;x_pos = x position for image to start at ;y_pos = y position for image to start at ;dir = direction led moves: 0 = left, 1 = right ;spd = speed image moves ;r, g , b = colour elements ;dot_size = the size of the dots ;dot_type = dot shape: 0 = round, 1 = square ;led_string = The text you want to display ;------------------------------------------------------------; Function CREATE_LED(y_pos, dir, spd, r, g, b, dot_size, dot_type, led_string$) length = Len(led_string$) l.led = New led l\image = CreateImage(8dot_sizelength, 8dot_size) l\y = y_pos l\w = ImageWidth(l\image) l\h = ImageHeight(l\image) l\dir = dir: l\spd = spd If l\dir = 0 l\x = GraphicsWidth() l\x_start = l\x Else l\x = -l\w l\x_start = l\x EndIf SetBuffer ImageBuffer(l\image) For c = 1 To length char$ = Mid(led_string$, c, 1) ascii = Asc(char$) If ascii < 58 And ascii > 47 ;Is Numeric loc = ((Asc(char$)-48)6)+1 Else If ascii > 64 And ascii < 91 ;Alpha Upper Case loc = ((Asc(char$)-55)6)+1 Else If ascii > 96 And ascii < 123 ;Lower case gets converted to upper loc = ((Asc(char$)-87)6)+1 Else If ascii = 32 ;Is space space = 1 Else ;Is metacharacter EndIf If space = 0 For x = 0 To 5 For y = 1 To 8 If letter_data(loc+x, y) = 1 Color r, g, b If dot_type = 0 Oval ((c-1) dot_size8)+((x)dot_size), ((y-1)dot_size), dot_size-2,dot_size-2, 1 Else Rect ((c-1) dot_size8)+((x)dot_size), ((y-1)dot_size), dot_size-2,dot_size-2, 1 EndIf If r-40 > 0 r2=r-80 Else r=0 EndIf If g-40 > 0 g2=g-80 Else g2=0 EndIf If b-40 > 0 b2=b-80 Else b=0 EndIf Color r2, g2, b2 If dot_type = 0 Oval ((c-1) dot_size8)+((x)dot_size), ((y-1)dot_size), dot_size-2,dot_size-2, 0 Else Rect ((c-1) dot_size8)+((x)dot_size), ((y-1)*dot_size), dot_size-2,dot_size-2, 0 EndIf EndIf Next Next EndIf space = 0 Next SetBuffer BackBuffer() End Function ;--------------------------------------; Function INIT_LETTER_DATA() ;0 to 9 For y = 1 To 8 For x = 1 To 60 Read letter_data(x, y) Next Next ;A to J For y = 1 To 8 For x = 61 To 120 Read letter_data(x, y) Next Next ;K to T For y = 1 To 8 For x = 121 To 180 Read letter_data(x, y) Next Next ;U to Z For y = 1 To 8 For x = 181 To 216 Read letter_data(x, y) Next Next End Function ;--------------------------------------; ;0 to 9 Data 0,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 1,0,0,1,0,0, 1,1,1,1,1,1, 0,1,1,1,1,0, 1,1,1,1,1,1, 0,1,1,1,1,0, 0,1,1,1,1,0 Data 1,0,0,0,1,1, 0,0,0,1,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 1,0,0,1,0,1, 0,0,1,1,0,0, 0,0,0,0,0,1, 0,0,0,0,0,1, 1,0,0,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 1,0,0,1,0,1, 0,0,0,1,0,0, 0,0,0,0,0,1, 0,0,0,0,0,1, 1,0,0,1,0,0, 0,1,1,1,1,0, 1,0,0,0,0,0, 0,0,0,0,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 1,0,1,0,0,1, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,0,1,1,1,0, 1,1,1,1,1,1, 0,0,0,0,0,1, 1,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,1,1,1,1,1 Data 1,0,1,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,0, 0,0,0,0,0,1, 0,0,0,1,0,0, 0,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,1, 0,0,0,0,0,1 Data 1,1,0,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,0,1,0,0, 0,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,1,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1 Data 0,1,1,1,1,0, 0,1,1,1,1,0, 1,1,1,1,1,1, 0,1,1,1,1,0, 0,0,0,1,0,0, 1,1,1,1,1,0, 0,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,1,0, 0,1,1,1,1,0 ;A to J Data 0,1,1,1,1,0, 1,1,1,1,1,0, 0,0,1,1,0,0, 1,1,1,1,0,0, 0,1,1,1,1,1, 0,1,1,1,1,1, 0,1,1,1,1,0, 1,0,0,0,0,1, 0,1,1,1,0,0, 1,1,1,1,1,1 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,1,1,1,1,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,1,1,1,1,1, 1,1,1,1,1,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,1,1,1,1,0, 1,1,1,1,1,0, 1,0,1,1,1,0, 1,1,1,1,1,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,1,0,0,0, 1,0,0,1,0,0 Data 1,0,0,0,0,1, 1,1,1,1,1,0, 0,0,1,1,0,0, 1,1,1,1,0,0, 0,1,1,1,1,1, 1,0,0,0,0,0, 0,1,1,1,1,0, 1,0,0,0,0,1, 0,1,1,1,0,0, 0,1,1,0,0,0 ;K to T Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,0,0,0,0,1, 1,1,0,0,0,1, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,0, 0,1,1,1,1,1 Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,1,0,0,1,1, 1,1,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,1,0,0 Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,1,1,1,1,1, 1,0,1,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,0,0,1,0,0 Data 1,0,0,0,1,0, 0,1,0,0,0,0, 1,0,1,1,0,1, 1,0,1,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,0,0,1,0,0 Data 1,1,1,1,0,0, 0,1,0,0,0,0, 1,0,0,0,0,1, 1,0,0,1,0,1, 1,0,0,0,0,1, 1,1,1,1,1,0, 1,0,0,1,0,1, 1,1,1,1,1,0, 0,1,1,1,1,0, 0,0,0,1,0,0 Data 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,1,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,1,1,1,1,0, 1,0,0,0,0,1, 0,0,0,0,0,1, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,0,0,0,0,0, 1,0,0,0,0,1, 1,0,0,0,1,1, 1,0,0,0,0,1, 1,0,0,0,0,0, 0,0,0,1,0,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 1,1,1,1,1,1, 1,0,0,0,0,1, 1,0,0,0,1,1, 0,1,1,1,1,0, 1,0,0,0,0,0, 0,0,0,0,1,1, 1,0,0,0,0,1, 0,1,1,1,1,0, 0,0,0,1,0,0 ;U to Z Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,1,1,1,1,1 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,0,0,0,0,1 Data 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,0,0,0,1,0 Data 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,0,1,1,0,0, 0,1,1,1,1,1, 0,0,0,1,0,0 Data 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,0,1,1,0,0, 0,0,0,0,0,1, 0,0,1,0,0,0 Data 1,0,0,0,0,1, 0,1,0,0,1,0, 1,0,1,1,0,1, 0,1,0,0,1,0, 0,0,0,0,0,1, 0,1,0,0,0,0 Data 1,0,0,0,0,1, 0,0,1,1,0,0, 0,1,1,1,1,0, 1,0,0,0,0,1, 1,0,0,0,0,1, 1,0,0,0,0,0 Data 0,1,1,1,1,0, 0,0,1,1,0,0, 0,1,0,0,1,0, 1,0,0,0,0,1, 0,1,1,1,1,0, 1,1,1,1,1,1 --v
Friday, 09 March 2007, 18:48
Agent	mike_g, Just to give an idea of the effect I was talking about.. ; ; Scrolling text LED dot-matrix display ; coded by Agent Smith ; Const SCREEN_WIDTH = 800 Const SCREEN_HEIGHT = 600 Const FONT_WIDTH = 5 Const FONT_HEIGHT = 7 Const DOT_DIAMETER = 20 Const DOT_GAP = 4 Const DOT_SPACING = DOT_DIAMETER + DOT_GAP Const CHAR_SPACING = (FONT_WIDTH + 1) * DOT_SPACING Const BANNER$ = " THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 1234567890 " Dim table(255, FONT_HEIGHT) Graphics SCREEN_WIDTH, SCREEN_HEIGHT, 16, 2 SetBuffer BackBuffer() LoadFont x = DOT_GAP y = 100 start = 1 column = 1 While Not KeyHit(1) Cls DrawString x, y, start, column, BANNER Flip ; Scroll If column > FONT_WIDTH column = 1 If start = Len(BANNER) start = 1 Else start = start + 1 End If Else column = column + 1 End If Wend End Function DrawString(x, y, start, column, s$) DrawCharacter x, y, column, Asc(Mid(s, start, 1)) If column > 1 x = x - DOT_SPACING * (column - 1) End If x = x + CHAR_SPACING For i = start + 1 To Len(s) DrawCharacter x, y, 1, Asc(Mid(s, i, 1)) x = x + CHAR_SPACING Next End Function Function DrawCharacter(x, y, start, character) leftX = x startColumn = 1 shl (FONT_WIDTH - start) For row = 1 To FONT_HEIGHT dots = table(character, row) column = startColumn While column If dots And column Color 255, 0, 0 Else Color 100, 0, 0 End If Oval x, y, DOT_DIAMETER, DOT_DIAMETER x = x + DOT_SPACING column = column Shr 1 Wend Color 100, 0, 0 Oval x, y, DOT_DIAMETER, DOT_DIAMETER x = leftX y = y + DOT_SPACING Next End Function Function LoadFont() Restore fontData For digit = Asc("0") To Asc("9") Read font$ For row = 1 To FONT_HEIGHT table(digit, row) = Asc(Mid(font$, row, 1)) - 95 Next Next For letter = Asc("A") To Asc("Z") Read font$ For row = 1 To FONT_HEIGHT table(letter, row) = Asc(Mid(font$, row, 1)) - 95 Next Next End Function ; ; The 5x7 bit patterns for each character are packed into a string. ; e.g. for '0' (zero): ; ; 01110 = 14, 14 + 95 = 109, 109 = Asc('m') ; 10001 = 17, 17 + 95 = 112, 112 = Asc('p') ; 10011 = 19, 19 + 95 = 114, 114 = Asc('r') ; 10101 = 21, 21 + 95 = 116, 116 = Asc('t') ; 11001 = 25, 25 + 95 = 120, 120 = Asc('x') ; 10001 = 17, 17 + 95 = 112, 112 = Asc('p') ; 01110 = 14, 14 + 95 = 109, 109 = Asc('m') ; .fontData Data "mprtxpm" ; 0 Data "ckccccm" ; 1 Data "mp`acg~" ; 2 Data "mp`e`pm" ; 3 Data "aeiq~aa" ; 4 Data "~oom`pm" ; 5 Data "ego}ppm" ; 6 Data "~``acgo" ; 7 Data "mppmppm" ; 8 Data "mppn`ak" ; 9 Data "cipp~pp" ; A Data "}pp}pp}" ; B Data "mpooopm" ; C Data "}ppppp}" ; D Data "~oo}oo~" ; E Data "~oo}ooo" ; F Data "mpoorpn" ; G Data "ppp~ppp" ; H Data "mcccccm" ; I Data "~aaaqqk" ; J Data "pqswsqp" ; K Data "oooooo~" ; L Data "pztpppp" ; M Data "ppxtrpp" ; N Data "mpppppm" ; O Data "}pp}ooo" ; P Data "mppptrn" ; Q Data "}pp}sqp" ; R Data "mpom`pm" ; S Data "~cccccc" ; T Data "ppppppm" ; U Data "pppppic" ; V Data "pppptti" ; W Data "ppicipp" ; X Data "pppiccc" ; Y Data "~`acgo~" ; Z --v
Saturday, 10 March 2007, 04:39
mike_g	Thats cool. It looks more like a real LED display. Thanks for posting it Out of curiousity, how would I be able to work out this: Data "mprtxpm" ; 0 --v would be displayed as a 0?
Saturday, 10 March 2007, 05:55
Agent	Yeah, sorry about the lack of comments. It's just the 5x7 bit pattern packed into a string: 01110 = 14, 14 + 95 = 109, 109 = Asc('m') 10001 = 17, 17 + 95 = 112, 112 = Asc('p') 10011 = 19, 19 + 95 = 114, 114 = Asc('r') 10101 = 21, 21 + 95 = 116, 116 = Asc('t') 11001 = 25, 25 + 95 = 120, 120 = Asc('x') 10001 = 17, 17 + 95 = 112, 112 = Asc('p') 01110 = 14, 14 + 95 = 109, 109 = Asc('m')
Saturday, 10 March 2007, 09:48
mike_g	Thanks for the explanation, makes sense now. Saves on quite a bit of code too, cheers.
Saturday, 10 March 2007, 10:40
shroom_monk	Yeah, that's a clever way of storing the information, Agent Smith!
Saturday, 10 March 2007, 17:39
Agent	Cheers, shroom_monk I decided to port my little LED program to Cobra.. program { Scrolling text LED dot-matrix display coded in Cobra by Agent Smith } uses Pure2D, KeySet const FontWidth = 5 FontHeight = 7 DotRadius = 10 DotGap = 4 DotSpacing = (DotRadius * 2) + DotGap CharSpacing = (FontWidth + 1) * DotSpacing Banner = ' THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 1234567890 ' var Table : array [255, FontHeight] of integer x, y, Start, Column, OnColor, OffColor { The 5x7 bit patterns for each character are packed into a string. e.g. for '0' (zero): 01110 = 14, 14 + 95 = 109, 109 = Asc('m') 10001 = 17, 17 + 95 = 112, 112 = Asc('p') 10011 = 19, 19 + 95 = 114, 114 = Asc('r') 10101 = 21, 21 + 95 = 116, 116 = Asc('t') 11001 = 25, 25 + 95 = 120, 120 = Asc('x') 10001 = 17, 17 + 95 = 112, 112 = Asc('p') 01110 = 14, 14 + 95 = 109, 109 = Asc('m') } data Font5x7['mprtxpm', { 0 } 'ckccccm', { 1 } 'mp`acg~', { 2 } 'mp`e`pm', { 3 } 'aeiq~aa', { 4 } '~oom`pm', { 5 } 'ego}ppm', { 6 } '~``acgo', { 7 } 'mppmppm', { 8 } 'mppn`ak', { 9 } 'cipp~pp', { A } '}pp}pp}', { B } 'mpooopm', { C } '}ppppp}', { D } '~oo}oo~', { E } '~oo}ooo', { F } 'mpoorpn', { G } 'ppp~ppp', { H } 'mcccccm', { I } '~aaaqqk', { J } 'pqswsqp', { K } 'oooooo~', { L } 'pztpppp', { M } 'ppxtrpp', { N } 'mpppppm', { O } '}pp}ooo', { P } 'mppptrn', { Q } '}pp}sqp', { R } 'mpom`pm', { S } '~cccccc', { T } 'ppppppm', { U } 'pppppic', { V } 'pppptti', { W } 'ppicipp', { X } 'pppiccc', { Y } '~`acgo~'] { Z } procedure LoadFont() var Font$ Digit, Letter, Row begin RestoreData(Font5x7) for Digit = Asc('0') to Asc('9') Font = ReadData(Font5x7) for Row = 1 to FontHeight Table[Digit, Row] = Asc(Mid(Font, Row, 1)) - 95 next next for Letter = Asc('A') to Asc('Z') Font = ReadData(Font5x7) for Row = 1 to FontHeight Table[Letter, Row] = Asc(Mid(Font, Row, 1)) - 95 next next end procedure DrawCharacter(x, y: integer, Character: string, Start: integer = 1) var LeftX, StartColumn, Row, Dots, Column begin LeftX = x StartColumn = 1 shl (FontWidth - Start) for Row = 1 to FontHeight Dots = Table[Asc(Character), Row] Column = StartColumn while Column > 0 if (Dots and Column) > 0 Ellipse(x, y, DotRadius, DotRadius, OnColor, True) else Ellipse(x, y, DotRadius, DotRadius, OffColor, True) endif x = x + DotSpacing Column = Column shr 1 wend Ellipse(x, y, DotRadius, DotRadius, OffColor, True) x = LeftX y = y + DotSpacing next end procedure DrawString(x, y: integer, s: string, Start: integer = 1, Column: integer = 1) var i : integer begin DrawCharacter(x, y, Mid(s, Start, 1), Column) if Column > 1 x = x - ((DotRadius shl 1) + DotGap) * (Column - 1) endif x = x + CharSpacing for i = Start + 1 to Length(s) DrawCharacter(x, y, Mid(s, i, 1)) x = x + CharSpacing next end { Main } begin OpenScreen(800, 600, 16) OnColor = ToRGBA(255, 0, 0) OffColor = ToRGBA(100, 0, 0) LoadFont x = DotGap + DotRadius y = 100 Start = 1 Column = 1 repeat Cls DrawString(x, y, Banner, Start, Column) Flip Pause(50) { Scroll } if Column > FontWidth Column = 1 if Start = Length(Banner) Start = 1 else Inc(Start) endif else Inc(Column) endif until KeyDown(VK_Escape) CloseScreen end --v Holy cow! The speed of Pure2D just blows Blitz's Oval function out of the water. I had to put in a delay, or avoid blinking
Sunday, 11 March 2007, 05:13
mike_g	Nice conversion. In order to get it to work I had to change the constants SPACING, and BANNER to variables. Looks like it must be fixed in the full version, but the demo still seems to have a few problems with constants. As to do with drawing stuff, I also noticed that Cobra seems fast compared to Blitz even with the debugger on. I converted some vector graphics stuff I made in Blitz and so far I have been quite impressed with it. I'll post some of the code a bit later on.
Sunday, 11 March 2007, 06:31
Agent	That's interesting. Thanks for trying out my code, but I didn't realize you weren't using the full version. If you're finding the demo faster than Blitz, I don't think you'll be disappointed with the speed of the full version (if you decide to buy it). I haven't downloaded the Cobra2D beta yet, I'm still just playing around with Pure2D and getting familiar with the language. \|edit\| The Cobra2D unit has just been included in the latest update patch for the full release \|edit\|

Comments