Re: How to get the 'chars' program to work

From: Shirl <shirlgato_at_email.domain.hidden>
Date: Wed, 27 Sep 2006 20:27:30 -0600


You need to compile the program first and also link it with the appropriate object libraries. You should look at the sample EXEC files on the Workshop disks to see what to exactly do. If you don't have these, this would be difficult. I don't recall what to link with.

>From: "perkins.jason_at_email.domain.hidden" <perkins.jason_at_email.domain.hidden>
>To: "LisaList" <lisalist_at_email.domain.hidden>
>Subject: How to get the 'chars' program to work
>Date: Mon, Sep 25, 2006, 11:08 PM

> DISCLAIMER: I know nothing about how to use the workshop, or programing
> in Pascal.
> Floating around the web is an article from the Signal, which lists a
> program you can run to show off the Lisa's fonts. I've typed it all
> into the editor, but I have no clue how to get it to run. It doesn't
> seem to compile properly (do I need to comple this?) And should I have
> put in the tabs?
> So how do you use this? I'll include a copy of the program here in case
> you haven't seen it.
> What do you mean, you haven't seen Lisa's calculator font? Just run the
> following program in the Pascal Workshop, and you'll get a fascinating
> series of displays that include Lisa logos, scissors and printer icons,
> calculator keys and a Priam Whamo or two. Hit any key to display the
> next font, or hit the mouse button to quit.
> program chars; {show Lisa's fonts}
> uses {$U qd/quickdraw} quickdraw,
> {$U qd/qdsupport} qdsupport,
> {$U qd/hardware} hardware;
> const heaplim = 10000;
> var heapbuf: array[0..heaplim] of integer;
> myport: grafptr;
> event: keyevent;
> c,fontn: integer;
> info: fontinfo;
> penpos: point;
> begin
> qdinit(@heapbuf,@heapbuf[heaplim],nil);
> openport(@myport); fontn:= 0;
> repeat
> fillrect(theport^.portrect,white);
> textfont(fontn); getfontinfo(info);
> moveto(5,info.ascent+5);
> for c := 0 to 255 do
> begin
> drawchar(chr(c));
> if fontn = 3 then move(15,0);
> getpen(penpos);
> if penpos.h > (720-info.widmax) then
> moveto(5,penpos.v+info.ascent+info.descent+5);
> end;
> if keybdevent(true,true,event) then
> if event.key = $06 then halt;
> fontn := fontn+1;
> until false;
> end.
> -Jason

--~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "LisaList" group. To post to this group, send email to lisalist_at_email.domain.hidden To unsubscribe from this group, send email to lisalist-unsubscribe_at_email.domain.hidden For more options, visit this group at -~----------~----~----~----~------~----~------~--~--- Received on 2006-09-27 19:41:13

This archive was generated by hypermail 2.4.0 : 2020-01-13 12:15:20 EST