Author Topic: [bb] Curved Text routine and RLE vector functions (part 1) by Andy_A [ 1+ years ago ] (Read 1238 times)

BlitzBot · « **on:** June 29, 2017, 12:28:43 AM »

Title : Curved Text routine and RLE vector functions (part 1)
Author : Andy_A
Posted : 1+ years ago

Description : These RLE vector functions allow you to wrap text or images around a circle.

The functions are:
getImg() - scans an area on screen and stores in RLE image format in the vec() array. You must store your image in RLE format before using any of the other functions.

rotateImg() - rotates an image at 0, 90, 180, and 270 degrees and displays rotated image on screen

maskImg() - makes any single color of an RLE image transparent

replaceColor() - replace any single color of an RLE image with a different color

maskAndReplace() - mask a single color and replace a different single color with a new color

magnify() - enlarges and rotates an RLE image

curveImg() - wraps an RLE image around an arc segment. Similar to MS Word Art or Photoshop text curving.

Parameters for the curveImg function:
centerX%, centerY% - the center of the imaginary circle that you're wrapping around

radius% - radius of the imaginary circle. Start at a radius of 50 pixels (100 pixel diameter) and adjust to suit.

startAngle# - defines the start point of your RLE on the imaginary circle

arcSegment# - number of degrees to plot after the startAngle. If you start at 180 degrees and wrap an arc segment of 180 degrees, your image will start wrapping at 180 degrees, and plot to 360 degrees on the imaginary circle.

imgWidth% - width in pixels of your RLE image

imgHeight% = height in pixels of your RLE image

penSize% = use this to fill in the voids that are left when the math is more precise than the screen resolution. Start with a penSize of 1, increase penSize by 1 until there are no more voids.

(Made changes so 16 bit graphic cards can display properly)

(Another update: new vector storage format uses less memory,
now can be used to load images from data statements)

Code :

Code: BlitzBasic

;     Title: Blitz RLE Vector Image Demo
;Programmer: Andy Amaya
;      Date: 2004.03.25
;   Version: 1.08-Added dat2curv2buf() function
;    Update: 1.07-Added data2buffer() function
;    Update: 1.06-Added makeData() and getImgData() functions
;                 as a result, a new vector storage method is used.
;    Update: 1.05-Lock & UnLock buffer to use ReadPixelFast (does NOT work in B2D)
;    Update: 1.04-Added constants to support use with 16 bit color cards
;    Update: 1.03-Added curveImg Routine
;    Update: 1.01-Added maskImg, replaceColor, maskAndReplace routines
;    Update: 1.00-Original RLE image routine
 
AppTitle "Blitz Run Length Encoded Vector Images"
 
Global sw% = 800
Global sh% = 600
Global cd% = 32 ;<--------------- Color depth
 
Graphics sw, sh , cd, 2
SetBuffer BackBuffer()
 
Dim vecs(1) ;vector array (true dimension size in image data)
Dim pal%(1)     ;Color palette array (true dimension size in image data)
 
;========== masking constants for 32 bit color =========
        Global maskRed% = 16711680
        Global maskGrn% = 65280
        Global maskBlu% = 255
;=======================================================
 
;========= masking constants for 16 bit (5-6-5) ========
;       Global maskRed% = 16252928
;       Global maskGrn% = 64512 ;change to 63488 for (5-5-5)
;       Global maskBlu% = 248
;=======================================================
 
 
Arial40bi% = LoadFont("Arial",40,True,True)
Arial18b%  = LoadFont("Arial",18,True)
 
Cls
Color 0,128,255
Rect 0, 0,sw-1, sh-1,True
 
SetFont Arial40bi
msg$ = "Rotate text"
msgWide% = StringWidth(msg$)
msgHigh% = StringHeight(msg$)
Color 255,0,0
center% = (sw-msgWide) Shr 1
Rect center, 0,msgWide,msgHigh,True
Color 255,255,255
Text center,0,msg$
SetFont arial18b
Text 350,46,"(Original Image)"
 
getImg(center, 0, msgWide, msgHigh)
rotateImg(  0,  10,             100,                                            msgWide, msgHigh)
rotateImg( 90,  10+msgWide,     100+msgHigh,                    msgWide, msgHigh)
rotateImg(180,  10+msgWide,     100+msgWide+msgHigh*2,  msgWide, msgHigh)
rotateImg(270,  10,                     100+msgWide+msgHigh,    msgWide, msgHigh)
 
maskImg(  0, 210,                       100,                                    msgWide, msgHigh, 255, 0, 0)
maskImg( 90, 210+msgWide,       100+msgHigh,                    msgWide, msgHigh, 255, 0, 0)
maskImg(180, 210+msgWide,       100+msgWide+msgHigh*2,  msgWide, msgHigh, 255, 0, 0)
maskImg(270, 210,                       100+msgWide+msgHigh,    msgWide, msgHigh, 255, 0, 0)
 
replaceColor(  0, 410,                  100,                                    msgWide, msgHigh, 255, 255, 255, 255, 255, 0)
replaceColor( 90, 410+msgWide,  100+msgHigh,                    msgWide, msgHigh, 255, 255, 255, 255, 255, 0)
replaceColor(180, 410+msgWide,  100+msgWide+msgHigh*2,  msgWide, msgHigh, 255, 255, 255, 255, 255, 0)
replaceColor(270, 410,                  100+msgWide+msgHigh,    msgWide, msgHigh, 255, 255, 255, 255, 255, 0)
 
maskAndReplace(  0, 610,                100,                                    msgWide, msgHigh, 255, 0, 0, 255, 255, 255, 255, 255, 32)
maskAndReplace( 90, 610+msgWide,100+msgHigh,                    msgWide, msgHigh, 255, 0, 0, 255, 255, 255, 255, 192, 32)
maskAndReplace(180, 610+msgWide,100+msgWide+msgHigh*2,  msgWide, msgHigh, 255, 0, 0, 255, 255, 255, 200, 224, 64)
maskAndReplace(270, 610,                100+msgWide+msgHigh,    msgWide, msgHigh, 255, 0, 0, 255, 255, 255, 192, 255, 32)
 
Color 255,255,255
SetFont Arial18b
Text 20,365,"Example of rotated text"
 
Text 220,365,"Example of masking"
Text 220,388,"the red from image"
 
Text 420,365,"Example of replacing"
Text 420,388,"white with yellow"
 
Text 620,365,"Example of masking"
Text 620,388,"red and replacing"
Text 620,411,"the white"
Text 10,570,"click to continue"
 
Flip
 
WaitMouse()
FlushMouse()
 
SetFont Arial40bi
Color 0,128,255
Rect 0, 0, sw-1, sh-1, True
msg$ = "Zoom 1x-32x"
msgWide% = StringWidth(msg$)
msgHigh% = StringHeight(msg$)
 
Color 255,0,0
center% = (sw-msgWide) Shr 1
Rect 0, 0,msgWide,msgHigh,True
Color 255,255,255
Text 0,0,msg$
SetFont arial18b
Text 40,46,"(Original Image)"
 
getImg(0, 0, msgWide, msgHigh)
 
magnify(  0, center,                    0,                                              msgWide, msgHigh, 2)
magnify( 90, center+msgWide*2-2,msgHigh*2,                              msgWide, msgHigh, 2)
magnify(180, center+msgWide*2,  msgWide*2+msgHigh*4-2,  msgWide, msgHigh, 2)
magnify(270, center,                    msgWide*2+msgHigh*2,    msgWide, msgHigh, 2)
 
SetFont Arial18b
Color 255,255,255
Text center+175,289,"(this is 2x)"
Text 10,570,"click to continue"
Flip
 
WaitMouse()
FlushMouse()
 
Color 0, 128, 255
Rect 0, 0, sw-1, sh-1, True
 
SetFont Arial40bi
msg$ = "Curved Text Example "
msgWide% = StringWidth(msg$)-5
msgHigh% = StringHeight(msg$)
 
center% = (sw-msgWide) Shr 1
Color 255,0,0
Rect center, 0,msgWide,msgHigh,True
Color 255,255,255
Text center,0,msg$
SetFont Arial18b
Text 100,0,"(Original Image)"
Text 10,570,"click to exit"
getImg(center, 0, msgWide, msgHigh)
 
curveImg(400, 320, 275, 180.0, 360.0, msgWide, msgHigh, 5)
curveImg(400, 320, 225, 270.0, 270.0, msgWide, msgHigh, 4)
curveImg(400, 320, 175,   0.0, 225.0, msgWide, msgHigh, 4)
curveImg(400, 320, 125,  90.0, 270.0, msgWide, msgHigh, 3)
curveImg(400, 320,  75, 112.0, 315.0, msgWide, msgHigh, 2)
 
 
Flip
WaitMouse()
 
FreeFont Arial40bi
FreeFont Arial18b
End
 
Function getImg(x%, y%, imgWidth%, imgHeight%)
        ;Allocate enough memory for worst case scenario
        Dim vecs(imgWidth*imgHeight*2)
        ;================
                LockBuffer
        ;================
        vCount% = -2
        cCount% = -1
        lastColor% = -1
        For j% = y To y + imgHeight-1
                pixCount = 0
                For i% = x To x+imgWidth-1
                        ;Get pixel color from current screen coords
                        pixColor% = ReadPixelFast(i, j)
                        ;============== 16 bit (5-6-5)================================
                        ;  modify pixel color  values for 16bit color
                        ;=============================================================
                        If cd = 16 Then
                                pixColor = pixColor And 16317688 ;use 16253176 for (5-5-5)
                    End If
                        ;=============================================================
                        ;Keep track of how many pixels of current color
                        pixCount% = pixCount% + 1
                        ;If at start of a raster line OR there's a change in color
                        ;Then keep track of how many pixels for current color
                        If (i = x) Or (pixColor <> lastColor) Then
                                ;remember pixel color as the last color encountered in bitmap
                                lastColor = pixColor
                                vecLen% = 1
                                vCount = vCount + 2 ;even numbered elements hold length values
                                cCount = cCount + 2 ;odd numbered elements hold color values
                                ;Update vector array: evenNumber element = number of same color pixels
                                vecs(vCount) = vecLen
                                ;Update vector array:  oddNumber element = new pixel color to store
                                vecs(cCount) = pixColor
                        Else
                                ;Otherwise just add to the number of same colored pixels
                                vecLen = vecLen + 1
                                vecs(vCount) = vecLen
                        End If
                Next
        Next
        ;==================
                UnlockBuffer
        ;==================
End Function
 
Function rotateImg(angle%, x%, y%, imgWidth%, imgHeight%)
        If angle = 0 Or angle = 90 Or angle = 180 Or angle = 270 Then
                angle2% = angle + 90
                vCount% = 0
                For i% = 1 To imgHeight
                        p# = Cos(angle2)*(i-1)+x
                        q# = Sin(angle2)*(i-1)+y
                        lineLen% = 0
                        While lineLen < imgWidth
                                vecLen = vecs(vCount)
                                lineLen = linelen + vecLen
                                red% = (vecs(vCount + 1) And maskRed) Shr 16
                                grn% = (vecs(vCount + 1) And maskGrn) Shr 8
                                blu% =  vecs(vCount + 1) And maskBlu
                                ;===========================================================
                                If cd = 16 Then
                                        red = red Shr 3 Shl 3
                                        grn = grn Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                                        blu = blu Shr 3 Shl 3
                            End If
                                ;===========================================================
 
                                Color red,grn,blu
                                r# = Cos(angle)*vecLen+p
                                s# = Sin(angle)*vecLen+q
                                Line p,q,r,s
                                vCount = vCount+2
                                p=r
                                q=s
                        Wend
                Next 
        End If
End Function
 
Function maskImg(angle%, x%, y%, imgWidth%, imgHeight%, r1%, g1%, b1%)
        If angle = 0 Or angle = 90 Or angle = 180 Or angle = 270 Then
        ;===16 bit (5-6-5)============================
        ;  modify parameter values for 16bit color
        ;=============================================
        If cd = 16 Then
                r1 = r1 Shr 3 Shl 3
                g1 = g1 Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                b1 = b1 Shr 3 Shl 3
        End If
        ;=============================================
                angle2% = angle + 90
                vCount% = 0
                For i% = 1 To imgHeight
                        p# = Cos(angle2)*(i-1)+x
                        q# = Sin(angle2)*(i-1)+y
                        lineLen% = 0
                        While lineLen < imgWidth
                                vecLen = vecs(vCount)
                                lineLen = linelen + vecLen
                                red% = (vecs(vCount + 1) And maskRed) Shr 16
                                grn% = (vecs(vCount + 1) And maskGrn) Shr 8
                                blu% =  vecs(vCount + 1) And maskBlu
                                ;============== 16 bit (5-6-5)==============================
                                ;  modify parameter values for 16bit color
                                ;===========================================================
                                If cd = 16 Then
                                        red = red Shr 3 Shl 3
                                        grn = grn Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                                        blu = blu Shr 3 Shl 3
                            End If
                                ;===========================================================
                                Color red,grn,blu
                                r# = Cos(angle)*vecLen+p
                                s# = Sin(angle)*vecLen+q
                                If r1=red And g1=grn And b1=blu Then
                                        vCount = vCount+2
                                Else
                                        Line p,q,r,s
                                        vCount = vCount+2
                            End If
                                p=r
                                q=s
                        Wend
                Next 
        End If
End Function
 
Function replaceColor(angle%, x%, y%, imgWidth%, imgHeight%, r1%, g1%, b1%, r2%, g2%, b2%)
        If angle = 0 Or angle = 90 Or angle = 180 Or angle = 270 Then
        ;===16 bit (5-6-5)========================================
        ;  modify parameter values for 16bit color
        ;=========================================================
        If cd = 16 Then
                r1 = r1 Shr 3 Shl 3
                g1 = g1 Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                b1 = b1 Shr 3 Shl 3
                r2 = r2 Shr 3 Shl 3
                g2 = g2 Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                b2 = b2 Shr 3 Shl 3
        End If
        ;========================================================= 
                angle2% = angle + 90
                vCount% = 0
                For i% = 1 To imgHeight
                        p# = Cos(angle2)*(i-1)+x
                        q# = Sin(angle2)*(i-1)+y
                        lineLen% = 0
                        While lineLen < imgWidth
                                vecLen = vecs(vCount)
                                lineLen = linelen + vecLen
                                red = (vecs(vCount + 1) And maskRed) Shr 16
                                grn = (vecs(vCount + 1) And maskGrn) Shr 8
                                blu =  vecs(vCount + 1) And maskBlu
                                ;============== 16 bit (5-6-5)==============================
                                ;  modify parameter values for 16bit color
                                ;===========================================================
                                If cd = 16 Then
                                        red = red Shr 3 Shl 3
                                        grn = grn Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                                        blu = blu Shr 3 Shl 3
                            End If
                                ;===========================================================
                                Color red,grn,blu
                                r# = Cos(angle)*vecLen+p
                                s# = Sin(angle)*vecLen+q
                                If r1=red And g1=grn And b1=blu Then
                                        Color r2,g2,b2
                            End If
                                Line p,q,r,s
                                vCount = vCount+2
                                p=r
                                q=s
                        Wend
                Next 
        End If
End Function
 
Function maskAndReplace(angle%, x%, y%, imgWidth%, imgHeight%, r1%, g1%, b1%, r2%, g2%, b2%, r3%, g3%, b3%)
         If angle = 0 Or angle = 90 Or angle = 180 Or angle = 270 Then
        ;===16 bit (5-6-5)========================================
        ;  modify parameter values for 16bit color
        ;=========================================================
        If cd = 16 Then
                r1 = r1 Shr 3 Shl 3
                g1 = g1 Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                b1 = b1 Shr 3 Shl 3
                r2 = r2 Shr 3 Shl 3
                g2 = g2 Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                b2 = b2 Shr 3 Shl 3
                r3 = r3 Shr 3 Shl 3
                g3 = g3 Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                b3 = b3 Shr 3 Shl 3
        End If
        ;========================================================= 
                angle2% = angle + 90
                vCount% = 0
                For i% = 1 To imgHeight
                        p# = Cos(angle2)*(i-1)+x
                        q# = Sin(angle2)*(i-1)+y
                        lineLen% = 0
                        While lineLen < imgWidth
                                vecLen = vecs(vCount)
                                lineLen = linelen + vecLen
                                red = (vecs(vCount + 1) And maskRed) Shr 16
                                grn = (vecs(vCount + 1) And maskGrn) Shr 8
                                blu =  vecs(vCount + 1) And maskBlu
                                ;============== 16 bit (5-6-5)==============================
                                ;  modify parameter values for 16bit color
                                ;===========================================================
                                If cd = 16 Then
                                        red = red Shr 3 Shl 3
                                        grn = grn Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                                        blu = blu Shr 3 Shl 3
                            End If
                                ;===========================================================
                                Color red,grn,blu
                                r# = Cos(angle)*vecLen+p
                                s# = Sin(angle)*vecLen+q                                
                                If r2=red And g2=grn And b2=blu Then
                                        Color r3,g3,b3
                                        Line p,q,r,s
                                        vCount = vCount+2
                                Else
                                        If r1=red And g1=grn And b1=blu Then
                                                vCount = vCount+2
                                        Else
                                                Line p,q,r,s
                                                vCount = vCount+2
                                    End If
                                End If
                                p=r
                                q=s
                        Wend
                Next
        End If
End Function
 
Function magnify(angle%, x%, y%, imgWidth%, imgHeight%, magLevel%)
    If angle = 0 Or angle = 90 Or angle = 180 Or angle = 270 Then
                If magLevel > 0 And magLevel < 33 Then
                        angle2% = angle + 90
                        vCount% = 0
                        i% = 1
                        While i < imgHeight*magLevel
                                p# = Cos(angle2)*(i-1)+x
                                q# = Sin(angle2)*(i-1)+y
                                lineLen% = 0
                                While lineLen < imgWidth
                                        vecLen = vecs(vCount)
                                        lineLen = linelen + vecLen
                                        red = (vecs(vCount + 1) And maskRed) Shr 16
                                        grn = (vecs(vCount + 1) And maskGrn) Shr 8
                                        blu =  vecs(vCount + 1) And maskBlu
                                        ;============== 16 bit (5-6-5)==============================
                                        ;  modify parameter values for 16bit color
                                        ;===========================================================
                                        If cd = 16 Then
                                                red = red Shr 3 Shl 3
                                                grn = grn Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                                                blu = blu Shr 3 Shl 3
                                    End If
                                        ;===========================================================
                                        Color red,grn,blu
                                        Select angle
                                                Case  0
                                                        boxWide% = magLevel * vecLen
                                                        boxHigh% = magLevel
                                                        Rect p, q, boxWide, boxHigh, True
                                                        p = p + boxWide
                                                Case  90
                                                        boxWide% = magLevel
                                                        boxHigh% = magLevel * vecLen
                                                        Rect p, q, boxWide, boxHigh, True
                                                        q = q + boxHigh
                                                Case  180
                                                        p = p - magLevel * vecLen
                                                        boxWide = magLevel * vecLen
                                                        boxHigh = magLevel
                                                        Rect p, q, boxWide, boxHigh, True
                                                Case  270
                                                        q = q - magLevel*vecLen
                                                        boxWide = magLevel
                                                        boxHigh = magLevel * vecLen
                                                        Rect p, q, boxWide, boxHigh, True
                                        End Select
                                        vCount = vCount + 2
                                Wend
                                i = i + magLevel
                        Wend
                End If
        End If
End Function
 
Function curveImg(centerX%, centerY%, radius%, startAngle#, arcSegment#, imgWidth%, imgHeight%, penSize%)
        If penSize > 1 Then penOffset# = penSize/2
        stepSize# = arcSegment/imgWidth
        vCount% = 0
        For i% = 1 To imgHeight
                lineLen% = 0
                arc# = startAngle
                While lineLen < imgWidth
                        arcLen = vecs(vCount)
                        lineLen = lineLen + arcLen
                        red = (vecs(vCount + 1) And maskRed) Shr 16
                        grn = (vecs(vCount + 1) And maskGrn) Shr 8
                        blu =  vecs(vCount + 1) And maskBlu
                        ;============== 16 bit (5-6-5)==============================
                        ;  modify parameter values for 16bit color
                        ;===========================================================
                        If cd = 16 Then
                                red = red Shr 3 Shl 3
                                grn = grn Shr 2 Shl 2 ;change to Shr 3 Shl 3 for (5-5-5)
                                blu = blu Shr 3 Shl 3
                    End If
                        ;===========================================================
                        Color red, grn, blu
                        arcInc# = arcLen*stepSize
                        c# = arc#
                        While c <= arc+arcInc
                                x = Cos(c)*radius+centerX
                                y = Sin(c)*radius+centerY
                                If penSize > 1 Then
                                        Rect x-penOffset, y-penOffset, penSize, penSize, True
                                Else
                                        Plot x,y
                                End If
                                c = c+stepSize
                        Wend
                        arc = arc+arcInc
                        vCount = vCount+2
                Wend
                radius = radius - 1
        Next
End Function

Comments :

big10p(Posted 1+ years ago)

Neat demo but on the first screen there's no difference in the rotated text examples - they're all white text on red background.

Andy_A(Posted 1+ years ago)

Thanks for the comment.I downloaded the code from here, and it ran fine on my machine. The white text on a red background was used for contrast. The first rectangle should be made up of "Rotate Text" rotated at 0, 90, 180, 270 degrees. The second rectangle should be "Rotate Text" without the red background. The third rectangle should be yellow text on red background. The last rectangle should be four different shades of yellow without the red background. If your screen is different, it's probably because I only coded for 32 bit colors, though 16 bit color should be an easy tweak.

Andy_A(Posted 1+ years ago)

big10p,Made changes to code to allow for 16 bit color cards.Change: Graphics 800,600,32,2 to Graphics 800,600,16,2Comment Out 32bit color masks and un-comment 16bit color masksThen un-comment 16 bit variable assignments in rest of code. They are all sectioned off with comments, so they're easy to spot.That should do it!

Andy_A(Posted 1+ years ago)

OK, it's fixed, forgot to make the color depth variable global.Change cd from 32 to 16Comment 32bit color masks and un-comment 16bit mask valuesHave tested at 16bit (5-6-5) and it works.

big10p(Posted 1+ years ago)

OK, it works now.

Andy_A(Posted 1+ years ago)

Glad to hear it worked for you, I did test it by resetting my graphics to 16bit and it worked, but it's good to hear it worked on a different system. Currently working on a file packing system, kind of like the one Terrabit made. Using the RLE compression with some more logic should make it feasible to include small images inside the source code of a project. I converted a 1.7Mb file using RLE to 85K. That works out to a 20:1 compression ratio. Another file I converted went from 30K to 20K, only 33 percent less. RLE doesn't work well with images that have lots of color gradients, but for simple graphics like sprites, it should be OK.

Author Topic: [bb] Curved Text routine and RLE vector functions (part 1) by Andy_A [ 1+ years ago ] (Read 1238 times)

BlitzBot

[bb] Curved Text routine and RLE vector functions (part 1) by Andy_A [ 1+ years ago ]