summaryrefslogtreecommitdiff
path: root/Source/GetViewModes.S
blob: ff98a82106f5f6952765020ea4a23b39532861b9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
**
**	$Id: GetViewModes.S,v 21.1 92/05/15 03:22:48 chris Exp $
**	$Revision: 21.1 $
**
**	$Filename: GetViewModes.S $
**	$Author: chris $
**	$Release: 19.1 $
**	$Date: 92/05/15 03:22:48 $
**
**	iff.library/IFFL_GetViewModes
**
**	COPYRIGHT (C) 1987-1992 BY CHRISTIAN A. WEBER, BRUGGERWEG 2,
**	CH-8037 ZUERICH, SWITZERLAND.  ALL RIGHTS RESERVED.  NO PART
**	OF THIS SOFTWARE MAY BE COPIED, REPRODUCED,  OR  TRANSMITTED
**	IN ANY FORM OR BY ANY MEANS,  WITHOUT THE PRIOR WRITTEN PER-
**	MISSION OF THE AUTHOR. USE AT YOUR OWN RISK.
**


		IDNT	IFFL_GetViewModes
		SECTION	text,CODE

		INCLUDE	"IffLib.i"

		XREF	FindChunkFunc,GetBMHDFunc
		XDEF	CalcViewModes			; für SaveClip.S
		XDEF	GetViewModesFunc


******* iff.library/IFFL_GetViewModes ***************************************
*
*    NAME
*	IFFL_GetViewModes() -- Get Amiga-specific ViewModes
*
*    SYNOPSIS
*	viewmodes = IFFL_GetViewModes( iff )
*	D0                             A1
*
*	ULONG IFFL_GetViewModes( IFFL_HANDLE )
*
*    FUNCTION
*	Searches the IFF file for a 'CAMG' chunk which holds the view modes
*	information. If there is no CAMG chunk, the view modes are calcu-
*	lated using the information in the BitMapHeader structure.
*	You can directly put the low WORD of the result of a call to
*	IFFL_ GetViewModes() into the ns_ViewModes field of a NewScreen
*	structure, or you can use the whole ULONG for the SA_DisplayID tag
*	under OS 2.x.
*
*    INPUTS
*	iff - IFF file handle, from OpenIFF()
*
*    RESULT
*	viewmodes - ULONG containing the view modes (HAM, LACE, HIRES ...)
*	All forbidden bits are masked out, as suggested by CBM.
*	Under Kickstart V1.3, only the lower WORD is used.
*
*    BUGS
*	If the IFF file has no CAMG chunk and 6 bitplanes, the HAM bit
*	will be set. This is not always correct since the picture could
*	be in the Extra Halfbrite mode. You can load such Halfbrite
*	pictures into DPaint III and save them again, DPaint will generate
*	the correct CAMG chunk.
*
*    SEE ALSO
*	<graphics/displayinfo.h>
*
*****************************************************************************

	*** Flags, die nur in graphics/view.h aber nicht .i sind (!)

HAM:		EQU	$0800
SPRITES:	EQU	$4000
VP_HIDE:	EQU	$2000
GENLOCK_AUDIO:	EQU	$0100
GENLOCK_VIDEO:	EQU	$0002
EXTRA_HALFBRITE: EQU	$0080

MODESMASK:	EQU	~(SPRITES|VP_HIDE|GENLOCK_AUDIO|GENLOCK_VIDEO)

GetViewModesFunc:
		move.l	a2,-(SP)

		movea.l	a1,a2			; A2 :  IFFFile
		move.l	#'CAMG',d0
		bsr	FindChunkFunc		; setzt Z-Flag wenn not found
		beq.s	CalcEm			; not found ---> Berechnen
		movea.l	d0,a0			; Zeiger auf CAMG....
		move.l	8(a0),d0		; ViewModes
		andi.l	#MODESMASK,d0		; Verbotene Bits ausmaskieren
		bra.s	Ende			; --->

	*** ViewModes aus BMHD berechnen, 0 falls kein CAMG

CalcEm:		movea.l	a2,a1			; IFFFile
		bsr	GetBMHDFunc		; BitMapHeader suchen
	;;	tst.l	d0			; nicht gefunden?
		beq.s	Ende			; dann 0 zurückgeben
		movea.l	d0,a0			; A0 :  BMHD-Struktur
		bsr.s	CalcViewModes		; ViewModes nach D0

		cmpi.b	#6,bmh_nPlanes(a0)	; 6 Bitplanes ?
		blt.s	Ende			; nein --->
		bset	#11,d0			; ViewModes |= HAM
Ende:
		movea.l	(SP)+,a2
		rts


*****i* iff.library/CalcViewModes *******************************************
*
*    NAME
*	CalcViewModes() -- Calculate Amiga-specific ViewModes from a BMHD
*
*    SYNOPSIS
*	viewmodes = CalcViewModes( bmhd )
*	D0                         A0
*
*	ULONG CalcViewModes( struct IFFL_BMHD )
*
*    FUNCTION
*	Tries to calculate the viewmodes for a CAMG chunk by looking at
*	the bmh_Width, bmh_Height and bmh_Depth entries of a bmhd.
*	This is not always satisfactory, but we're stuck with it.
*
*    INPUTS
*	bmhd - BitMapHeader describing the picture's dimensions
*
*    RESULT
*	viewmodes - ULONG containing the view modes (LACE, HIRES)
*
*    BUGS
*	too many to mention
*
*    SEE ALSO
*	IFFL_GetViewModes(), IFFL_SaveClip()
*
*****************************************************************************

CalcViewModes:	moveq.l	#0,d0			; D0 :  ViewModes

		cmpi.b	#4,bmh_nPlanes(a0)	; mehr als 4 Planes ?
		bgt.s	NotHiRes		; ja ---> nicht HiRes

		cmpi.w	#400,bmh_Width(a0)	; Bildbreite > 400 ?
		ble.s	NotHiRes		; nein --->
		bset	#15,d0			; ViewModes |= HiRes
NotHiRes:
		cmpi.w	#320,bmh_Height(a0)	; Bildhöhe > 320 ?
		blt.s	NotInterlace		; nein --->
		bset	#2,d0			; ViewModes |= Interlace
NotInterlace:
		rts


		END