Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!unix.cis.pitt.edu!dsinc!bagate!cbmvax!peter
From: peter@cbmvax.commodore.com (Peter Cherna)
Newsgroups: comp.sys.amiga.programmer
Subject: Re: A3000/PAL
Message-ID: <22782@cbmvax.commodore.com>
Date: 28 Jun 91 16:01:54 GMT
References: <1991Jun27.203040.13870@zorch.SF-Bay.ORG>
Reply-To: peter@cbmvax.commodore.com (Peter Cherna)
Organization: Commodore-Amiga, Inc.  West Chester, PA.
Lines: 45

In article <1991Jun27.203040.13870@zorch.SF-Bay.ORG> mike@zorch.SF-Bay.ORG (Mike Smithwick) writes:
>[]
>
>How can I detect if I am on an A3000 set to PAL mode. It seems like 
>GfxBase->DisplayFlags does not reflect this. 

GfxBase->DisplayFlags represents whether the HW is PAL or not.  (Under
ECS Agnus, you can have the HW set either way; it's a jumper-post on
the A3000 and a jumper-pad on A2000's & A500's).

An NTSC machine with the Workbench in PAL mode is not the same as a
PAL-jumpered machine.  It actually wouldn't be possible to change the
software's view of the jumper on the fly.

You can look at the Workbench's screen mode like this:


	/* A buffer to hold property-information about a mode */
	struct DisplayInfo dispinfo;

	/* Default to the hardware jumper setting: */
	isPAL = GfxBase->DisplayFlags & PAL;

	/* Find Workbench screen */
	wbsc = LockPubScreen( "Workbench" );
	/* Figure out the mode of the screen */
	modeID = GetVPModeID( &wbsc->ViewPort );
	UnlockPubScreen( NULL, wbsc );

	/* Find out about the properties of this mode */
	if ( GetDisplayInfoData( NULL, &dispinfo, sizeof( struct DisplayInfo ),
	    DTAG_DISP, modeID )
	{
	    /* Override based on the Workbench screen mode */
	    isPAL = dispinfo.PropertyFlags & DIPF_IS_PAL;
	}

>mike

     Peter
--
Peter Cherna, Operating Systems Development Group, Commodore-Amiga, Inc.
{uunet|rutgers}!cbmvax!peter    peter@cbmvax.commodore.com
My opinions do not necessarily represent the opinions of my employer.
"Gosh, didn't he have anything positive to say at all?"