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
|
/*
** Bobi - The Ultimate Amiga Bob Manipulator
**
** IFFAnim.c - Bobs aus einer IFF-Animation ausschneiden
**
** COPYRIGHT (C) 1989-1993 BY CHRISTIAN A. WEBER, 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
** PERMISSION OF THE AUTHOR. NO WARRANTY. USE AT YOUR OWN RISK.
*/
#include <libraries/iff.h>
#include <proto/exec.h>
#include <proto/graphics.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#include "Bobi.h"
#include "ByteMap.h"
extern struct Screen *mainscreen;
extern WORD actbobnum;
static char AnimPath[128];
static char AnimName[80];
/****************************************************************************
** Ein Bob aus einer Animation ausschneiden
*/
static BOOL GetNextBob(struct BitMap *bim)
{
struct ByteMap *bym;
struct MyBob *bob;
BOOL success = FALSE;
WORD width;
if(bym=MakeByteMap((WORD)(bim->BytesPerRow*8),bim->Rows))
{
BitMapToByteMap(bim,bym);
if(!AutoResizeByteMap(bym))
{
bym->Width=1; bym->Height=1;
}
if(bim=MakeBitMap(bym->Width,bym->Height,(WORD)bim->Depth))
{
ByteMapToBitMap(bym,bim);
width = bym->Width;
FreeByteMap(bym);
if(bob=BitMapToBob(0,bim,width))
{
InsertBob(bob,(WORD)(actbobnum++));
success = TRUE;
}
else ShowMonoReq2("Not enough memory to insert bob");
MyFreeBitMap(bim);
}
else
{
ShowMonoReq2("Not enough memory to insert bob");
FreeByteMap(bym);
}
}
else ShowMonoReq2("Not enough memory to insert bob");
return success;
}
/****************************************************************************
** IFF-Animation laden und ins Bobi-Format umwandeln
*/
void LoadIFFAnimFunc()
{
ULONG *ifffile,*formptr;
struct IFFL_BMHD *bmhd;
LONG count;
char *path;
struct NewScreen ns;
struct Screen *s1, *s2=NULL;
UWORD palette[128];
LockWindows();
if (path = FileRequest("Load IFF animation from Disk", "LOAD", AnimPath, AnimName))
{
if (ifffile = (ULONG *)IFFL_OpenIFF(path, IFFL_MODE_READ))
{
if(ifffile[2] == ID_ANIM)
{
formptr = ifffile+3;
if(bmhd = IFFL_GetBMHD(formptr))
{
ClearMem(&ns,sizeof(ns));
ns.Width = (bmhd->w > 64) ? bmhd->w : 64;
ns.Height = (bmhd->h > 64) ? bmhd->h : 64;
ns.Depth = (bmhd->nPlanes > 5) ? bmhd->nPlanes : 5;
ns.ViewModes = IFFL_GetViewModes(formptr);
ns.Type = CUSTOMSCREEN|SCREENQUIET|SCREENBEHIND;
if((s1 = OpenScreen(&ns)) && (s2 = OpenScreen(&ns)))
{
count = IFFL_GetColorTab(formptr,(WORD *)palette);
if(count>32) count = 32;
LoadRGB4(&s1->ViewPort,palette,count);
LoadRGB4(&s2->ViewPort,palette,count);
if(IFFL_DecodePic(formptr,&s1->BitMap))
{
ClearAll();
ScreenToFront(s1);
IFFL_DecodePic(formptr,&s2->BitMap);
formptr = IFFL_FindChunk(formptr,0L); /* 1st DLTA */
if(GetNextBob(&s1->BitMap))
{
while(*formptr==ID_FORM)
{
LONG tmp;
if(!IFFL_ModifyFrame(formptr,&s2->BitMap))
{
ShowIFFError("Bad ANIM format");
break;
}
tmp=(LONG)s2; s2=s1; s1=(struct Screen *)tmp;
ScreenToFront(s1);
if(!GetNextBob(&(s1->BitMap))) break;
formptr=IFFL_FindChunk(formptr,0L);
}
}
ScreenToFront(mainscreen);
}
else ShowIFFError("Error decoding picture");
}
else ShowMonoReq2("Can't open anim screens");
if(s1) CloseScreen(s1);
if(s2) CloseScreen(s2);
}
else ShowIFFError("Mangled IFF ANIM");
}
else
{
char buf[150];
sprintf(buf,"'%s':\nNot an IFF ANIM file!",path);
ShowMonoReq2(buf);
}
IFFL_CloseIFF(ifffile);
}
else ShowIFFError(path);
} /* if(FileRequest()) */
UnLockWindows();
}
|
