This content is provided AS IS for archive purposes only. Content may be out of date with no guarantee of correctness.

Fast text-wrapping in Cobra - Manuals

Main Article

Fast text-wrapping in Cobra

A fast implementation of text-wrapping (a.k.a. word-wrapping) for the Cobra programming language.


   WT_ARRAY_SIZE = 1024

   breakPoint: Array [WT_ARRAY_SIZE] of Integer
   breakPointString: String
   breakPointLength: Array [WT_ARRAY_SIZE] of Integer
   breakPointForce: Array [WT_ARRAY_SIZE] of Boolean

Function TextWrap(x: Integer, y:Integer, w: Integer, s: String, buf: Element) : Integer

   i, l, c, t, j: Integer
   txtl, txth, txtx: Integer
   lineStart: Integer

   l = Length(s)
   // First breakpoint
   breakPoint[0] = 1
   t = 1
   // Find potential breakpoints (space or newline)
   For i = 1 to l
       c = Asc(Mid(s, i, 1))
       If (c = 10) or (c = 32) then
           // Remove linebreak
           If (c = 10) then
               s = Left(s, i-1) + " " + Right(s, l-i)
               breakPointForce[t] = TRUE
               breakPointForce[t] = FALSE
           breakPoint[t] = i + 1                         
t = (WT_ARRAY_SIZE - 2) then break

   // End
   If t < (WT_ARRAY_SIZE - 2)
       breakPoint[t] = l + 1                         
   // Determine breaks
   txtl = 0
   txtx = 0
   lineStart = 1
   For i = 1 to (t)
       breakPointString = Mid(s, breakPoint[i-1], breakPoint[i] - breakPoint[i-1])
       breakPointLength[i] = TextWidth(breakPointString, buf)
       If i = 1 then txth = TextHeight(breakPointString, buf)
       If (txtl + breakPointLength[i] > w) or (breakPointForce[i-1]) or (i = (t)) then
           // Reached limit - render line
           For j = lineStart to (i-1)
               Text(x + txtx, y, Mid(s, breakPoint[j-1], breakPoint[j] - breakPoint[j-1]), buf)
               txtx = txtx + breakPointLength[j] // Increment x
breakPointForce[i-1] = TRUE then breakPointForce[i-1] = FALSE // Stop forced linebreak
           lineStart = i                   // Increment line starting index
           y = y + (txth * LINE_SPACING)   // Increment y
           If i < (t) then Dec(i)          // Rewind loop
           txtl = 0                        // Reset Line length
           txtx = 0                        // Reset x
           txtl = txtl + breakPointLength[i]

   breakPointString = ""
   result = y


   s1, s2, s3: String
   y: Integer

   OpenScreen(1024, 768, 32, FALSE, COB_SHOWBORDER)

   // First two paragraphs of Orwell's 1984    
   s1 = "It was a bright cold day in April, and the clocks were striking thirteen. Winston Smith, his chin nuzzled into his breast in an effort to escape the vile wind, slipped quickly through the glass doors of Victory Mansions, though not quickly enough to prevent a swirl of gritty dust from entering along with him."+Chr(10)+Chr(10)+"The hallway smelt of boiled cabbage and old rag mats. At one end of it a coloured poster, too large for indoor display, had been tacked to the wall. It depicted simply an enormous face, more than a metre wide: the face of a man of about forty-five, with a heavy black moustache and ruggedly handsome features. Winston made for the stairs. It was no use trying the lift. Even at the best of times it was seldom working, and at present the electric current was cut off during daylight hours. It was part of the economy drive in preparation for Hate Week. The flat was seven flights up, and Winston, who was thirty-nine and had a varicose ulcer above his right ankle, went slowly, resting several times on the way. On each landing, opposite the lift-shaft, the poster with the enormous face gazed from the wall. It was one of those pictures which are so contrived that the eyes follow you about when you move. BIG BROTHER IS WATCHING YOU, the caption beneath it ran."
   s2 = Chr(10)+"This is a Second call to TextWrap, continued after the first TextWrap returned the y position to continue from."
   s3 = Chr(10)+"This is a short line."
   SetFont("verdana", 10, 0, ScreenBuffer)
   y = TextWrap(10, 10, 390, s1, screenbuffer)
   TextWrap(10, y, 390, s2, screenbuffer)
   y = TextWrap(420, 10, 594, s1, screenbuffer)
   TextWrap(420, y, 594, s3, screenbuffer)
   While KeyHits(VK_ESCAPE) < 1


Please modify & use this code freely.

Stay Subscribed

Follow me on twitter @golightlyb, subscribe to the RSS feed or get updates by e-mail.

You can also contact me directly - I make an effort to reply to every e-mail.