How can I display big letters in CA-Clipper 5.2 ??? 1

[rym]

I need to show the text "GARAGE" in bigger letters than the usual ones. I can't find any library to do it. please let me know which library I can use.

 

[wht]

RYM
Send me your e-mail adress!...
I send you a script (prg) for print BIG letters in the screen, text format, vertical and horizontal.

WALT

wtaverna@hotmail.com

 

[wht]

I'm Sorry!
With profound regret!,(error de novato en este foro), but, here it goes! - Clipper 5.x:

Disculpame!
Con profundo pesar!, (error... ), pero, ahí va! - Clipper 5.x

*---[ INCLUDES ]------------------------------------*
#include "common.ch"
#include "inkey.ch"

*---[ DEFINES ]-------------------------------------*

PROCEDURE Rotulo( cCadena, cPos )

local nTam
local cLetra
local nCaracter
local cDibuj
local nIni
local nFin
local nAux
local nValor
local nEl01
local nFilaIni
local ni
local nAux1
local nFila := row()
local nColum := col()

// Comprobacion de parametros
if ISCHARACTER( cCadena )

if valtype( cPos ) != "C" .or. UPPER( Pos )!= "H" .and. UPPER( cPos ) != "V"
cPos := "H"
endif

// Comprueba longitud
nTam := LEN( cCadena )
nTam := nTam * 5 + ( nTam - 1 )

if nTam > ( nColum - 79 )
nTam--
endif

if cPos $ "Hh"
nFilaIni := nFila
endif


dispbegin()

for ni := 1 to len( cCadena )

cLetra := upper( substr ( cCadena, ni, 1 ) )

do case
case cLetra == "A"
nEl01 := "122211222114441"
case cLetra == "B"
nEl01 := "122141222113331"
case cLetra == "C"
nEl01 := "122221444413333"
case cLetra == "D"
nEl01 := "122341444113324"
case cLetra == "E"
nEl01 := "122221224413333"
case cLetra == "F"
nEl01 := "122221224414444"
case cLetra == "G"
nEl01 := "122221443313331"
case cLetra == "H"
nEl01 := "144411222114441"
case cLetra == "I"
nEl01 := "221224414433133"
case cLetra == "J"
nEl01 := "222123441413314"
case cLetra == "K"
nEl01 := "143241234414423"
case cLetra == "L"
nEl01 := "144441444413333"
case cLetra == "M"
nEl01 := "134311414114441"
case cLetra == "N"
nEl01 := "134411423114441"
case cLetra == "¥" .or. cLetra == "¤"
nEl01 := "345531213114441"
case cLetra == "O"
nEl01 := "122211444113331"
case cLetra == "P"
nEl01 := "122211222214444"
case cLetra == "Q"
nEl01 := "122141441413313"
case cLetra == "R"
nEl01 := "122211312214423"
case cLetra == "S"
nEl01 := "122222222133331"
case cLetra == "T"
nEl01 := "221224414444144"
case cLetra == "U"
nEl01 := "144411444113331"
case cLetra == "V"
nEl01 := "144412343241314"
case cLetra == "W"
nEl01 := "144411414123232"
case cLetra == "X"
nEl01 := "134314111412421"
case cLetra == "Y"
nEl01 := "134314131444144"
case cLetra == "Z"
nEl01 := "222214322413333"
case cLetra == "1"
nEl01 := "431442414433133"
case cLetra == "2"
nEl01 := "222211222213333"
case cLetra == "3"
nEl01 := "222212222133331"
case cLetra == "4"
nEl01 := "144412222144441"
case cLetra == "5"
nEl01 := "122222222133331"
case cLetra == "6"
nEl01 := "122221222113333"
case cLetra == "7"
nEl01 := "222214444144441"
case cLetra == "8"
nEl01 := "122211222113331"
case cLetra == "9"
nEl01 := "122212222144441"
case cLetra == "0"
nEl01 := "122211432111331"
case cLetra == "¦"
nEl01 := "121442222422224"
case cLetra == "§"
nEl01 := "121442224422244"
case cLetra == "!"
nEl01 := "441444414444344"
case cLetra == "­"
nEl01 := "442444414444144"
case cLetra == "\"
nEl01 := "344444234444423"
case cLetra == "|"
nEl01 := "441444444444144"
case cLetra == "#"
nEl01 := "313134141421212"
case cLetra == "ª"
nEl01 := "444443333444424"
case cLetra == "}"
nEl01 := "421444441443144"
case cLetra == "["
nEl01 := "412444144441344"
case cLetra == "]"
nEl01 := "442144441444314"
case cLetra == "{"
nEl01 := "441244144444134"
case cLetra == &quot;<&quot;
nEl01 := &quot;443443244442344&quot;
case cLetra == &quot;>&quot;
nEl01 := &quot;443444442344324&quot;
case cLetra == '&quot;'
nEl01 := &quot;414144444444444&quot;
case cLetra == &quot;%&quot;
nEl01 := &quot;344434432432443&quot;
case cLetra == &quot;/&quot;
nEl01 := &quot;444434432432444&quot;
case cLetra == &quot;=&quot;
nEl01 := &quot;444444333443334&quot;
case cLetra == &quot;?&quot;
nEl01 := &quot;122144412444344&quot;
case cLetra == &quot;¨&quot;
nEl01 := &quot;122142144443444&quot;
case cLetra == &quot;€&quot; .OR. cLetra == &quot;‡&quot;
nEl01 := &quot;122241333443144&quot;
case cLetra == &quot;^&quot;
nEl01 := &quot;432342444244444&quot;
case cLetra == &quot;+&quot;
nEl01 := &quot;444444313444244&quot;
case cLetra == &quot;-&quot;
nEl01 := &quot;444444444443334&quot;
case cLetra == &quot;*&quot;
nEl01 := &quot;444444232443234&quot;
case cLetra == &quot;'&quot;
nEl01 := &quot;441444244444444&quot;
case cLetra == &quot;.&quot;
nEl01 := &quot;444444444444344&quot;
case cLetra == &quot;:&quot;
nEl01 := &quot;444444434444344&quot;
case cLetra == &quot;,&quot;
nEl01 := &quot;444444434443244&quot;
case cLetra == &quot;;&quot;
nEl01 := &quot;443444434443244&quot;
case cLetra == &quot;(&quot;
nEl01 := &quot;432441444442344&quot;
case cLetra == &quot&quot;
nEl01 := &quot;442344444144324&quot;
case cLetra == &quot; &quot;
nEl01 := &quot;444444444444444&quot;
otherwise
nEl01 := &quot;444444444444444&quot;
endcase

nFin := 5
nIni := 1

for nAux := 1 to 3

cDibuj := &quot;&quot;

for nAux1 := nIni to nFin

nCaracter := substr( nEl01, nAux1, 1 )

do case
case nCaracter == &quot;1&quot;
nValor := 219
case nCaracter == &quot;2&quot;
nValor := 223
case nCaracter == &quot;3&quot;
nValor := 220
case nCaracter == &quot;4&quot;
nValor := 32
case nCaracter == &quot;5&quot;
nValor := 22
endcase
cDibuj += chr( nValor )
next

nIni := nFin + 1
nFin += 5

@ nFila, nColum say cDibuj

nFila++

next

if upper( cPos ) = &quot;H&quot;
nFila := nFilaIni
nColum += 6
else
nFila += 1
endif
next

dispend()

endif

RETURN


There you are. ¡isn't it pretty!

regards.

WALT

 

[ramonzea]

i have one procedure for big letters send me a e.mail and i send you

ramonzea@hotmail.com

 

[bismir]

Try to find Flipper 6 LIBs. This fully replace graphic interface for clipper text screen. This LIBs support @..SAY, @..GET commands and all other. You can have your clipper apps fully on graphic screen, you can make graphicons, BIG letters, small letters, all you want.
I hope I help you. If you want this LIBs even so big I will send you to your mail if you send me you e-mail address.
bismir