Archive for April, 1994

An email about Postrcipt

Sunday, April 3rd, 1994
To:
David S.Taylor
1817 Whitney way., #101
Winter Park, FL 32792-1475

Dear David,

Thank you for your letter. Enclosed please find more information about Rashumon.
We also include 2 Postscript Hebrew fonts with our package as well as 
5 bitmap fonts. Other fonts can be ordered seperately. 
We do not include Nikud and Ta'amim support.

To order Rashumon, please fax or send us your credit card's details. 

	Thanks,

	Michael Haephrati
	General Manager
Advertisements

Rashumon – interface.c source code

Saturday, April 2nd, 1994
#include <intuition/intuition.h>
#include <graphics/gfxbase.h>
#include <libraries/dos.h>
#include <exec/memory.h>
#include <graphics/displayinfo.h>

#include "rashumon.h"
WORD pens[]={~0};
struct Screen *pWB=0;
LONG idWB=0;
ULONG lace=0;
OpenMainScreen()
{
	Screen=0;

	while(!Screen)
	{
		Screen = (struct Screen *)OpenScreenTags((struct NewScreen *)0,
	        SA_Width,       -1,
	        SA_Height,      -1,
	        SA_Depth,       SU.Planes,
	        SA_DisplayID,   SU.Lace,
	        SA_Title, 	Title,
	        SA_Pens,        (ULONG)pens,
		SA_Font,	&hfn,
	        TAG_END);
		if(!Screen)
		{
			struct Screen *pWB=(struct Screen *)0;
			if ((pWB = LockPubScreen("Workbench")) == NULL) 
			{
				printf("No WB screen\n");
				break;
			}
			lace = (ULONG) GetVPModeID(&(pWB->ViewPort));
			if(lace!=SU.Lace)
				SU.Lace=lace;
			else
				break;
		}
	}
	if (pWB != NULL)            
		UnlockPubScreen(NULL, pWB);

	return(Screen);
}