?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Changed "*4" in "*sizeof(APTR)" for x86_64.
[AROS-Contrib.git] / dopus / Program / iffload.c
blobde05887cf0c73b393d3cb7f9efc1480cefdcdd1c
1 /*
2
3 Directory Opus 4
4 Original GPL release version 4.12
5 Copyright 1993-2000 Jonathan Potter
6
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License
9 as published by the Free Software Foundation; either version 2
10 of the License, or (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20
21 All users of Directory Opus 4 (including versions distributed
22 under the GPL) are entitled to upgrade to the latest version of
23 Directory Opus version 5 at a reduced price. Please see
24 http://www.gpsoft.com.au for more information.
25
26 The release of Directory Opus 4 under the GPL in NO WAY affects
27 the existing commercial status of Directory Opus 5.
28
29 */
30
31 #include "dopus.h"
32 #ifndef __AROS__
33 #include <devices/newmouse.h>
34 #else
35 #include <devices/rawkeycodes.h>
36 #endif
37 //#include <proto/powerpacker.h>
38 #ifdef WITHPCHG
39 #ifdef __PPC__
40 #include <hardware/custom.h>
41 struct Custom *custom = 0x00DFF000;
42 #endif
43 #include <clib/pchglib_protos.h>
44 #endif
45
46 enum {
47 PRINT_ASPECT,
48 PRINT_IMAGE,
49 PRINT_SHADE,
50 PRINT_PLACE,
51 PRINT_FORMFD,
52 PRINT_TITLE,
53 PRINT_OKAY,
54 PRINT_CANCEL,
55 PRINT_ABORT};
56
57 #define DIMBUFSIZE sizeof(struct DimensionInfo)
58
59 struct AnimFrame {
60 struct AnimFrame *next;
61 struct AnimHeader *animheader;
62 unsigned char *delta;
63 unsigned char *cmap;
64 int cmapsize;
65 };
66
67 struct DOpusAnim {
68 struct AnimFrame initial_frame;
69 struct AnimFrame *first_frame;
70 struct AnimFrame *current_frame;
71 struct AnimFrame *last_frame;
72 struct BitMap *frame_bm[2],
73 *initialframe_bm;
74 struct Image frameimage;
75 int framecount,
76 framenum,
77 framedisp,
78 speed,
79 framespersec,
80 type;
81 };
82
83 static struct NewWindow iffwin = {
84 0,0,0,0,
85 255,255,
86 IDCMP_MOUSEBUTTONS|IDCMP_RAWKEY|IDCMP_INTUITICKS|IDCMP_INACTIVEWINDOW,
87 WFLG_RMBTRAP|WFLG_BORDERLESS|WFLG_SIMPLE_REFRESH|WFLG_NOCAREREFRESH,
88 NULL,NULL,NULL,NULL,NULL,
89 0,0,0,0,CUSTOMSCREEN};
90
91 static char *picbuffer,*picturename;
92 static unsigned char *bodyptr;
93 static ULONG buffersize,bufferpos;
94
95 static ULONG *colourtable_8;
96 static UWORD *copperlist,*colourtable_4;
97
98 static struct ViewPort *ivp;
99
100 static int numcolours,currange,copperheight,
101 screenwidth,screenheight,
102 bitmapwidth,bitmapheight,
103 viewflags;
104 static int palette32,got_dpan;
105 static char doublebuffer;
106 static char specialformat;
107
108 static struct BitMapHeader bmhd;
109
110 static struct BitMap *iffbm[2];
111 static struct Window *iffwindow;
112
113 #ifdef WITHPCHG
114 static struct PCHGHeader *pchghead;
115 static char *sham;
116 #endif
117
118 #ifdef DO_DBUF
119 static struct DBufInfo *dbufinfo;
120 static struct MsgPort *dbufport;
121 #endif
122
123 static char iffscreenname[34];
124
125 static struct DOpusAnim anim;
126
127 static inline void dotitle(struct BitMapHeader *bmhd)
128 {
129 char title[100],modes[140],cols[30];
130
131 getcolstring(cols);
132 getviewmodes(modes);
133 lsprintf(title,"%ld x %ld x %ld (page %ld x %ld) %s cols (%s)",
134 (long int)bmhd->bmh_Width,
135 (long int)bmhd->bmh_Height,
136 (long int)bmhd->bmh_Depth,
137 (long int)bmhd->bmh_PageWidth,
138 (long int)bmhd->bmh_PageHeight,
139 cols,modes);
140 dostatustext(title);
141 }
142
143 int LoadPic(name)
144 char *name;
145 {
146 struct DOpusRemember *iffkey;
147 int retcode,
148 a,
149 gotbody = 0,
150 brush = 0,
151 scroll = 1,
152 mp = 1,
153 isanim = 0,
154 extflag = 0,
155 colourptr = -1,
156 coloursize,
157 imagewidth, imageheight,
158 minwidth, minheight, maxwidth, maxheight,
159 depth,
160 __unused coppersize,
161 viewmode,
162 maxframes;
163 UWORD colourlist[4];
164 ULONG chunkid,
165 chunksize,
166 chunkbuf[3];
167 struct DimensionInfo *dimension;
168 DisplayInfoHandle *handle;
169 char dimbuf[DIMBUFSIZE],
170 *ptr;
171 DPAnimChunk dpan;
172 struct AnimFrame *cur_frame = NULL,
173 *frame;
174 CRange cyclerange[6];
175 APTR dto = NULL;
176 BOOL dt_ok = 0;
177
178 picturename = name;
179 viewmode = -1;
180 anim.speed = 50000;
181 anim.framespersec = 20;
182 maxframes = 65535;
183 copperlist = NULL;
184 iffwindow = NULL;
185 iffscreen = NULL;
186 iffscreenname[0] = 0;
187 copperheight = 0;
188 currange = 0;
189 doublebuffer = 0;
190 bodyptr = NULL;
191 bufferpos = 0;
192 iffkey = NULL;
193 anim.framecount = 0;
194 specialformat = 0;
195 anim.initialframe_bm = NULL;
196 palette32 = 0;
197 got_dpan = 0;
198 anim.type = 0;
199 anim.first_frame = NULL;
200 anim.last_frame = NULL;
201 anim.initial_frame.cmap = NULL;
202 #ifdef WITHPCHG
203 pchghead = NULL;
204 sham = NULL;
205 #endif
206 #ifdef DO_DBUF
207 dbufinfo = NULL;
208 dbufport = NULL;
209 #endif
210 for (a = 0; a < 2; a++) iffbm[a] = anim.frame_bm[a] = NULL;
211
212 if (readfile(name,&picbuffer,(int *)&buffersize)) return(0);
213
214 if (! chunkread(chunkbuf,sizeof(ULONG)*3) ||
215 chunkbuf[0] != ID_FORM ||
216 ((chunkbuf[2] != ID_ANIM) && (chunkbuf[2] != ID_ILBM)))
217 {
218 DTload:
219 if (DataTypesBase)
220 {
221 if ((dto = NewDTObject(name,DTA_GroupID,GID_PICTURE,
222 // PDTA_Remap, FALSE,
223 PDTA_FreeSourceBitMap, TRUE,
224 TAG_END)))
225 {
226 struct BitMapHeader *dto_bmhd;
227
228 if (GetDTAttrs (dto,
229 PDTA_ModeID, &viewmode,
230 PDTA_BitMapHeader, &dto_bmhd,
231 PDTA_ColorRegisters, &colourptr,
232 PDTA_NumColors, &coloursize,
233 TAG_DONE)==4)
234 {
235 D(bug("viewmode(0) = %08lx\n",viewmode));
236 bmhd = *dto_bmhd;
237 coloursize*=3;
238 picbuffer=NULL;
239
240 dt_ok = TRUE;
241 //D(KDump(colourptr,coloursize));
242 }
243 }
244 }
245 if (! dt_ok)
246 {
247 retcode=IFFERR_NOTILBM;
248 goto endiff;
249 }
250 }
251 if (! dt_ok)
252 {
253 if (chunkbuf[2] == ID_ANIM) isanim = 1;
254
255 while (bufferpos<=buffersize) {
256 if (!chunkread(&chunkid,sizeof(int)) ||
257 !chunkread(&chunksize,sizeof(int)) ||
258 ((bufferpos+chunksize)>buffersize)) break;
259 switch (chunkid) {
260 case ID_FORM:
261 bufferpos+=4;
262 continue;
263 case ID_DPAN:
264 if (!isanim) break;
265 if (!(chunkread(&dpan,sizeof(DPAnimChunk)))) {
266 retcode=IFFERR_BADIFF;
267 goto endiff;
268 }
269 chunksize=0;
270 maxframes=dpan.nframes;
271 if ((anim.framespersec=dpan.framespersecond)>0)
272 anim.speed=1000000/dpan.framespersecond;
273 got_dpan=1;
274 break;
275 case ID_ANHD:
276 if (isanim && anim.framecount<maxframes &&
277 (frame=LAllocRemember(&iffkey,sizeof(struct AnimFrame),MEMF_CLEAR))) {
278 frame->animheader=(struct AnimHeader *)(picbuffer+bufferpos);
279 if (frame->animheader->ah_Interleave!=1) doublebuffer=1;
280 if (!anim.type) anim.type=frame->animheader->ah_Operation;
281
282 if (cur_frame) cur_frame->next=frame;
283 else anim.first_frame=frame;
284 cur_frame=frame;
285 }
286 break;
287 case ID_DLTA:
288 if (isanim && anim.framecount<maxframes && cur_frame) {
289 cur_frame->delta=picbuffer+bufferpos;
290 ++anim.framecount;
291 }
292 break;
293 case ID_BMHD:
294 if (!chunkread(&bmhd,sizeof(struct BitMapHeader))) {
295 retcode=IFFERR_BADIFF;
296 goto endiff;
297 }
298 if ((! isanim) && (bmhd.bmh_Depth > 8)) goto DTload;
299 chunksize=0;
300 break;
301 case ID_CMAP:
302 if (colourptr==-1) {
303 colourptr=bufferpos; coloursize=chunksize;
304 anim.initial_frame.cmap=(unsigned char *)&picbuffer[bufferpos];
305 anim.initial_frame.cmapsize=chunksize;
306 }
307 else if (isanim && anim.framecount<maxframes && cur_frame) {
308 cur_frame->cmap=(unsigned char *)&picbuffer[bufferpos];
309 cur_frame->cmapsize=chunksize;
310 }
311 break;
312 case ID_GRAB:
313 brush=1;
314 break;
315 case ID_CAMG:
316 if (!chunkread(&viewmode,sizeof(int))) {
317 retcode=IFFERR_BADIFF;
318 goto endiff;
319 }
320 chunksize=0;
321 D(bug("viewmode(0) = %08lx\n",viewmode));
322 break;
323 case ID_CTBL:
324 if ((copperlist=LAllocRemember(&iffkey,chunksize,MEMF_CLEAR))) {
325 coppersize=chunksize;
326 copperheight=chunksize/32;
327 CopyMem((char *)&picbuffer[bufferpos],(char *)copperlist,chunksize);
328 CopyMem((char *)&picbuffer[bufferpos],(char *)colourlist,8);
329 }
330 break;
331 case ID_DYCP:
332 mp=0;
333 break;
334 #ifdef WITHPCHG
335 case ID_SHAM:
336 if (!(pchghead=PCHG_SHAM2PCHG((UWORD *)&picbuffer[bufferpos],chunksize,(viewmode&LACE)?2:1))) {
337 retcode=IFFERR_NOMEM;
338 goto endiff;
339 }
340 sham=&picbuffer[bufferpos];
341 specialformat=1;
342 break;
343 case ID_PCHG:
344 pchghead=(struct PCHGHeader *)&picbuffer[bufferpos];
345 specialformat=1;
346 break;
347 #endif
348 case ID_CRNG:
349 if (currange<6) {
350 CopyMem((char *)&picbuffer[bufferpos],(char *)&cyclerange[currange],sizeof(CRange));
351 if (cyclerange[currange].rate<=CRNG_NORATE ||
352 cyclerange[currange].low==cyclerange[currange].high)
353 cyclerange[currange].active=0;
354 if (cyclerange[currange].rate>CRNG_NORATE)
355 cyclerange[currange].rate=16384/cyclerange[currange].rate;
356 else cyclerange[currange].rate=0;
357 ++currange;
358 }
359 break;
360 case ID_BODY:
361 if (!gotbody) {
362 gotbody=1;
363 bodyptr=picbuffer+bufferpos;
364 }
365 break;
366 }
367 if (chunksize) {
368 bufferpos+=chunksize;
369 if (chunksize&1) ++bufferpos;
370 }
371 }
372
373 if (!gotbody) {
374 retcode=IFFERR_BADIFF;
375 goto endiff;
376 }
377
378 if (copperlist) specialformat=1;
379 }
380
381 depth = bmhd.bmh_Depth;
382
383 if (colourptr>-1) {
384 numcolours=coloursize/3;
385
386 if (/*system_version2>=OSVER_39 &&*/ !specialformat)
387 colourtable_8=LAllocRemember(&iffkey,(coloursize+2)*sizeof(APTR),MEMF_CLEAR);
388
389 colourtable_4=LAllocRemember(&iffkey,numcolours*sizeof(UWORD),MEMF_CLEAR);
390 }
391
392 if (!colourtable_8 && !colourtable_4) {
393 retcode=IFFERR_BADIFF;
394 goto endiff;
395 }
396
397 if ((config->viewbits&VIEWBITS_8BITSPERGUN || bmhd.bmh_Pad&BMHF_CMAPOK) &&
398 colourtable_8) palette32=1;
399
400 build_palettes(&picbuffer[colourptr],coloursize,colourtable_4,colourtable_8);
401
402 imagewidth = bmhd.bmh_Width;
403 screenwidth = bmhd.bmh_Width;
404 imageheight = bmhd.bmh_Height;
405 screenheight = bmhd.bmh_Height;
406
407 minwidth = 320;
408 minheight = 200;
409
410 maxwidth = 368;
411 maxheight = (scrdata_is_pal ? 281 : 241);
412
413 if (viewmode==-1 || brush) {
414 viewflags=viewmode; viewmode=0;
415 if (bmhd.bmh_PageWidth>maxwidth) viewmode|=HIRES;
416 if (bmhd.bmh_PageHeight>maxheight) viewmode|=LACE;
417 viewflags=0;
418 }
419
420 if (!(ModeNotAvailable(viewmode))) extflag = 1;
421 D(bug("extflag,viewmode(1) = %ld,%08lx\n",extflag,viewmode));
422 if (config->viewbits & VIEWBITS_BESTMODEID)
423 {
424 ULONG newmode;
425
426 if (!(ModeNotAvailable((newmode=BestModeID(
427 // BIDTAG_NominalWidth,imagewidth,
428 // BIDTAG_NominalHeight,imageheight,
429 BIDTAG_DesiredWidth,imagewidth,
430 BIDTAG_DesiredHeight,imageheight,
431 BIDTAG_Depth,depth,
432 BIDTAG_SourceID,viewmode,
433 BIDTAG_MonitorID,GetVPModeID(&Window->WScreen->ViewPort) & MONITOR_ID_MASK,
434 TAG_END))))) viewmode=newmode;
435 D(bug("extflag,viewmode(2) = %ld,%08lx\n",extflag,viewmode));
436 }
437
438 if ((handle=FindDisplayInfo(viewmode))) {
439 if (!(a=GetDisplayInfoData(handle,dimbuf,DIMBUFSIZE,DTAG_NAME,0))) {
440 DisplayInfoHandle *temphandle;
441 ULONG tempviewmode;
442
443 tempviewmode=viewmode;
444 tempviewmode&=~(HAM_KEY|EXTRAHALFBRITE_KEY);
445
446 if ((temphandle=FindDisplayInfo(tempviewmode)))
447 a=GetDisplayInfoData(temphandle,dimbuf,DIMBUFSIZE,DTAG_NAME,0);
448 }
449 if (a && (((struct NameInfo *)dimbuf)->Name)) {
450 strcpy(iffscreenname,((struct NameInfo *)dimbuf)->Name);
451 if ((ptr=strchr(iffscreenname,':'))) strcpy(iffscreenname,ptr+1);
452 }
453 GetDisplayInfoData(handle,dimbuf,DIMBUFSIZE,DTAG_DIMS,0);
454 dimension=(struct DimensionInfo *)dimbuf;
455 maxwidth=(dimension->StdOScan.MaxX-dimension->StdOScan.MinX)+1;
456 maxheight=(dimension->StdOScan.MaxY-dimension->StdOScan.MinY)+1;
457 if (depth>dimension->MaxDepth) {
458 retcode=IFFERR_BADMODE;
459 goto endiff;
460 }
461 }
462 else extflag=0;
463
464 viewflags=0;
465 if ((viewmode&SUPER_KEY)==SUPER_KEY) viewflags|=SUPERHIRES|HIRES;
466 else if (viewmode&HIRES_KEY) viewflags|=HIRES;
467 if (viewmode&LORESLACE_KEY) viewflags|=LACE;
468 if (viewmode&HAM_KEY) viewflags|=HAM;
469 if (viewmode&EXTRAHALFBRITE_KEY) viewflags|=EXTRA_HALFBRITE;
470
471 if (!extflag) {
472 viewmode=viewflags;
473 D(bug("extflag,viewmode(3) = %ld,%08lx\n",extflag,viewmode));
474 viewmode&=0x0000ffff;
475 viewmode&=~(SPRITES|GENLOCK_AUDIO|GENLOCK_VIDEO|VP_HIDE|DUALPF|PFBA|EXTENDED_MODE);
476 viewflags=viewmode;
477 D(bug("extflag,viewmode(4) = %ld,%08lx\n",extflag,viewmode));
478
479 if (viewflags&HIRES) {
480 maxwidth *= (viewflags&SUPERHIRES) ? 4 : 2;
481 minwidth *= 2;
482 }
483 }
484
485 if (screenwidth < minwidth) screenwidth = minwidth;
486 else if (screenwidth > maxwidth) screenwidth = maxwidth;
487
488 if (!extflag && viewflags & LACE) {
489 maxheight *= 2;
490 minheight *= 2;
491 }
492 if (screenheight < minheight) screenheight = minheight;
493 else if (screenheight > maxheight) screenheight = maxheight;
494
495 bitmapwidth = (imagewidth < screenwidth) ? screenwidth : imagewidth;
496 bitmapheight = (imageheight < screenheight) ? screenheight : imageheight;
497
498 if ((bitmapwidth > screenwidth) || (bitmapheight > screenheight)) scroll=3;
499
500 dotitle(&bmhd);
501
502 if (isanim && anim.first_frame) {
503 if (!(anim.frame_bm[0]=AllocBitMap(bitmapwidth,bitmapheight,bmhd.bmh_Depth,BMF_DISPLAYABLE|BMF_CLEAR,NULL))) {
504 retcode=IFFERR_NOMEM;
505 goto endiff;
506 }
507 if (doublebuffer) {
508 if ((anim.frame_bm[1]=AllocBitMap(bitmapwidth,bitmapheight,bmhd.bmh_Depth,BMF_DISPLAYABLE|BMF_CLEAR,NULL))) {
509 anim.initialframe_bm=AllocBitMap(bitmapwidth,bitmapheight,bmhd.bmh_Depth,BMF_DISPLAYABLE|BMF_CLEAR,NULL);
510 #ifdef DO_DBUF
511 if (/*system_version2>=OSVER_39 && */
512 (dbufinfo=AllocDBufInfo(ivp))) {
513 if (dbufport=LCreatePort(NULL,0)) {
514 dbufinfo->dbi_SafeMessage.mn_ReplyPort=dbufport;
515 dbufinfo->dbi_SafeMessage.mn_Length=sizeof(struct Message);
516 }
517 }
518 #endif
519 }
520 }
521 }
522
523 if (doublebuffer) {
524 for (a=0;a<2;a++) {
525 if (anim.frame_bm[a]) {
526 if (!(iffbm[a]=LAllocRemember(&iffkey,sizeof(struct BitMap),MEMF_CLEAR))) {
527 retcode=IFFERR_NOMEMORY;
528 goto endiff;
529 }
530 CopyMem((char *)anim.frame_bm[a],(char *)iffbm[a],sizeof(struct BitMap));
531 }
532 }
533 }
534 else
535 {
536 if (!dt_ok)
537 {
538 iffbm[0]=AllocBitMap(bitmapwidth,bitmapheight,depth,BMF_DISPLAYABLE|BMF_CLEAR,NULL);
539
540 if (iffbm[0] == NULL)
541 {
542 retcode = IFFERR_NOMEMORY;
543 goto endiff;
544 }
545 }
546 }
547
548 D(bug("extflag,viewmode(5) = %ld,%lx\n",extflag,viewmode));
549 if (!(iffscreen = OpenScreenTags(NULL,
550 SA_Width, bitmapwidth,
551 SA_Height, bitmapheight,
552 SA_Depth, depth,
553 dt_ok?SA_Type:SA_BitMap, dt_ok?CUSTOMSCREEN:(IPTR)iffbm[0],
554 SA_Behind, TRUE,
555 SA_DisplayID, viewmode,
556 SA_AutoScroll, TRUE,
557 SA_Overscan, OSCAN_MAX,
558 SA_SharePens, TRUE,
559 SA_ShowTitle, FALSE,
560 SA_Colors32, colourtable_8,
561 // SA_ErrorCode, (Tag)&err,
562 TAG_END)))
563 {
564 retcode = IFFERR_NOSCREEN;
565 goto endiff;
566 }
567
568 ivp = &(iffscreen->ViewPort);
569 if (!dt_ok) LoadRGB4(ivp,nullpalette,1<<(depth>8?8:depth));
570
571 iffwin.Screen = iffscreen;
572 iffwin.Width = iffscreen->Width;
573 iffwin.Height = iffscreen->Height;
574
575 if (!(iffwindow=OpenWindow(&iffwin))) {
576 retcode=IFFERR_NOSCREEN;
577 goto endiff;
578 }
579
580 if (dt_ok)
581 {
582 SetDTAttrs(dto,NULL,NULL,PDTA_Screen,iffscreen,TAG_END);
583 DoDTMethod(dto, iffwindow, NULL, DTM_PROCLAYOUT, NULL, 1);
584 GetDTAttrs(dto, PDTA_DestBitMap, &iffbm[0],TAG_END);
585 D(bug("PDTA_DestBitMap: %08lx\n",iffbm[0]));
586 if (!(iffbm[0]))
587 {
588 GetDTAttrs(dto, PDTA_BitMap, &iffbm[0],TAG_END);
589 D(bug("PDTA_BitMap: %08lx\n",iffbm[0]));
590 }
591 // if (!(iffbm[0])) GetDTAttrs(dto, PDTA_ClassBitMap, (Tag)&iffbm[0],TAG_END);
592 //D(bug("PDTA_ClassBitMap: %08lx\n",iffbm[0]));
593 if (!(iffbm[0]))
594 {
595 retcode=IFFERR_NOMEMORY;
596 goto endiff;
597 }
598 #ifndef __AROS__
599 D(KDump(iffbm[0],sizeof(struct BitMap)));
600 #endif
601 BltBitMapRastPort(iffbm[0],0,0,iffwindow->RPort,0,0,bitmapwidth,bitmapheight,0xC0);
602 }
603
604 setnullpointer(iffwindow);
605
606 if (isanim && anim.first_frame) {
607 anim.framenum=1;
608 anim.framedisp=0;
609 anim.current_frame=anim.first_frame;
610
611 rletobuffer(bodyptr,bmhd.bmh_Width,bmhd.bmh_Height,anim.frame_bm[0],bmhd.bmh_Masking,bmhd.bmh_Compression);
612
613 if (doublebuffer) {
614 if (anim.frame_bm[1]) {
615 BltBitMap(anim.frame_bm[0],0,0,anim.frame_bm[1],0,0,bmhd.bmh_Width,bmhd.bmh_Height,0xc0,0xff,NULL);
616 if (anim.initialframe_bm)
617 BltBitMap(anim.frame_bm[0],0,0,anim.initialframe_bm,0,0,bmhd.bmh_Width,bmhd.bmh_Height,0xc0,0xff,NULL);
618 WaitBlit();
619 }
620 }
621 else {
622 anim.frameimage.LeftEdge=(bitmapwidth-bmhd.bmh_Width)/2;
623 anim.frameimage.TopEdge=(bitmapheight-bmhd.bmh_Height)/2;
624 doanimframe();
625 }
626 }
627 else if (!dt_ok) readpic(&bmhd,bodyptr,iffbm[0]);
628
629 if (numcolours>ivp->ColorMap->Count) numcolours=ivp->ColorMap->Count;
630
631 if (!copperlist) {
632 if (viewflags&HAM
633 #ifdef WITHPCHG
634 || pchghead
635 #endif
636 ) {
637 if (palette32) LoadRGB32(ivp,colourtable_8);
638 else LoadRGB4(ivp,colourtable_4,numcolours);
639 }
640 }
641 #ifdef WITHPCHG
642 if (pchghead) {
643 if (sham) PCHG_SetUserCopList(0,0,ivp,pchghead,&pchghead[1],sham);
644 else PCHG_ParsePCHG(pchghead,ivp);
645 }
646 #endif
647 ActivateWindow(iffwindow);
648 ScreenToFront(iffscreen);
649
650 if (copperlist) {
651 struct View *view = ViewAddress();
652
653 if ((copperheight>>1)>scrdata_norm_height) view->DyOffset=14+(/*system_version2?*/8/*:0*/);
654 if (mp) LoadRGB4(ivp,colourlist,4);
655 if (!InitDHIRES(mp)) {
656 }
657 }
658 else if ((depth<=8) && !specialformat && !(viewflags&HAM)) {
659 if (palette32) FadeRGB32(iffscreen,&colourtable_8[1],numcolours,1,config->fadetime);
660 else FadeRGB4(iffscreen,colourtable_4,numcolours,1,config->fadetime);
661 }
662
663 if (currange) initcycle(ivp,colourtable_4,numcolours,cyclerange,currange);
664
665 retcode = (WaitForMouseClick(scroll,iffwindow) ? -1 : 1);
666
667 if (checkcycling()) togglecycle();
668 stopcycle();
669
670 if (specialformat) {
671 ScreenToBack(iffscreen);
672 FreeVPortCopLists(ivp);
673 }
674 else if ((depth<=8) && a!=-3 && !(viewflags&HAM)) {
675 if (palette32) FadeRGB32(iffscreen,&colourtable_8[1],numcolours,-1,config->fadetime);
676 else FadeRGB4(iffscreen,colourtable_4,numcolours,-1,config->fadetime);
677 }
678
679 endiff:
680 #ifdef DO_DBUF
681 FreeDBufInfo(dbufinfo);
682 if (dbufport) LDeletePort(dbufport);
683 #endif
684 ScreenToFront(blankscreen ? blankscreen : Window->WScreen);
685
686 if (iffwindow) {
687 CloseWindow(iffwindow);
688 iffwindow = NULL;
689 }
690 if (iffscreen) {
691 CloseScreen(iffscreen);
692 iffscreen = NULL;
693 }
694 if (dt_ok)
695 {
696 DisposeDTObject(dto);
697 dto = NULL;
698 }
699 else
700 {
701 for (a = 0; a < 2; a++)
702 {
703 FreeBitMap(iffbm[a]);
704 FreeBitMap(anim.frame_bm[a]);
705 }
706 FreeBitMap(anim.initialframe_bm);
707 }
708
709 ActivateWindow(Window);
710 #ifdef WITHPCHG
711 if (pchghead && sham) {
712 FreeMem(pchghead,sizeof(struct PCHGHeader)+((pchghead->LineCount+31)/32)*4);
713 }
714 #endif
715 LFreeRemember(&iffkey);
716 FreeVec(picbuffer);
717
718 anim.first_frame = NULL;
719 colourtable_8 = NULL;
720 colourtable_4 = NULL;
721
722 return(retcode);
723 }
724
725 void rletobuffer(source,sourcewidth,sourceheight,dest,mask,comp)
726 unsigned char *source;
727 int sourcewidth,sourceheight;
728 struct BitMap *dest;
729 char mask,comp;
730 {
731 struct RLEinfo picinfo;
732
733 picinfo.sourceptr=source;
734 picinfo.destplanes=dest->Planes;
735 picinfo.imagebpr=((sourcewidth+15)/16)*2;
736 picinfo.imageheight=sourceheight;
737 picinfo.imagedepth=dest->Depth;
738 picinfo.destbpr=dest->BytesPerRow;
739 picinfo.destheight=dest->Rows;
740 picinfo.destdepth=dest->Depth;
741 picinfo.masking=mask;
742 picinfo.compression=comp;
743 picinfo.offset=0;
744
745 decoderle(&picinfo);
746 }
747
748 void readpic(bmhd,source,bmap)
749 struct BitMapHeader *bmhd;
750 unsigned char *source;
751 struct BitMap *bmap;
752 {
753 int rowbytes,bmrbytes,rows;
754 int byteoff=0;
755 struct RLEinfo picinfo;
756
757 rowbytes=((bmhd->bmh_Width+15)/16)*2;
758 bmrbytes=((GetBitMapAttr(bmap,BMA_WIDTH)+15)/16)*2;
759
760 if ((rows=bmhd->bmh_Height)>bmap->Rows) rows=bmap->Rows;
761
762 picinfo.sourceptr=source;
763 picinfo.destplanes=bmap->Planes;
764 picinfo.imagebpr=rowbytes;
765 picinfo.imageheight=rows;
766 picinfo.imagedepth=bmhd->bmh_Depth;
767 picinfo.destbpr=bmrbytes;
768 picinfo.destheight=bmap->Rows;
769 picinfo.destdepth=bmap->Depth;
770 picinfo.masking=bmhd->bmh_Masking;
771 picinfo.compression=bmhd->bmh_Compression;
772 picinfo.offset=byteoff;
773
774 decoderle(&picinfo);
775 }
776
777 void decoderle(rleinfo)
778 struct RLEinfo *rleinfo;
779 {
780 register char *source,*dest;
781 register int copy,col;
782 register char count;
783 register int plane,row,bmoffset,planes;
784
785 planes=rleinfo->imagedepth;
786 if (rleinfo->masking==mskHasMask) ++planes;
787 source=rleinfo->sourceptr;
788
789 switch (rleinfo->compression) {
790 case cmpByteRun1:
791 bmoffset=rleinfo->offset;
792 for (row=0;row<rleinfo->imageheight;row++) {
793 for (plane=0;plane<planes;plane++) {
794 if (plane<rleinfo->destdepth && rleinfo->destplanes[plane])
795 dest=(char *)(rleinfo->destplanes[plane]+bmoffset);
796 else dest=NULL;
797
798 for (col=0;col<rleinfo->imagebpr;) {
799 if ((count=*source++)>=0) {
800 copy=count+1;
801 col+=copy;
802 if (dest) {
803 while (copy--) *dest++=*source++;
804 }
805 else source+=copy;
806 }
807 else if (count!=-128) {
808 copy=1-count;
809 col+=copy;
810 if (dest) {
811 while (copy--) *dest++=*source;
812 }
813 ++source;
814 }
815 }
816 }
817 bmoffset+=rleinfo->destbpr;
818 }
819 break;
820 case cmpNone:
821 bmoffset=rleinfo->offset;
822 for (row=0;row<rleinfo->imageheight;row++) {
823 for (plane=0;plane<planes;plane++) {
824 if (plane<rleinfo->destdepth)
825 CopyMem(source,(char *)rleinfo->destplanes[plane]+bmoffset,rleinfo->imagebpr);
826 source+=rleinfo->imagebpr;
827 }
828 bmoffset+=rleinfo->destbpr;
829 }
830 break;
831 }
832 }
833
834 void doanimframe()
835 {
836 struct AnimFrame *frame;
837
838 if (anim.last_frame) {
839 frame=anim.last_frame;
840 anim.last_frame=anim.last_frame->next;
841 }
842 else {
843 frame=&anim.initial_frame;
844 anim.last_frame=anim.first_frame;
845 }
846
847 if (frame->cmap) {
848 build_palettes(frame->cmap,frame->cmapsize,colourtable_4,colourtable_8);
849 if (palette32) LoadRGB32(ivp,colourtable_8);
850 else LoadRGB4(ivp,colourtable_4,numcolours);
851 }
852
853 if (doublebuffer && iffbm[1]) {
854 #ifdef DO_DBUF
855 if (dbufport) {
856 ChangeVPBitMap(ivp,iffbm[anim.framedisp],dbufinfo);
857 WaitPort(dbufport);
858 GetMsg(dbufport);
859 }
860 else {
861 iffscreen->RastPort.BitMap=iffbm[anim.framedisp];
862 iffscreen->ViewPort.RasInfo->BitMap=iffbm[anim.framedisp];
863 MakeScreen(iffscreen);
864 RethinkDisplay();
865 }
866 #else
867 iffscreen->RastPort.BitMap=iffbm[anim.framedisp];
868 iffscreen->ViewPort.RasInfo->BitMap=iffbm[anim.framedisp];
869 MakeScreen(iffscreen);
870 RethinkDisplay();
871 #endif
872 }
873 else {
874 BltBitMap(anim.frame_bm[anim.framedisp],0,0,
875 iffwindow->RPort->BitMap,anim.frameimage.LeftEdge,anim.frameimage.TopEdge,
876 bmhd.bmh_Width,bmhd.bmh_Height,0xc0,0xff,NULL);
877 WaitBlit();
878 }
879 if (anim.frame_bm[1]) anim.framedisp=1-anim.framedisp;
880
881 if (!anim.current_frame) {
882 if (anim.frame_bm[1]) {
883 if (anim.initialframe_bm) {
884 BltBitMap(anim.initialframe_bm,0,0,
885 anim.frame_bm[anim.framedisp],0,0,
886 bmhd.bmh_Width,bmhd.bmh_Height,0xc0,0xff,NULL);
887 WaitBlit();
888 }
889 else rletobuffer(bodyptr,bmhd.bmh_Width,bmhd.bmh_Height,
890 anim.frame_bm[anim.framedisp],bmhd.bmh_Masking,bmhd.bmh_Compression);
891 }
892 if (got_dpan || anim.framenum==0) {
893 anim.current_frame=anim.first_frame;
894 anim.last_frame=anim.first_frame;
895 anim.framenum=1;
896 }
897 else anim.framenum=0;
898 }
899
900 if (anim.framenum>0) {
901 switch (anim.current_frame->animheader->ah_Operation) {
902 case 0:
903 if (anim.current_frame->delta)
904 rletobuffer(anim.current_frame->delta,bmhd.bmh_Width,bmhd.bmh_Height,
905 anim.frame_bm[anim.framedisp],bmhd.bmh_Masking,bmhd.bmh_Compression);
906 break;
907 case 5:
908 doriff(anim.current_frame->delta,anim.frame_bm[anim.framedisp],
909 (anim.current_frame->animheader->ah_Flags&2 || !anim.frame_bm[1]),bmhd.bmh_Width,0);
910 break;
911 case 7:
912 doriff7(anim.current_frame->delta,anim.frame_bm[anim.framedisp],
913 bmhd.bmh_Width,(anim.current_frame->animheader->ah_Flags&1)?2:1);
914 break;
915 case 8:
916 doriff(anim.current_frame->delta,anim.frame_bm[anim.framedisp],
917 1,bmhd.bmh_Width,(anim.current_frame->animheader->ah_Flags&1)?2:1);
918 break;
919 }
920 ++anim.framenum;
921 anim.current_frame=anim.current_frame->next;
922 }
923 }
924
925 void doriff(delta,image,xor,sourcewidth,size)
926 unsigned char *delta;
927 struct BitMap *image;
928 int xor,sourcewidth,size;
929 {
930 int plane,*dptr;
931 unsigned char *data;
932
933 sourcewidth=((sourcewidth+15)/16)*2;
934
935 if ((dptr=(int *)delta)) {
936 for (plane=0;plane<image->Depth;plane++) {
937 if (dptr[plane]) {
938 data=(unsigned char *)delta+dptr[plane];
939 if (size==0) {
940 if (xor) decode_riff_xor(data,image->Planes[plane],image->BytesPerRow,sourcewidth);
941 else decode_riff_set(data,image->Planes[plane],image->BytesPerRow,sourcewidth);
942 }
943 else if (size==1)
944 decode_riff_short((UWORD *)data,image->Planes[plane],image->BytesPerRow,sourcewidth);
945 else decode_riff_long((ULONG *)data,image->Planes[plane],image->BytesPerRow,sourcewidth);
946 }
947 }
948 }
949 }
950
951 void doriff7(delta,image,sourcewidth,size)
952 unsigned char *delta;
953 struct BitMap *image;
954 int sourcewidth,size;
955 {
956 int plane,*dptr;
957 unsigned char *data;
958 unsigned char *opcode;
959
960 sourcewidth=((sourcewidth+15)/16)*2;
961
962 if ((dptr=(int *)delta)) {
963 for (plane=0;plane<image->Depth;plane++) {
964 if (dptr[plane] && dptr[plane+8]) {
965 opcode=(unsigned char *)delta+dptr[plane];
966 data=(unsigned char *)delta+dptr[plane+8];
967 if (size==1)
968 decode_riff7_short((UWORD *)data,opcode,image->Planes[plane],image->BytesPerRow,sourcewidth);
969 else decode_riff7_long((ULONG *)data,opcode,image->Planes[plane],image->BytesPerRow,sourcewidth);
970 }
971 }
972 }
973 }
974
975 void decode_riff_xor(delta,image,rowbytes,sourcebytes)
976 unsigned char *delta;
977 char *image;
978 int rowbytes,sourcebytes;
979 {
980 int column,opcount;
981 unsigned char *data,ch;
982
983 for (column=0;column<sourcebytes;column++) {
984 data=image+column;
985 opcount=*delta++;
986 while (opcount--) {
987 ch=*delta++;
988 if (ch) {
989 if (!(ch&128)) data+=rowbytes*ch;
990 else {
991 ch&=127;
992 while (ch--) {
993 *data^=*delta++;
994 data+=rowbytes;
995 }
996 }
997 }
998 else {
999 ch=*delta++;
1000 while (ch--) {
1001 *data^=*delta;
1002 data+=rowbytes;
1003 }
1004 ++delta;
1005 }
1006 }
1007 }
1008 }
1009
1010 void decode_riff_set(delta,image,rowbytes,sourcebytes)
1011 unsigned char *delta;
1012 char *image;
1013 int rowbytes,sourcebytes;
1014 {
1015 int column,opcount;
1016 unsigned char *data,ch;
1017
1018 for (column=0;column<sourcebytes;column++) {
1019 data=image+column;
1020 opcount=*delta++;
1021 while (opcount--) {
1022 ch=*delta++;
1023 if (ch) {
1024 if (!(ch&128)) data+=rowbytes*ch;
1025 else {
1026 ch&=127;
1027 while (ch--) {
1028 *data=*delta++;
1029 data+=rowbytes;
1030 }
1031 }
1032 }
1033 else {
1034 ch=*delta++;
1035 while (ch--) {
1036 *data=*delta;
1037 data+=rowbytes;
1038 }
1039 ++delta;
1040 }
1041 }
1042 }
1043 }
1044
1045 void decode_riff_short(delta,image,rowbytes,sourcebytes)
1046 UWORD *delta;
1047 unsigned char *image;
1048 int rowbytes,sourcebytes;
1049 {
1050 int column,opcount;
1051 unsigned char *data;
1052 UWORD ch;
1053
1054 sourcebytes/=2;
1055
1056 for (column=0;column<sourcebytes;column++) {
1057 data=(unsigned char *)(image+(column*2));
1058 opcount=*delta++;
1059 while (opcount--) {
1060 ch=*delta++;
1061 if (ch) {
1062 if (!(ch&0x8000)) data+=rowbytes*ch;
1063 else {
1064 ch&=0x7fff;
1065 while (ch--) {
1066 *(UWORD *)data=*delta++;
1067 data+=rowbytes;
1068 }
1069 }
1070 }
1071 else {
1072 ch=*delta++;
1073 while (ch--) {
1074 *(UWORD *)data=*delta;
1075 data+=rowbytes;
1076 }
1077 ++delta;
1078 }
1079 }
1080 }
1081 }
1082
1083 void decode_riff_long(delta,image,rowbytes,sourcebytes)
1084 ULONG *delta;
1085 unsigned char *image;
1086 int rowbytes,sourcebytes;
1087 {
1088 int column,opcount;
1089 unsigned char *data;
1090 ULONG ch;
1091
1092 sourcebytes/=4;
1093
1094 for (column=0;column<sourcebytes;column++) {
1095 data=(unsigned char *)(image+(column*4));
1096 opcount=*delta++;
1097 while (opcount--) {
1098 ch=*delta++;
1099 if (ch) {
1100 if (!(ch&0x80000000)) data+=rowbytes*ch;
1101 else {
1102 ch&=0x7fffffff;
1103 while (ch--) {
1104 *(ULONG *)data=*delta++;
1105 data+=rowbytes;
1106 }
1107 }
1108 }
1109 else {
1110 ch=*delta++;
1111 while (ch--) {
1112 *(ULONG *)data=*delta;
1113 data+=rowbytes;
1114 }
1115 ++delta;
1116 }
1117 }
1118 }
1119 }
1120
1121 void decode_riff7_short(delta,opcode,image,rowbytes,sourcebytes)
1122 UWORD *delta;
1123 unsigned char *opcode;
1124 unsigned char *image;
1125 int rowbytes,sourcebytes;
1126 {
1127 int column,opcount;
1128 unsigned char *data,ch;
1129
1130 sourcebytes/=2;
1131
1132 for (column=0;column<sourcebytes;column++) {
1133 data=(unsigned char *)(image+(column*2));
1134 opcount=*opcode++;
1135 while (opcount--) {
1136 ch=*opcode++;
1137 if (ch) {
1138 if (!(ch&0x80)) data+=rowbytes*ch;
1139 else {
1140 ch&=0x7f;
1141 while (ch--) {
1142 *(UWORD *)data=*delta++;
1143 data+=rowbytes;
1144 }
1145 }
1146 }
1147 else {
1148 ch=*opcode++;
1149 while (ch--) {
1150 *(UWORD *)data=*delta;
1151 data+=rowbytes;
1152 }
1153 ++delta;
1154 }
1155 }
1156 }
1157 }
1158
1159 void decode_riff7_long(delta,opcode,image,rowbytes,sourcebytes)
1160 ULONG *delta;
1161 unsigned char *opcode;
1162 unsigned char *image;
1163 int rowbytes,sourcebytes;
1164 {
1165 int column,opcount;
1166 unsigned char *data,ch;
1167
1168 sourcebytes/=4;
1169
1170 for (column=0;column<sourcebytes;column++) {
1171 data=(unsigned char *)(image+(column*4));
1172 opcount=*opcode++;
1173 while (opcount--) {
1174 ch=*opcode++;
1175 if (ch) {
1176 if (!(ch&0x80)) data+=rowbytes*ch;
1177 else {
1178 ch&=0x7f;
1179 while (ch--) {
1180 *(ULONG *)data=*delta++;
1181 data+=rowbytes;
1182 }
1183 }
1184 }
1185 else {
1186 ch=*opcode++;
1187 while (ch--) {
1188 *(ULONG *)data=*delta;
1189 data+=rowbytes;
1190 }
1191 ++delta;
1192 }
1193 }
1194 }
1195 }
1196
1197 int WaitForMouseClick(tits,wind)
1198 int tits;
1199 struct Window *wind;
1200 {
1201 struct IntuiMessage *msg;
1202 ULONG class;
1203 UWORD code,qual;
1204 int ticks,waitfor=0,pon=0,waitbits,retcode=1,gottimer=0,origspeed,startanim,delta;
1205 struct timerequest treq;
1206
1207 while ((msg=(struct IntuiMessage *) GetMsg(wind->UserPort)))
1208 ReplyMsg((struct Message *)msg);
1209 if (!anim.first_frame && config->showdelay>0) {
1210 waitfor=config->showdelay*10; ticks=0;
1211 }
1212
1213 origspeed=anim.speed;
1214
1215 waitbits=1<<wind->UserPort->mp_SigBit;
1216 if (anim.first_frame) {
1217 if (!(OpenDevice(TIMERNAME,UNIT_VBLANK,&treq.tr_node,0))) {
1218 treq.tr_node.io_Message.mn_ReplyPort=general_port;
1219 treq.tr_node.io_Command=TR_ADDREQUEST;
1220 treq.tr_node.io_Flags=0;
1221 treq.tr_time.tv_secs=0;
1222 treq.tr_time.tv_micro=10;
1223 SendIO(&treq.tr_node);
1224 waitbits|=1<<general_port->mp_SigBit;
1225 gottimer=1;
1226 }
1227 if (!(startanim=(!(config->viewbits&VIEWBITS_PAUSEANIMS))) && doublebuffer)
1228 doanimframe();
1229 }
1230
1231 FOREVER {
1232 if (anim.first_frame) {
1233 while (GetMsg(general_port));
1234 if (CheckIO(&treq.tr_node)) {
1235 WaitIO(&treq.tr_node);
1236 treq.tr_time.tv_secs=0;
1237 treq.tr_time.tv_micro=anim.speed;
1238 SendIO(&treq.tr_node);
1239 if (startanim) doanimframe();
1240 }
1241 }
1242 while ((msg=(struct IntuiMessage *) GetMsg(wind->UserPort))) {
1243 class=msg->Class; code=msg->Code; qual=msg->Qualifier;
1244 ReplyMsg((struct Message *) msg);
1245 switch (class) {
1246 case IDCMP_INTUITICKS:
1247 if (waitfor && (++ticks)>=waitfor) retcode=0;
1248 break;
1249 case IDCMP_RAWKEY:
1250 if (code>=0x50 && code<=0x59) { // F1-F10
1251 code-=0x50;
1252 anim.speed=(code*10000)+10;
1253 break;
1254 }
1255 switch (code) {
1256 case 0x0b: // -
1257 if ((anim.speed+=10000)>1000000) anim.speed=1000000;
1258 break;
1259 case 0x0c: // =
1260 if ((anim.speed-=10000)<10) anim.speed=10;
1261 break;
1262 case 0x0d: // '\'
1263 anim.speed=origspeed;
1264 break;
1265 case 0x21: // S
1266 startanim=1-startanim;
1267 break;
1268 case 0x36: // N
1269 if (anim.first_frame) {
1270 startanim=0;
1271 doanimframe();
1272 }
1273 break;
1274 case CURSOR_LEFT:
1275 case RAWKEY_NM_WHEEL_LEFT:
1276 case 0x2d: // NUM-4
1277 case CURSOR_RIGHT:
1278 case RAWKEY_NM_WHEEL_RIGHT:
1279 case 0x2f: // NUM-6
1280 if (tits!=3) break;
1281 if (qual&IEQUALIFIER_CONTROL) delta=bitmapwidth;
1282 else if (qual&IEQUALIFIER_ANYSHIFT) delta=screenwidth-20;
1283 else delta=2;
1284 if (code==CURSOR_LEFT || code==0x2d || code== RAWKEY_NM_WHEEL_LEFT) delta=-delta;
1285
1286 MoveScreen(wind->WScreen,-delta,0);
1287 break;
1288 case CURSOR_UP:
1289 case RAWKEY_NM_WHEEL_UP:
1290 case 0x3e: // NUM-8
1291 case CURSOR_DOWN:
1292 case RAWKEY_NM_WHEEL_DOWN:
1293 case 0x1e: // NUM-2
1294 if (tits!=3) break;
1295 if (qual&IEQUALIFIER_CONTROL) delta=bitmapheight;
1296 else if (qual&IEQUALIFIER_ANYSHIFT) delta=screenheight-20;
1297 else delta=2;
1298 if (code==CURSOR_UP || code==RAWKEY_NM_WHEEL_UP || code==0x3e) {
1299 delta=-delta;
1300 if (wind->WScreen->TopEdge > delta) delta = wind->WScreen->TopEdge;
1301 }
1302 MoveScreen(wind->WScreen,0,-delta);
1303 break;
1304 case 0x44: // ENTER
1305 retcode = ((tits == 2) ? -2 : 0);
1306 break;
1307 case 0x45: // ESC
1308 retcode=-1;
1309 break;
1310 case 0x10: // Q
1311 if (!(qual&IEQUALIFIER_REPEAT)) retcode=0;
1312 break;
1313 case 0x42: // TAB
1314 if (tits&1 && currange) togglecycle();
1315 break;
1316 case 0x5f: // HELP
1317 case 0x19: // P
1318 case 0x40: // SPACE
1319 if (!(qual&IEQUALIFIER_REPEAT)) {
1320 ModifyIDCMP(wind,(wind->IDCMPFlags&~IDCMP_INACTIVEWINDOW)|IDCMP_ACTIVEWINDOW);
1321 if (tits&1) gfxprint(wind,&iffscreen->RastPort,0,0,bitmapwidth,bitmapheight,1);
1322 else gfxprint(wind,wind->RPort,0,0,wind->Width,wind->Height,0);
1323 }
1324 break;
1325 case 0x39: // .
1326 if (pon) setnullpointer(wind);
1327 else ClearPointer(wind);
1328 pon^=1;
1329 break;
1330 case 0x1a: // [
1331 if (colourtable_4 && !specialformat)
1332 LoadRGB4(ivp,colourtable_4,numcolours);
1333 break;
1334 case 0x1b: // ]
1335 if (colourtable_8 && !specialformat)
1336 LoadRGB32(ivp,colourtable_8);
1337 break;
1338 }
1339 break;
1340 case IDCMP_ACTIVEWINDOW:
1341 ModifyIDCMP(wind,(wind->IDCMPFlags&~IDCMP_ACTIVEWINDOW)|IDCMP_INACTIVEWINDOW);
1342 break;
1343 case IDCMP_INACTIVEWINDOW:
1344 if (IntuitionBase->ActiveScreen!=wind->WScreen) {
1345 retcode=-3;
1346 break;
1347 }
1348 code=SELECTDOWN;
1349 case IDCMP_MOUSEBUTTONS:
1350 if (code==SELECTDOWN) retcode=0;
1351 else if (code==MENUDOWN) retcode=-1;
1352 break;
1353 }
1354 if (retcode!=1) break;
1355 }
1356 if (retcode!=1) break;
1357 Wait(waitbits);
1358 }
1359 if (anim.first_frame && gottimer) {
1360 if (!(CheckIO(&treq.tr_node)))
1361 AbortIO(&treq.tr_node);
1362 WaitIO(&treq.tr_node);
1363 CloseDevice(&treq.tr_node);
1364 while (GetMsg(general_port));
1365 }
1366 return(retcode);
1367 }
1368
1369 int chunkread(buf,nbytes)
1370 void *buf;
1371 ULONG nbytes;
1372 {
1373 if (bufferpos+nbytes>buffersize) return(0);
1374 CopyMem((char *)&picbuffer[bufferpos],(char *)buf,nbytes);
1375 bufferpos+=nbytes;
1376 return(1);
1377 }
1378
1379 void getcolstring(str)
1380 char *str;
1381 {
1382 if (viewflags&HAM || specialformat) {
1383 if (bmhd.bmh_Depth==8) strcpy(str,"256K");
1384 else strcpy(str,"4096");
1385 }
1386 else lsprintf(str,"%ld",(long int)(1<<bmhd.bmh_Depth));
1387 }
1388
1389 void gfxprint(wind,rast,x,y,w,h,iff)
1390 struct Window *wind;
1391 struct RastPort *rast;
1392 int x,y,w,h,iff;
1393 {
1394 static struct NewScreen printscreen={
1395 0,0,320,0,2,
1396 0,1,0,
1397 CUSTOMSCREEN|SCREENQUIET|SCREENBEHIND|NS_EXTENDED,
1398 &screen_attr,NULL,NULL,NULL};
1399 static struct NewWindow printwin={
1400 0,0,320,0,0,0,
1401 IDCMP_GADGETUP|IDCMP_VANILLAKEY,
1402 WFLG_RMBTRAP|WFLG_BORDERLESS,
1403 NULL,NULL,NULL,NULL,NULL,
1404 0,0,0,0,CUSTOMSCREEN};
1405 static struct Image
1406 printcheckimage={7,2,13,7,1,NULL,1,0,NULL},
1407 printnullcheckimage={7,2,13,7,1,NULL,0,0,NULL};
1408 static struct Gadget
1409 printgadgets[8]={
1410 {&printgadgets[1],142,104,123,14,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1411 NULL,NULL,NULL,GAD_CYCLE,NULL,PRINT_ASPECT,NULL},
1412 {&printgadgets[2],142,120,123,14,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1413 NULL,NULL,NULL,GAD_CYCLE,NULL,PRINT_IMAGE,NULL},
1414 {&printgadgets[3],142,136,123,14,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1415 NULL,NULL,NULL,GAD_CYCLE,NULL,PRINT_SHADE,NULL},
1416 {&printgadgets[4],142,152,123,14,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1417 NULL,NULL,NULL,GAD_CYCLE,NULL,PRINT_PLACE,NULL},
1418 {&printgadgets[5],18,168,26,11,GFLG_GADGIMAGE|GFLG_GADGHIMAGE|GFLG_SELECTED,GACT_RELVERIFY|GACT_TOGGLESELECT,GTYP_BOOLGADGET,
1419 (APTR)&printnullcheckimage,(APTR)&printcheckimage,NULL,GAD_CHECK,NULL,PRINT_FORMFD,NULL},
1420 {&printgadgets[6],142,168,26,11,GFLG_GADGIMAGE|GFLG_GADGHIMAGE,GACT_RELVERIFY|GACT_TOGGLESELECT,GTYP_BOOLGADGET,
1421 (APTR)&printnullcheckimage,(APTR)&printcheckimage,NULL,GAD_CHECK,NULL,PRINT_TITLE,NULL},
1422 {&printgadgets[7],20,186,100,12,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1423 NULL,NULL,NULL,0,NULL,PRINT_OKAY,NULL},
1424 {NULL,196,186,100,12,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1425 NULL,NULL,NULL,0,NULL,PRINT_CANCEL,NULL}},
1426 abortprintgad={
1427 NULL,60,0,200,80,GFLG_GADGHCOMP,GACT_RELVERIFY,GTYP_BOOLGADGET,
1428 NULL,NULL,NULL,0,NULL,PRINT_ABORT,NULL};
1429 static char
1430 print_gads_sel[4]={0,0,0,0},
1431 print_gads_max[4]={1,1,2,1};
1432 static UWORD basepalette[4]={0xaaa,0x000,0xfff,0x679};
1433 static char firsttime;
1434
1435 struct IntuiMessage *msg;
1436 struct Window *pwin;
1437 struct Screen *pscr;
1438 struct RastPort *prp;
1439 struct DOpusRemember *pkey=NULL;
1440 struct PrinterData *pd;
1441 struct Preferences *prefs;
1442 union printerIO *print_request; /* IO request for Print operation */
1443 APTR save;
1444 ULONG class;
1445 UWORD code,gadgetid,qual;
1446 int a,/*b,*/abort=0,goff,fnum;
1447 char buf[200],modes[140],*ptr,pactcode[6],cols[30],title[120];
1448 char
1449 *printgadtxt[9],
1450 *printabortgadtxt[2]={NULL,NULL},
1451 *print_aspect_txt[2],
1452 *print_image_txt[2],
1453 *print_shade_txt[3],
1454 *print_placement_txt[2],
1455 **print_gads_txt[4]={
1456 print_aspect_txt,
1457 print_image_txt,
1458 print_shade_txt,
1459 print_placement_txt};
1460
1461 if (scrdata_is_pal) {
1462 printscreen.Height=printwin.Height=256;
1463 goff=28;
1464 }
1465 else {
1466 printscreen.Height=printwin.Height=200;
1467 goff=0;
1468 }
1469
1470 for (a=0;a<7;a++) {
1471 if (a==5) printgadtxt[a]=globstring[STR_PRINTTITLE];
1472 else if (a==6) printgadtxt[a]=globstring[STR_PRINT];
1473 else printgadtxt[a]=globstring[STR_ASPECT+a];
1474 if (a<6) {
1475 pactcode[a] = getkeyshortcut(printgadtxt[a]);
1476 /* for (b=0;;b++) {
1477 if (!printgadtxt[a][b]) break;
1478 if (printgadtxt[a][b]=='_') {
1479 pactcode[a]=ToLower(printgadtxt[a][b+1]);
1480 break;
1481 }
1482 }*/
1483 }
1484 }
1485
1486 printgadtxt[7]=str_cancelstring;
1487 printgadtxt[8]=NULL;
1488 printabortgadtxt[0]=globstring[STR_ABORT_PRINT];
1489 for (a=0;a<2;a++) {
1490 print_aspect_txt[a]=globstring[STR_PORTRAIT+a];
1491 print_image_txt[a]=globstring[STR_POSITIVE+a];
1492 print_placement_txt[a]=globstring[STR_CENTER+a];
1493 }
1494 for (a=0;a<3;a++) print_shade_txt[a]=globstring[STR_BLACK_WHITE+a];
1495
1496 /*if (system_version2 >= OSVER_39)*/
1497 {
1498 class = BestModeID(BIDTAG_NominalWidth, printscreen.Width,
1499 BIDTAG_NominalHeight, printscreen.Height,
1500 BIDTAG_Depth, printscreen.Depth,
1501 BIDTAG_MonitorID, GetVPModeID(&Window->WScreen->ViewPort) & MONITOR_ID_MASK,
1502 TAG_END);
1503 D(bug("Print screen ModeID: %lx\n",class));
1504 if (class == INVALID_ID) class = LORES_KEY;
1505 }
1506 if (!(pscr=OpenScreenTags(&printscreen,
1507 SA_DisplayID, class,
1508 SA_Pens, (IPTR)scr_drawinfo,
1509 TAG_END)))
1510 return;
1511 LoadRGB4(&(pscr->ViewPort),basepalette,4);
1512 printwin.Screen=pscr;
1513 if (!(pwin=OpenWindow(&printwin))) {
1514 CloseScreen(pscr);
1515 return;
1516 }
1517 prp=pwin->RPort;
1518 SetFont(prp,scr_font[FONT_GENERAL]);
1519 SetAPen(prp,1);
1520 Do3DFrame(prp,0,4+goff,320,88,globstring[STR_DESCRIPTION],2,1);
1521 Do3DFrame(prp,0,98+goff,320,86,globstring[STR_PRINT_CONTROL],2,1);
1522
1523 if (iff) {
1524 ptr=BaseName(picturename);
1525 getcolstring(cols);
1526 lsprintf(buf,"%12s : %s",
1527 globstring[STR_FILE],
1528 ptr);
1529 iffinfotxt(prp,buf,7,19+goff);
1530
1531 lsprintf(buf,"%12s : %ld x %ld",
1532 globstring[STR_IMAGE_SIZE],
1533 (long int)bmhd.bmh_Width,
1534 (long int)bmhd.bmh_Height);
1535 iffinfotxt(prp,buf,7,35+goff);
1536
1537 if (anim.first_frame) {
1538 if (anim.framenum<2) fnum=1;
1539 else fnum=anim.framenum-1;
1540 lsprintf(buf,"%12s : %ld %s %ld @ %ld/sec",
1541 globstring[STR_NUM_FRAMES],
1542 (long int)fnum,
1543 globstring[STR_OF],
1544 (long int)(anim.framecount+(1-got_dpan)),
1545 (long int)anim.framespersec);
1546 iffinfotxt(prp,buf,7,43+goff);
1547
1548 lsprintf(buf,"%12s : ANIM Op %ld",
1549 globstring[STR_ANIM_TYPE],
1550 (long int)anim.type);
1551 iffinfotxt(prp,buf,7,51+goff);
1552
1553 lsprintf(title,"IFF ANIM : %s %s %ld %s %ld %ld x %ld x %s\n\n",
1554 ptr,
1555 globstring[STR_FRAME],
1556 (long int)fnum,
1557 globstring[STR_OF],
1558 (long int)(anim.framecount+1),
1559 (long int)bmhd.bmh_Width,
1560 (long int)bmhd.bmh_Height,
1561 cols);
1562 }
1563 else {
1564 lsprintf(buf,"%12s : %ld x %ld",
1565 globstring[STR_PAGE_SIZE],
1566 (long int)bmhd.bmh_PageWidth,
1567 (long int)bmhd.bmh_PageHeight);
1568 iffinfotxt(prp,buf,7,43+goff);
1569
1570 lsprintf(buf,"%12s : %ld x %ld",
1571 globstring[STR_SCREEN_SIZE],
1572 (long int)iffscreen->Width,
1573 (long int)iffscreen->Height);
1574 iffinfotxt(prp,buf,7,51+goff);
1575
1576 lsprintf(title,"IFF ILBM : %s %ld x %ld x %s\n\n",
1577 ptr,
1578 (long int)bmhd.bmh_Width,
1579 (long int)bmhd.bmh_Height,
1580 cols);
1581 }
1582 lsprintf(buf,"%12s : %ld",
1583 globstring[STR_DEPTH],
1584 (long int)bmhd.bmh_Depth);
1585 iffinfotxt(prp,buf,7,67+goff);
1586
1587 lsprintf(buf,"%12s : %s",
1588 globstring[STR_COLOURS],
1589 cols);
1590 iffinfotxt(prp,buf,7,75+goff);
1591
1592 getviewmodes(modes);
1593 lsprintf(buf,"%12s : %s",
1594 globstring[STR_SCREEN_MODES],
1595 modes);
1596 iffinfotxt(prp,buf,7,83+goff);
1597 }
1598 else if (show_global_font) {
1599 char fontname[40],*ptr;
1600
1601 strcpy(fontname,show_global_font->tf_Message.mn_Node.ln_Name);
1602 if ((ptr=strstri(fontname,".font"))) *ptr=0;
1603
1604 lsprintf(buf,"%12s : %s",
1605 globstring[STR_FONT],
1606 fontname);
1607 iffinfotxt(prp,buf,7,19+goff);
1608
1609 lsprintf(buf,"%12s : %ld",
1610 globstring[STR_FONT_SIZE],
1611 (long int)show_global_font->tf_YSize);
1612 iffinfotxt(prp,buf,7,35+goff);
1613
1614 lsprintf(buf,"%12s : %ld (%ld - %ld)",
1615 globstring[STR_NUM_CHARS],
1616 (long int)((show_global_font->tf_HiChar-show_global_font->tf_LoChar)+1),
1617 (long int)show_global_font->tf_LoChar,
1618 (long int)show_global_font->tf_HiChar);
1619 iffinfotxt(prp,buf,7,51+goff);
1620
1621 lsprintf(buf,"%12s :",
1622 globstring[STR_FONT_STYLE]);
1623 if ((show_global_font->tf_Style&15)==0) strcat(buf," NORMAL");
1624 else {
1625 if (show_global_font->tf_Style&FSF_UNDERLINED) strcat(buf," ULINED");
1626 if (show_global_font->tf_Style&FSF_BOLD) strcat(buf," BOLD");
1627 if (show_global_font->tf_Style&FSF_ITALIC) strcat(buf," ITALIC");
1628 if (show_global_font->tf_Style&FSF_EXTENDED) strcat(buf," EXTEND");
1629 }
1630 iffinfotxt(prp,buf,7,67+goff);
1631
1632 lsprintf(buf,"%12s :",globstring[STR_FONT_FLAGS]);
1633 if (show_global_font->tf_Flags&FPF_TALLDOT) strcat(buf," TALL");
1634 if (show_global_font->tf_Flags&FPF_WIDEDOT) strcat(buf," WIDE");
1635 if (show_global_font->tf_Flags&FPF_PROPORTIONAL)
1636 strcat(buf," PROP");
1637 iffinfotxt(prp,buf,7,75+goff);
1638
1639 lsprintf(title,"Font : %s/%ld %ld chars (%ld - %ld)\n\n",
1640 fontname,(long int)show_global_font->tf_YSize,
1641 (long int)((show_global_font->tf_HiChar-show_global_font->tf_LoChar)+1),
1642 (long int)show_global_font->tf_LoChar,
1643 (long int)show_global_font->tf_HiChar);
1644 }
1645 else if (show_global_icon) {
1646 lsprintf(buf,"%12s : %s",
1647 globstring[STR_ICON],
1648 show_global_icon_name);
1649 iffinfotxt(prp,buf,7,27+goff);
1650
1651 lsprintf(buf,"%12s : %s",
1652 globstring[STR_ICON_TYPE],
1653 icon_type_names[show_global_icon->do_Type-1]);
1654 iffinfotxt(prp,buf,7,43+goff);
1655
1656 lsprintf(buf,"%12s : %s",
1657 globstring[STR_ICON_ALTERNATE],
1658 (show_global_icon->do_Gadget.Flags&GFLG_GADGHIMAGE)?
1659 globstring[STR_YES]:globstring[STR_NO]);
1660 iffinfotxt(prp,buf,7,59+goff);
1661
1662 if (show_global_icon->do_DefaultTool) {
1663 lsprintf(buf,"%12s : %s",
1664 globstring[STR_ICON_DEFAULTTOOL],
1665 show_global_icon->do_DefaultTool);
1666 iffinfotxt(prp,buf,7,75+goff);
1667 }
1668 lsprintf(title,"Workbench %s : %s\n\n",
1669 globstring[STR_ICON],
1670 show_global_icon_name);
1671 }
1672
1673 for (a=0;a<8;a++) printgadgets[a].TopEdge+=goff;
1674 printcheckimage.ImageData=(UWORD *)DOpusBase->pdb_check;
1675 AddGadgetBorders(&pkey,printgadgets,4,2,1);
1676 AddGadgetBorders(&pkey,&printgadgets[PRINT_OKAY],2,2,1);
1677 AddGadgets(pwin,printgadgets,printgadtxt,8,2,1,1);
1678
1679 if (!firsttime) {
1680 struct Preferences prefs;
1681
1682 GetPrefs(&prefs,sizeof(struct Preferences));
1683 print_gads_sel[PRINT_ASPECT]=prefs.PrintAspect;
1684 print_gads_sel[PRINT_IMAGE]=prefs.PrintImage;
1685 print_gads_sel[PRINT_SHADE]=prefs.PrintShade;
1686
1687 firsttime=1;
1688 }
1689
1690 for (a=0;a<4;a++) {
1691 DoCycleGadget(&printgadgets[a],
1692 pwin,
1693 print_gads_txt[a],
1694 print_gads_sel[a]);
1695 }
1696
1697 ScreenToFront(pscr);
1698 ActivateWindow(pwin);
1699 save=main_proc->pr_WindowPtr;
1700 main_proc->pr_WindowPtr=(APTR)pwin;
1701
1702 Wait(1<<pwin->UserPort->mp_SigBit);
1703
1704 FOREVER {
1705 while ((msg=(struct IntuiMessage *) GetMsg(pwin->UserPort))) {
1706 class=msg->Class; code=msg->Code; qual=msg->Qualifier;
1707 if (class==IDCMP_GADGETUP)
1708 gadgetid=((struct Gadget *)msg->IAddress)->GadgetID;
1709 ReplyMsg((struct Message *) msg);
1710 switch (class) {
1711 case IDCMP_VANILLAKEY:
1712 if (qual&IEQUALIFIER_REPEAT) break;
1713 code = ToLower(code);
1714 for (a=0;a<6;a++) {
1715 if (code==pactcode[a] /*|| code==ToUpper(pactcode[a])*/) {
1716 // if (ToLower(code)==pactcode[a]) {
1717 if (a<4) {
1718 // if (code==ToUpper(pactcode[a])) qual|=IEQUALIFIER_LSHIFT;
1719 SelectGadget(pwin,&printgadgets[a]);
1720 gadgetid=a;
1721 goto docyclegads;
1722 }
1723 else if (a==4) {
1724 printgadgets[4].Flags^=GFLG_SELECTED;
1725 RefreshGList(&printgadgets[4],pwin,NULL,1);
1726 }
1727 else if (a==5) {
1728 printgadgets[5].Flags^=GFLG_SELECTED;
1729 RefreshGList(&printgadgets[5],pwin,NULL,1);
1730 }
1731 }
1732 }
1733 if (code=='\r' || code==getkeyshortcut(globstring[STR_PRINT])) {
1734 SelectGadget(pwin,&printgadgets[6]);
1735 goto doprint;
1736 }
1737 else if (code=='\e' || code==' ' || code==getkeyshortcut(str_cancelstring)) {
1738 SelectGadget(pwin,&printgadgets[7]);
1739 goto endprint;
1740 }
1741 break;
1742
1743 case IDCMP_GADGETUP:
1744 if (gadgetid<PRINT_FORMFD) {
1745 docyclegads:
1746 if (qual&IEQUALIFIER_ANYSHIFT) {
1747 if ((--print_gads_sel[gadgetid])<0)
1748 print_gads_sel[gadgetid]=print_gads_max[gadgetid];
1749 }
1750 else {
1751 if ((++print_gads_sel[gadgetid])>print_gads_max[gadgetid])
1752 print_gads_sel[gadgetid]=0;
1753 }
1754 DoCycleGadget(&printgadgets[gadgetid],
1755 pwin,
1756 print_gads_txt[gadgetid],
1757 print_gads_sel[gadgetid]);
1758 }
1759 else switch (gadgetid) {
1760 case PRINT_CANCEL:
1761 goto endprint;
1762 case PRINT_OKAY:
1763 goto doprint;
1764 }
1765 break;
1766 }
1767 }
1768 }
1769 doprint:
1770 RemoveGList(pwin,printgadgets,-1);
1771 SetAPen(prp,0);
1772 RectFill(prp,0,0,319,pwin->Height-1);
1773 SetAPen(prp,1);
1774 abortprintgad.TopEdge=(pwin->Height-80)/2;
1775 AddGadgetBorders(&pkey,&abortprintgad,1,2,1);
1776 AddGadgets(pwin,&abortprintgad,printabortgadtxt,1,2,1,1);
1777 SetBusyPointer(pwin);
1778 if ((print_request=(union printerIO *) LCreateExtIO(general_port,sizeof(union printerIO)))) {
1779 if (!(OpenDevice("printer.device",0,(struct IORequest *)print_request,0))) {
1780 pd=(struct PrinterData *)print_request->iodrp.io_Device;
1781 prefs=&pd->pd_Preferences;
1782 prefs->PrintAspect=print_gads_sel[PRINT_ASPECT];
1783 prefs->PrintImage=print_gads_sel[PRINT_IMAGE];
1784 prefs->PrintShade=print_gads_sel[PRINT_SHADE];
1785 prefs->PrintXOffset=0;
1786
1787 print_request->ios.io_Command=CMD_WRITE;
1788 print_request->ios.io_Data="\033#1";
1789 print_request->ios.io_Length=-1;
1790 while (DoIO((struct IORequest *)print_request)) {
1791 reqoverride=pwin;
1792 a=simplerequest(globstring[STR_ERROR_INITIALISING_PRINTER],
1793 globstring[STR_TRY_AGAIN],str_cancelstring,NULL);
1794 reqoverride=NULL;
1795 if (!a) goto closeprinter;
1796 }
1797
1798 if (printgadgets[5].Flags&GFLG_SELECTED) {
1799 print_request->ios.io_Command=CMD_WRITE;
1800 print_request->ios.io_Data=title;
1801 print_request->ios.io_Length=-1;
1802 if (DoIO((struct IORequest *)print_request)) goto closeprinter;
1803 }
1804
1805 print_request->iodrp.io_Command=PRD_DUMPRPORT;
1806 print_request->iodrp.io_RastPort=rast;
1807 print_request->iodrp.io_ColorMap=wind->WScreen->ViewPort.ColorMap;
1808 //if (system_version2) {
1809 print_request->iodrp.io_Modes=GetVPModeID(&(wind->WScreen->ViewPort));
1810 /*}
1811 else {
1812 print_request->iodrp.io_Modes=wind->WScreen->ViewPort.Modes;
1813 }*/
1814 print_request->iodrp.io_SrcX=x;
1815 print_request->iodrp.io_SrcY=y;
1816 print_request->iodrp.io_SrcWidth=w;
1817 print_request->iodrp.io_SrcHeight=h;
1818 print_request->iodrp.io_Special=SPECIAL_FULLCOLS|SPECIAL_ASPECT|SPECIAL_NOFORMFEED;
1819 if (!print_gads_sel[PRINT_PLACE])
1820 print_request->iodrp.io_Special|=SPECIAL_CENTER;
1821 if (!(printgadgets[4].Flags&GFLG_SELECTED))
1822 print_request->iodrp.io_Special|=SPECIAL_NOFORMFEED;
1823
1824 SendIO((struct IORequest *)print_request);
1825 FOREVER {
1826 Wait(1<<pwin->UserPort->mp_SigBit|1<<general_port->mp_SigBit);
1827 while (GetMsg(general_port));
1828 while ((msg=(struct IntuiMessage *) GetMsg(pwin->UserPort))) {
1829 class=msg->Class;
1830 if (class==IDCMP_GADGETUP)
1831 gadgetid=((struct Gadget *)msg->IAddress)->GadgetID;
1832 ReplyMsg((struct Message *) msg);
1833 if (class==IDCMP_GADGETUP && gadgetid==PRINT_ABORT) {
1834 reqoverride=pwin;
1835 abort=simplerequest(globstring[STR_REALLY_ABORT_PRINT],
1836 globstring[STR_ABORT],globstring[STR_CONTINUE],NULL);
1837 reqoverride=NULL;
1838 if (abort) AbortIO((struct IORequest *)print_request);
1839 break;
1840 }
1841 }
1842 if (abort || (CheckIO((struct IORequest *)print_request))) break;
1843 }
1844 WaitIO((struct IORequest *)print_request);
1845 if (!abort && printgadgets[4].Flags&GFLG_SELECTED) {
1846 print_request->ios.io_Command=CMD_WRITE;
1847 print_request->ios.io_Data="\f";
1848 print_request->ios.io_Length=-1;
1849 DoIO((struct IORequest *)print_request);
1850 }
1851 closeprinter:
1852 CloseDevice((struct IORequest *)print_request);
1853 }
1854 LDeleteExtIO((struct IORequest *)print_request);
1855 }
1856 endprint:
1857 for (a=0;a<8;a++) printgadgets[a].TopEdge-=goff;
1858 main_proc->pr_WindowPtr=save;
1859 ActivateWindow(iffwindow);
1860 ScreenToBack(pscr);
1861 CloseWindow(pwin);
1862 CloseScreen(pscr);
1863 LFreeRemember(&pkey);
1864 }
1865
1866 int InitDHIRES(mp)
1867 int mp;
1868 {
1869 #ifdef __AROS__
1870 #warning Not implemented because of copper usage
1871 //bug("InitDHIRES(): NOT IMPLEMENTED BECAUSE OF COPPER MACRO USAGE\n");
1872 return 0;
1873
1874 #else
1875 int line,creg,top,oscan,lace;
1876 struct UCopList *ucop;
1877
1878 if (!(ucop=(struct UCopList *)AllocMem(sizeof(struct UCopList),MEMF_CLEAR)))
1879 return(0);
1880
1881 lace=(viewflags&LACE)?1:0;
1882 top=copperheight;
1883 if (lace) top/=2;
1884
1885 if (mp) {
1886 if (screenwidth>640) oscan=14;
1887 else oscan=16;
1888 CINIT(ucop,top*13);
1889 for (line=0;line<top;line++) {
1890 CWAIT(ucop,(line-1)<<lace,112);
1891 for (creg=4;creg<oscan;creg++) {
1892 CMove(ucop,(long *)(0xdff180+(creg*2)),copperlist[(line<<(4+lace))+creg]);
1893 CBump(ucop);
1894 }
1895 }
1896 }
1897 else {
1898 CINIT(ucop,copperheight*17);
1899 for (line=0;line<copperheight;line++) {
1900 CWAIT(ucop,line-1,122);
1901 for (creg=4;creg<16;creg++) {
1902 CMove(ucop,(long *)(0xdff180+(creg*2)),copperlist[(line<<4)+creg]);
1903 CBump(ucop);
1904 }
1905 }
1906 }
1907
1908 CEND(ucop);
1909 Forbid();
1910 ivp->UCopIns=ucop;
1911 Permit();
1912 RethinkDisplay();
1913 return(1);
1914 #endif
1915 }
1916
1917 void getviewmodes(modes)
1918 char *modes;
1919 {
1920 if (iffscreenname[0]) strcpy(modes,iffscreenname);
1921 else {
1922 if (viewflags&SUPERHIRES) {
1923 strcpy(modes,"SUPERHIRES");
1924 if (bmhd.bmh_Width>1280) strcat(modes," OSCAN");
1925 }
1926 else if (viewflags&HIRES) {
1927 strcpy(modes,"HIRES");
1928 if (bmhd.bmh_Width>640) strcat(modes," OSCAN");
1929 }
1930 else {
1931 strcpy(modes,"LORES");
1932 if (bmhd.bmh_Width>320) strcat(modes," OSCAN");
1933 }
1934 if (viewflags&LACE) strcat(modes," LACE");
1935 }
1936 if (copperlist) strcat(modes," DHIRES");
1937 #ifdef WITHPCHG
1938 else if (pchghead) {
1939 if (sham) strcat(modes," SHAM");
1940 else strcat(modes," PCHG");
1941 }
1942 #endif
1943 else
1944 {
1945 if (viewflags&HAM) strcat(modes," HAM");
1946 else if (viewflags&EXTRA_HALFBRITE) strcat(modes," EHB");
1947 }
1948 }
1949
1950 void iffinfotxt(r,buf,x,y)
1951 struct RastPort *r;
1952 char *buf;
1953 int x,y;
1954 {
1955 int a,l;
1956
1957 a=strlen(buf); l=(316-x)/8;
1958 Move(r,x,y);
1959 Text(r,buf,(a>l)?l:a);
1960 }
1961
1962 void build_palettes(colourdata,coloursize,ctable4,ctable8)
1963 unsigned char *colourdata;
1964 int coloursize;
1965 UWORD *ctable4;
1966 ULONG *ctable8;
1967 {
1968 int a,b;
1969 struct ColorRegister rgb;
1970
1971 if (ctable8) {
1972 for (a=0,b=1;a<coloursize;a++,b++)
1973 /*
1974 ctable8[b]=(colourdata[a]<<24)|0x00ffffff;
1975 */
1976 ctable8[b]=
1977 ((colourdata[a]<<24)&0xff000000)|
1978 ((colourdata[a]<<16)&0x00ff0000)|
1979 ((colourdata[a]<<8)&0x0000ff00)|
1980 ((colourdata[a]&0x000000ff));
1981
1982 ctable8[0]=numcolours<<16;
1983 ctable8[(numcolours*3)+1]=0;
1984 }
1985
1986 if (ctable4) {
1987 for (a=0;a<numcolours;a++) {
1988 rgb.red = *(colourdata++)>>4;
1989 rgb.green = *(colourdata++)>>4;
1990 rgb.blue = *(colourdata++)>>4;
1991 ctable4[a]=(rgb.red<<8)+(rgb.green<<4)+rgb.blue;
1992 }
1993 }
1994 }
Mirror of AROS' Contrib svn.