for numbers:
FUNCTION litere(numere,lin,col,color1)
// Starting postions of numbers are 14 columns apart so...
char := { " þÛ ", ; // 1 1
" Û ", ; // 2 1
"ßßßßß", ; // 3 1
"ÛßßßÛ", ; // 4 2,3,5,6,7,8,9,0
" Û", ; // 5 2,3,4,5,7,9
"Ûßßßß", ; // 6 2
"Û Ü", ; // 7 2,5,6
"ßßßßß", ; // 8 2,3,5,6,8,9,0
" ßßÛ", ; // 9 3
"Û Û", ; // 10 4,6,8,9,0
"ßßßßÛ", ; // 11 4,9
"ßßßßÛ", ; // 12 5
"ÛßßßÛ", ; // 13 8
"ÛßßßÛ", ; // 14 6
" ß", ; // 15 4,7
"Û Û", ; // 16 4
" ", ; // 17 Blank (12-Hour
mode)
"Û " } // 18 5,6
// cross-reference of chars array to construct the #s Array Pos
ref := { { 17, 17, 17, 17, 17 }, ; // Blank 1
{ 4, 10, 10, 10, 8 }, ; // Zero 2
{ 1, 2, 2, 2, 3 }, ; // One 3
{ 4, 5, 6, 7, 8 }, ; // Two 4
{ 4, 5, 9, 5, 8 }, ; // Three 5
{ 16, 10, 11, 5, 15 }, ; // Four 6
{ 4, 18, 12, 5, 8 }, ; // Five 7
{ 4, 18, 14, 10, 8 }, ; // Six 8
{ 4, 5, 5, 5, 15 }, ; // Seven 9
{ 4, 10, 13, 10, 8 }, ; // Eight 10
{ 4, 10, 11, 5, 8 } } // Nine 11
if color1=nil
color1='gr+/b'
endif
@[EMAIL PROTECTED]
(6*len(numere))-2 box replicate(' ',9) color color1
inceput=col
for i=1 to len(numere)
val_num=val(substr(numere,i,1))
FOR line = 1 to 5
@[EMAIL PROTECTED]
lin-1+line, inceput SAY char[ ref[ val_num+2, line ] ] COLOR color1
NEXT
inceput=inceput+6
next
RETURN( NIL )
"tata01" <tata01.makni@[EMAIL PROTECTED]
> wrote in message
news:etnqv35r5237pc8uoknunshbnd9cai4n54@[EMAIL PROTECTED]
> On Wed, 09 Apr 2008 06:58:31 +0200, otto <ohaldi@[EMAIL PROTECTED]
> wrote:
>
>>Hello to all,
>>
>>It is possible with clipper (DOS characters) to display a word with big
>>font ?
>>Double height/wide or something like that.
>>
>>Many thanks in advance for any help.
>>
>>Otto
>
> only nums, but you can continue, with characters
>
> ------------------------------------------------------------
>>Function BIGNUM(red, kol, nstring, nfont)
>> Local
>> redovi:={},broj:={},kolona:=0,iter,nfonts:=fontovi(nfont),razmak:=1
>> redovi:=array(len(nfonts))
>> afill(redovi,'')
>> for iter:=1 to len(nstring)
>> aadd(broj,substr(nstring,iter,1))
>> do case
>> case broj[iter]=='-';broj[iter]:='14'
>> case broj[iter]==':';broj[iter]:='13'
>> case broj[iter]==' ';broj[iter]:='12'
>> case broj[iter]==',';broj[iter]:='11'
>> case broj[iter]=='.';broj[iter]:='10'
>> endcase
>> next
>> For kolona:= 1 To len(redovi)
>> for iter:=1 to len(broj)
>>
redovi[kolona]:=redovi[kolona]+space(razmak)+nfonts[kolona][val(broj[iter])
>> + 1]
>> next
>> message(red + kolona, kol , redovi[kolona])
>> Next
>> Return Nil
>>*---------------------------
>>static func fontovi(nfont)
>> local nfonts:={}
>> nfont:=iif(pcount()==0,1,nfont)
>>do case
>> case nfont==1
>> nfonts:={{'UßßU',' U ','ßßßU','ßßßU','U
>> U','Ußßß','Ußßß','ßßßU','UßßU','UßßU',' ',' ',' ',' ',' '},;
>> {'U U',' U ','ÜÜÜU','ÜÜÜU','UÜÜU','UÜÜÜ','UÜÜÜ','
>> U','UÜÜU','UÜÜU',' ',' ',' ','ß ',' '},;
>> {'U U',' U ','U ',' U',' U',' U','U U','
U','U
>> U',' U',' ',' ',' ',' ','ßßß'},;
>> {'ßßßß',' ß ','ßßßß','ßßßß',' ß','ßßßß','ßßßß','
>> ß','ßßßß','ßßßß','ß ','U ',' ','ß ',' '}}
>> case nfont==2
>> nfonts:={{'UßU',' U ','ßßU','ßßU','U
>> U','Ußß','Ußß','ßßU','UßU','UßU',' ',' ',' ',' ',' '},;
>> {'U U',' U ','ÜÜU','ÜÜU','UÜU','UÜÜ','UÜÜ','
>> U','UÜU','UÜU',' ',' ',' ','ß',' '},;
>> {'U U',' U ','U ',' U',' U',' U','U U',' U','U U','
>> U',' ',' ',' ',' ','ßß'},;
>> {'ßßß',' ß ','ßßß','ßßß',' ß','ßßß','ßßß','
>> ß','ßßß','ßßß','ß','U',' ','ß',' '}}
>> case nfont==3
>> nfonts:={{'ÉÍ»',' » ','ÍÍ»','ÍÍ»','É ','ÉÍÍ','É
>> ','ÍÍ»','ÉÍ»','ÉÍ»',' ',' ',' ',' ',' '},;
>> {'s s',' s ','ÉÍL',' Ía','CÍ»','CÍ»','EÍ»',' s','EÍa','CÍa',' ',' ','
>> ','t','ÍÍ'},;
>> {'CÍL','ÍEÍ','CÍÍ','ÍÍL',' D','ÍÍL','CÍL',' D','CÍL',' ?','t','T','
>> ','t',' '}}
>> case nfont==4
>> nfonts:={{'ÉÍ»',' » ','OÍ»','OÍ»','É ','ÉÍÍ','É
>> ','OÍ»','ÉÍ»','ÉÍ»',' ',' ',' ',' ',' '},;
>> {'s s',' s ','ÉÍL',' Ía','CÍ»','CÍ»','EÍ»',' s','EÍa','CÍa',' ',' ','
>> ','t','ÍÍ'},;
>> {'CÍL','ÍEÍ','CÍÍ','ÍÍL',' D','ÔÍL','CÍL',' D','CÍL',' ?','t','T','
>> ','t',' '}}
>> case nfont==5
>> nfonts:={{'É»','»','Í»','Í»','É ','ÉÍ','É ','Í»','É»','É»',' ','
>> ',' ',' ',' '},;
>> {'ss','s','ÉL','Ía','C»','C»','E»',' s','Ea','Ca',' ',' ','
','t','Í'},;
>> {'CL','D','CÍ','ÍL',' D','ÍL','CL',' D','CL',' ?','t','T',' ','t','
'}}
>>endcase
>>return nfonts
|
