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:={{'ŰßßŰ',' Ű ','ßßßŰ','ßßßŰ','Ű
Ű','Űßßß','Űßßß','ßßßŰ','ŰßßŰ','ŰßßŰ',' ',' ','
',' ',' '},;
> {'Ű Ű',' Ű
','ÜÜÜŰ','ÜÜÜŰ','ŰÜÜŰ','ŰÜÜÜ','ŰÜÜÜ','
Ű','ŰÜÜŰ','ŰÜÜŰ',' ',' ',' ','ß ',' '},;
> {'Ű Ű',' Ű ','Ű ',' Ű',' Ű',' Ű','Ű
Ű',' Ű','Ű Ű',' Ű',' ',' ',' ',' ','ßßß'},;
> {'ßßßß',' ß ','ßßßß','ßßßß','
ß','ßßßß','ßßßß',' ß','ßßßß','ßßßß','ß ','Ű ','
','ß ',' '}}
> case nfont==2
> nfonts:={{'ŰßŰ',' Ű ','ßßŰ','ßßŰ','Ű
Ű','Űßß','Űßß','ßßŰ','ŰßŰ','ŰßŰ',' ',' ',' ',' ',' '},;
> {'Ű Ű',' Ű
','ÜÜŰ','ÜÜŰ','ŰÜŰ','ŰÜÜ','ŰÜÜ',' Ű','ŰÜŰ','ŰÜŰ','
',' ',' ','ß',' '},;
> {'Ű Ű',' Ű ','Ű ',' Ű',' Ű',' Ű','Ű Ű','
Ű','Ű Ű',' Ű',' ',' ',' ',' ','ßß'},;
> {'ßßß',' ß ','ßßß','ßßß','
ß','ßßß','ßßß',' ß','ßßß','ßßß','ß','Ű',' ','ß',' '}}
> case nfont==3
> nfonts:={{'ÉÍ»',' » ','ÍÍ»','ÍÍ»','É ','ÉÍÍ','É
','ÍÍ»','ÉÍ»','ÉÍ»',' ',' ',' ',' ',' '},;
> {'ş ş',' ş ','ÉÍĽ',' Íą','ČÍ»','ČÍ»','ĚÍ»','
ş','ĚÍą','ČÍą',' ',' ',' ','ţ','ÍÍ'},;
> {'ČÍĽ','ÍĘÍ','ČÍÍ','ÍÍĽ',' Đ','ÍÍĽ','ČÍĽ','
Đ','ČÍĽ',' ˝','ţ','Ţ',' ','ţ',' '}}
> case nfont==4
> nfonts:={{'ÉÍ»',' » ','ŐÍ»','ŐÍ»','É ','ÉÍÍ','É
','ŐÍ»','ÉÍ»','ÉÍ»',' ',' ',' ',' ',' '},;
> {'ş ş',' ş ','ÉÍĽ',' Íą','ČÍ»','ČÍ»','ĚÍ»','
ş','ĚÍą','ČÍą',' ',' ',' ','ţ','ÍÍ'},;
> {'ČÍĽ','ÍĘÍ','ČÍÍ','ÍÍĽ',' Đ','ÔÍĽ','ČÍĽ','
Đ','ČÍĽ',' ˝','ţ','Ţ',' ','ţ',' '}}
> case nfont==5
> nfonts:={{'É»','»','Í»','Í»','É ','ÉÍ','É
','Í»','É»','É»',' ',' ',' ',' ',' '},;
> {'şş','ş','ÉĽ','Íą','Č»','Č»','Ě»',' ş','Ěą','Čą','
',' ',' ','ţ','Í'},;
> {'ČĽ','Đ','ČÍ','ÍĽ',' Đ','ÍĽ','ČĽ',' Đ','ČĽ','
˝','ţ','Ţ',' ','ţ',' '}}
>endcase
>return nfonts
|
