BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"3D Embossed Text Function", by cyberseth

Rather than onion's 3D Emboss Function which uses pixel, this is a function solely for text, and is faster for large text and titles, but useless for images. In its simplest form it can be EmbossText(x,y,caption$) and has extra properties of (depth, angle, halign, valign)

Also it will emboss the text at any angle, not just 8 directions.

Code

Graphics 640,480
SetBuffer BackBuffer()
;This function creates embossed text.
;It can easily be manipulated to created 3D text effects, too.
;Use CURSOR KEYS to move the emboss angle.

SetFont LoadFont("Arial",48,False,False,False)
anglenow=-45
While Not KeyHit(1)
     ClsColor 180,180,180
     Cls
     Color 180,180,180
     If KeyDown(205) Then anglenow=anglenow+2:If anglenow>360 Then anglenow=anglenow-360
     If KeyDown(203) Then anglenow=anglenow-2:If anglenow<0 Then anglenow=anglenow+360
     EmbossText(320,240,"Hello World!",4,anglenow,True,True)
     Flip
     
Wend

End

Function EmbossText(x,y,Caption$,depth#=2,angle#=-45,halign=False,valign=False,Mix#=0.7)
     oldr#=ColorRed()
     oldg#=ColorGreen()
     oldb#=ColorBlue()
     
     For i=1 To depth
          ;Move in proportions, from 255,255,255 to oldr,oldg,olb
          newr#=(255-oldr)*Mix+oldr:If newr>255 Then newr=255
          newg#=(255-oldg)*Mix+oldg:If newg>255 Then newg=255
          newb#=(255-oldb)*Mix+oldb:If newb>255 Then newb=255
          Color Newr,newg,newb
          Text x+i*Sin(angle),y-i*Cos(angle),caption$,halign,valign
     Next
     
     For i=1 To depth
          ;Move in proportions, from 0,0,0 to oldr,oldg,olb
          newr#=oldr-oldr*mix:If newr<0 Then newr=0
          newg#=oldg-oldg*mix:If newg<0 Then newg=0
          newb#=oldb-oldb*mix:If newb<0 Then newb=0
          Color Newr,newg,newb
          Text x-i*Sin(angle),y+i*Cos(angle),caption$,halign,valign
     Next
     
     Color oldr,oldg,oldb
     Text x,y,Caption$,halign,valign
     
End Function

Code software created by Krylar's Kreations