Solved

very tricky corners ...

Posted on 2000-03-20
3
188 Views
Last Modified: 2010-04-16
How can I create new or modify appearance of ascii characters in text mode...

I need smoother versions of the single frame corners... I.e. characters 191, 217, 192, 218 look like quarter circles.

[if possible provide a way to use the standard one simultaneously...]

thanx, in advance
0
Comment
Question by:DaNorty
3 Comments
 
LVL 5

Accepted Solution

by:
scrapdog earned 30 total points
ID: 2638463
pass the ASCII index and the character data to this procedure

the character data is typically 16 bytes per character



Procedure setasciiChar(Charnum : Byte; Var data);
Var
  offset : Word;
begin
  offset := CharNum * 32;
  Inline($FA);
  PortW[$3C4] := $0402;
  PortW[$3C4] := $0704;
  PortW[$3CE] := $0204;
  PortW[$3CE] := $0005;
  PortW[$3CE] := $0006;
  Move(data, Ptr($A000, offset)^, 16);
  PortW[$3C4] := $0302;
  PortW[$3C4] := $0304;
  PortW[$3CE] := $0004;
  PortW[$3CE] := $1005;
  PortW[$3CE] := $0E06;
  Inline($FB);
end;
0
 

Author Comment

by:DaNorty
ID: 2706969
The modified character display on screen but however do not print on the printer...  I now need a way to send  them to the printer...
0
 
LVL 3

Expert Comment

by:Mathias
ID: 2712233
Hey, I saw your question, but I saw it to late. Well, here is my code for you for nothing...
It includes load and save procedures.

procedure getchar(ch: char; var data);
begin
  outpw($3C4, $0402);
  outpw($3C4, $0704);
  outpw($3CE, $0204);
  outpw($3CE, $0005);
  outpw($3CE, $0006);
  Move(Ptr(SegA000, Ord(ch) shl 5)^, Data, 16);
  outpw($3C4, $0302);
  outpw($3C4, $0304);
  outpw($3CE, $0004);
  outpw($3CE, $1005);
  outpw($3CE, $0E06);
end;

procedure setchar(ch:char; var data);
begin
  outpw($3C4, $0402);
  outpw($3C4, $0704);
  outpw($3CE, $0204);
  outpw($3CE, $0005);
  outpw($3CE, $0006);
  move(Data, Ptr(segA000, Ord(ch) shl 5)^, 16);
  outpw($3C4, $0302);
  outpw($3C4, $0304);
  outpw($3CE, $0004);
  outpw($3CE, $1005);
  outpw($3CE, $0E06);
end;
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Often, people trade privacy and security for convenience. However in today's concrete jungle, this is an extremely foolish decision considering the vast amount of technologies being used against consumer interest. First off, I won't waste any time e…
We need a new way to communicate time sensitive or critical info.   The best part of my role at xMatters is visiting our clients all over the world to learn about how they operate their businesses, share insights that xMatters has gleaned across…
Concerto provides fully managed cloud services and the expertise to provide an easy and reliable route to the cloud. Our best-in-class solutions help you address the toughest IT challenges, find new efficiencies and deliver the best application expe…
Need to grow your business through quality cloud solutions? With everything required to build a cloud platform and solution, you may feel like the distance between you and the cloud is quite long. Help is here. Spend some time learning about the Con…

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now