SpinalWatch - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|675\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> SpinalWatch
Page : 1 2 3 4 5 6 7 8 9 Prev 10 Next
Sat, 26 Aug 2023, 05:35
Jayenkai	phew OK, now get back to fixing the word-wrap! -=-=- ''Load, Next List!''
Sat, 26 Aug 2023, 07:10
spinal	This is just getting longer and longer, and still not right. void print(int x, int y, const char* text) { int x1 = x; int fHeight = 0; int nextSpace = 0; uint8_t numChars = strlen(text); const char* wordStart = text; // Pointer to the beginning of the current word switch (gFont) { case 0: case 1: fHeight = font01[0][1]; break; case 2: fHeight = font02[0][1]; break; case 3: fHeight = font03[0][1]; break; // Add more cases for additional fonts if needed } for (uint8_t t = 0; t < numChars; t++) { if (text[t] == ' ') { // Found a space, consider it as a word boundary uint8_t wordLength = text + t - wordStart; char word[wordLength + 1]; strncpy(word, wordStart, wordLength); word[wordLength] = '\0'; // Calculate the width of the word uint8_t wordWidth = 0; for (uint8_t w = 0; w < wordLength; w++) { uint8_t character = word[w] - 32; switch (gFont) { case 0: wordWidth += pgm_read_byte(&font01_widths[character]) * gScale; break; case 1: wordWidth += pgm_read_byte(&font02_widths[character]) * gScale; break; case 2: wordWidth += pgm_read_byte(&font03_widths[character]) * gScale; break; // Add more cases for additional fonts if needed } } // Check if the word fits on the current line if (x1 + wordWidth >= WIDTH) { x1 = x; y += (fHeight * gScale); // line height } // Print the word for (uint8_t w = 0; w < wordLength; w++) { uint8_t character = word[w] - 32; switch (gFont) { case 0: case 1: drawSprite(&font01[character][0], x1, y); nextSpace = pgm_read_byte(&font01_widths[character]) * gScale; break; case 2: drawSprite(&font02[character][0], x1, y); nextSpace = pgm_read_byte(&font02_widths[character]) * gScale; break; case 3: drawSprite(&font03[character][0], x1, y); nextSpace = pgm_read_byte(&font03_widths[character]) * gScale; break; // Add more cases for additional fonts if needed } x1 += nextSpace; } // Move the wordStart pointer to the beginning of the next word wordStart = text + t + 1; } } // Print the remaining text after the last word uint8_t remainingLength = text + numChars - wordStart; char remainingText[remainingLength + 1]; strncpy(remainingText, wordStart, remainingLength); remainingText[remainingLength] = '\0'; // Calculate the width of the remaining text uint8_t remainingWidth = 0; for (uint8_t w = 0; w < remainingLength; w++) { uint8_t character = remainingText[w] - 32; switch (gFont) { case 0: case 1: remainingWidth += pgm_read_byte(&font01_widths[character]) * gScale; break; case 2: remainingWidth += pgm_read_byte(&font02_widths[character]) * gScale; break; case 3: remainingWidth += pgm_read_byte(&font03_widths[character]) * gScale; break; // Add more cases for additional fonts if needed } } // Check if the remaining text fits on the current line if (x1 + remainingWidth >= WIDTH) { x1 = x; y += (fHeight * gScale); // line height } // Print the remaining text for (uint8_t w = 0; w < remainingLength; w++) { uint8_t character = remainingText[w] - 32; fHeight = font01[0][1]; switch (gFont) { case 0: case 1: drawSprite(&font01[character][0], x1, y); nextSpace = pgm_read_byte(&font01_widths[character]) * gScale; break; case 2: drawSprite(&font02[character][0], x1, y); nextSpace = pgm_read_byte(&font02_widths[character]) * gScale; break; case 3: drawSprite(&font03[character][0], x1, y); nextSpace = pgm_read_byte(&font03_widths[character]) * gScale; break; // Add more cases for additional fonts if needed } x1 += nextSpace; } // Assign the value of y + line height to the global variable textY textY = y + (fHeight * gScale); } --v -=-=- Check out my excellent homepage!
Sat, 26 Aug 2023, 07:29
Jayenkai	Not seeing anything too obvious, there. I'm assuming fHeight is right, or that fontnn[0][1] is the correct value for it's height.. -=-=- ''Load, Next List!''
Sat, 26 Aug 2023, 08:08
spinal	I'll start over again maybe, it really shouldn't be difficult to scan the next word and see if it still fits. -=-=- Check out my excellent homepage!
Sat, 26 Aug 2023, 11:24
Kuron	Staring at the image, it almost looks like the equivalent of a "Z Order" issue with sprites. Why is the big question. Can you gain anything from this? Or this? You will get it figured out. This shit isn't easy for the big names. Citizen just suspended sales of a line of smart watches because of some bugs that were not caught before the products shipped.
Sat, 26 Aug 2023, 15:23
spinal	Here is an attempt in blitz, it nearly works... font.png Graphics 320,240,0,2 Global WIDTH = 144 Global font02 = LoadAnimImage("font.png", 11, 15, 0, 96) Dim fWidth(96) For t = 0 To 95 Read fWidth(t) Next Rect 0,0,WIDTH,168,0 myPrint(0,0,"This is quite a long sentence, it is aimed at testing my print function.") While Not KeyHit(1) Wend End Function myPrint(x,y,Text$) x1 = x y1 = y numChars = Len(Text$) fHeight = 15 t = 1 While t < numChars+1 u = t wordWidth = 0 While u < numChars And Mid$(Text$,u,1) <> " " wordWidth = wordWidth + fWidth(Asc(Mid$(Text$,t,1)) - 32) u=u+1 Wend If x1 + wordWidth > WIDTH x1=x y1=y1+fHeight EndIf letter = Asc(Mid$(Text$,t,1)) - 32 DrawImage font02, x1, y1, letter x1 = x1 + fWidth(letter) t=t+1 Wend End Function Data 4,4,4,8,6,11,10,4,4,4,6,6,4,4,4,6,6,4,5,5,7,5,6,6,6,6,4,4,6,7,6,5 Data 10,9,6,7,7,5,5,7,8,4,4,7,5,10,8,8,6,8,7,6,8,7,8,12,8,8,8,4,6,4,7,6 Data 4,5,6,5,6,5,5,6,6,3,4,5,4,10,6,6,6,6,4,4,5,6,7,10,6,7,6,4,4,4,7,1 --v Weirdly it's cutting the word "sentence" in half... I'm missing something simple, I know it. \|edit\| Typo, found it. wordWidth = wordWidth + fWidth(Asc(Mid$(Text$,t,1)) - 32) should be wordWidth = wordWidth + fWidth(Asc(Mid$(Text$,u,1)) - 32) -=-=- Check out my excellent homepage!
Sat, 26 Aug 2023, 16:09
Jayenkai	// Wrod Warp // by Jayenkai // Created 2023/8/26 Graphics 512,512,1 Border 30,30,90;CLS txt$="Blibberblabber zippityzap, a talking turnip wearing a top hat. Fluffernutter in a tutu, dancing with a kangaroo. Wibbly-wobbly noodle soup, served with a side of purple loop-de-loop. Snickerdoodle sassafras, a polka-dotted elephant playing jazz. Whirlygigs and whatchamacallits, floating on a sea of zany zibber-zabbits. Bippity-boppity, a pineapple disco party, where pineapples dance and twirl, with pinecones doing the squirrel. Flibbertigibbet and hocus-pocus, a magical circus with unicorns on unicycles." t=0 ThisWord$="";ThisWordWide=0 ThisLine$="";ThisLineWide=0 CLS;ResetDraw x=0;y=48 Repeat ltr=Mid$(txt$,t,1) width=14 // Change for chrs. if ltr==" " or ltr=="." or ltr=="," or t==len(txt$) past=ThisWordWide+ThisLineWide if past<512 ThisLineWide=ThisLineWide+ThisWordWide+width ThisLine=ThisLine+ThisWord+ltr ThisWordWide=0 ThisWord="" ltr="";width=0 endif if past>=512 x=0 for L=0 to len(ThisLine) Text x,y,Mid$(ThisLine,L,1),0 x=x+width // Change for chrs. next ThisLine=ThisWord ThisLineWide=ThisWordWide ThisWord="" ThisWordWide=0 x=0 y=y+16 endif endif ThisWord=ThisWord+ltr;ThisWordWide=ThisWordWide+width SetCol 0,0,0 Rect 0,0,512,32 SetCol 255,255,255 Text 8,8,Right("000"+ThisWordWide,3)+":"+ThisWord Text 8,24,Right("000"+ThisLineWide,3)+":"+ThisLine t=t+1 Wait 0.03 Until t>len(txt$) // Then do the last word. x=0 for L=0 to len(ThisLine) width=14 Text x,y,Mid$(ThisLine,L,1),0 x=x+width // Change for chrs. next ThisLine=ThisWord ThisLineWide=ThisWordWide ThisWord="" ThisWordWide=0 x=0 y=y+16 --v -=-=- ''Load, Next List!''
Sat, 26 Aug 2023, 16:12
spinal	OK, got the blitz version up to the same problem. I switched to blitz because uploading code to the arduino, then sending myself an sms message is a slow process, wheras hitting F5 is nice and fast. What I WANT to happen, is that if a single word is too wide for the screen, print it anyway, but still word wrap any words that do fit... Graphics 320,240,0,2 Global gScale = 3 Global WIDTH = 144 Global font02 = LoadAnimImage("font.png", 11, 15, 0, 96) Dim fWidth(96) For t = 0 To 95 Read fWidth(t) Next Color 0,128,0 Rect 0,0,WIDTH,168,0 Color 255,255,255 myPrint(0,0,"GadgetBridge") While Not KeyHit(1) Wend End Function myPrint(x,y,Text$) x1 = x y1 = y numChars = Len(Text$) fHeight = 15 t = 1 firstWord = 1 While t < numChars+1 u = t wordWidth = 0 While u < numChars And Mid$(Text$,u,1) <> " " wordWidth = wordWidth + (fWidth(Asc(Mid$(Text$,u,1)) - 32) * gScale) u=u+1 Wend If x1 + wordWidth > WIDTH If firstWord = 1 Then x1=x y1=y1+(fHeight * gScale) EndIf EndIf letter = Asc(Mid$(Text$,t,1)) - 32 tempImage = CreateImage(fWidth(letter), fHeight) SetBuffer ImageBuffer(tempImage) DrawBlock font02, 0, 0, letter ResizeImage tempImage, fWidth(letter) * gScale, fHeight * gScale SetBuffer FrontBuffer() ;DrawImage font02, x1, y1, letter DrawImage tempImage, x1, y1 x1 = x1 + (fWidth(letter) * gScale) t=t+1 firstWord = 0 Wend End Function Data 4,4,4,8,6,11,10,4,4,4,6,6,4,4,4,6,6,4,5,5,7,5,6,6,6,6,4,4,6,7,6,5 Data 10,9,6,7,7,5,5,7,8,4,4,7,5,10,8,8,6,8,7,6,8,7,8,12,8,8,8,4,6,4,7,6 Data 4,5,6,5,6,5,5,6,6,3,4,5,4,10,6,6,6,6,4,4,5,6,7,10,6,7,6,4,4,4,7,1 --v -=-=- Check out my excellent homepage!
Sun, 27 Aug 2023, 03:40
spinal	OK, got that working as far as I can tell. Now to re-arduino the code. Graphics 320,240,0,2 Global gScale = 1 Global WIDTH = 144 Global font02 = LoadAnimImage("font.png", 11, 15, 0, 96) Dim fWidth(96) For t = 0 To 95 Read fWidth(t) Next Color 0,128,0 Rect 0,0,WIDTH,168,0 Color 255,255,255 gScale = 2 myPrint(0,0,"The_Title_is_long") gScale = 1 myPrint(0,30,"Since life emerged on our planet, there have been five mass extinctions. Sometimes these events last many years. But sometimes a mass extinction can happen very, very suddenly.") While Not KeyHit(1) Wend End Function myPrint(x,y,Text$) x1 = x y1 = y numChars = Len(Text$) fHeight = 15 t = 1 firstWord = 1 firstSpace = 9999 While t < numChars+1 u = t wordWidth = 0 While u < numChars And Mid$(Text$,u,1) <> " " wordWidth = wordWidth + (fWidth(Asc(Mid$(Text$,u,1)) - 32) * gScale) u=u+1 Wend If x1 + wordWidth > WIDTH If t > 1 Then If Mid$(Text$,t-1,1) = " " Then y1=y1+(fHeight * gScale) x1=x EndIf EndIf EndIf letter = Asc(Mid$(Text$,t,1)) - 32 tempImage = CreateImage(fWidth(letter), fHeight) SetBuffer ImageBuffer(tempImage) DrawBlock font02, 0, 0, letter ResizeImage tempImage, fWidth(letter) * gScale, fHeight * gScale SetBuffer FrontBuffer() ;DrawImage font02, x1, y1, letter DrawImage tempImage, x1, y1 x1 = x1 + (fWidth(letter) * gScale) t=t+1 firstWord = 0 Wend End Function Data 4,4,4,8,6,11,10,4,4,4,6,6,4,4,4,6,6,4,5,5,7,5,6,6,6,6,4,4,6,7,6,5 Data 10,9,6,7,7,5,5,7,8,4,4,7,5,10,8,8,6,8,7,6,8,7,8,12,8,8,8,4,6,4,7,6 Data 4,5,6,5,6,5,5,6,6,3,4,5,4,10,6,6,6,6,4,4,5,6,7,10,6,7,6,4,4,4,7,1 --v -=-=- Check out my excellent homepage!
Sun, 27 Aug 2023, 07:01
Kuron	Congrats!!
Sun, 27 Aug 2023, 13:21
spinal	Close enough for now. Still not perfect. -=-=- Check out my excellent homepage!
Sun, 27 Aug 2023, 13:24
Jayenkai	Better, though. Nice!
Sun, 27 Aug 2023, 13:43
Kuron	Indeed, much better!
Sun, 27 Aug 2023, 13:56
spinal	It idea is to let the first word go off the end, but any other words need to be wrapped. Doesn't seem to work on the last word for some reason. In that example anyway. -=-=- Check out my excellent homepage!
Mon, 28 Aug 2023, 15:47
spinal	For no real reason, I send the screen data out over serial to a python scrypt to save a gif... -=-=- Check out my excellent homepage!
Mon, 28 Aug 2023, 16:15
Jayenkai	Awesome!
Mon, 28 Aug 2023, 16:43
Kuron	WoohoO!!!
Thu, 31 Aug 2023, 17:39
Kuron	Any progress?
Fri, 01 Sep 2023, 01:55
spinal	Nah, too lazy
Mon, 04 Sep 2023, 15:32
spinal	-=-=- Check out my excellent homepage!
Mon, 04 Sep 2023, 15:42
Kuron	Never bet against Spinal!
Mon, 04 Sep 2023, 16:36
Jayenkai	Looking great! Is it now running for extended periods, even with the notifications? -=-=- ''Load, Next List!''
Tue, 05 Sep 2023, 00:33
spinal	Yep, runs well, I found that I need to keep the sleep time to half a second or less or else the milliseconds time goes a bit wonky. -=-=- Check out my excellent homepage!
Page : 1 2 3 4 5 6 7 8 9 Prev 10 Next