sys/amiga/amirip.c

   1 /* aNetHack 0.0.1       amirip.c        $ANH-Date: 1450453302 2015/12/18 15:41:42 $  $ANH-Branch: aNetHack-3.6.0 $:$ANH-Revision: 1.16 $ */
   2 /* Copyright (c) Kenneth Lorber, Bethesda, Maryland 1991,1992,1993,1995,1996.
   3  */
   4 /* aNetHack may be freely redistributed.  See license for details. */
   5
   6 #include "hack.h"
   7 #include <exec/types.h>
   8 #include <exec/io.h>
   9 #include <exec/alerts.h>
  10 #include <exec/devices.h>
  11 #include <devices/console.h>
  12 #include <devices/conunit.h>
  13 #include <graphics/gfxbase.h>
  14 #include <graphics/gfxmacros.h>
  15 #include <intuition/intuition.h>
  16 #include <libraries/dosextens.h>
  17 #include <ctype.h>
  18 #include <string.h>
  19 #include "winami.h"
  20 #include "windefs.h"
  21 #include "winext.h"
  22 #include "winproto.h"
  23
  24 static struct RastPort *rp;
  25
  26 #ifdef AMII_GRAPHICS
  27
  28 #undef NULL
  29 #define NULL 0
  30
  31 #ifdef AZTEC_C
  32 #include <functions.h>
  33 #else
  34 #ifdef _DCC
  35 #include <clib/dos_protos.h>
  36 #include <clib/exec_protos.h>
  37 #include <clib/console_protos.h>
  38 #include <clib/diskfont_protos.h>
  39 #else
  40 #include <proto/dos.h>
  41 #include <proto/exec.h>
  42 #include <proto/console.h>
  43 #include <proto/diskfont.h>
  44 #endif
  45
  46 static char *load_list[] = { "tomb.iff", 0 };
  47 static BitMapHeader tomb_bmhd;
  48 static struct BitMap *tbmp[1] = { 0 };
  49
  50 static int cols[2] = { 154, 319 }; /* X location of center of columns */
  51 static int cno = 0; /* current column */
  52 #define TEXT_TOP (65 + yoff)
  53
  54 static xoff, yoff; /* image centering */
  55
  56 /* terrible kludge */
  57 /* this is why prototypes should have ONLY types in them! */
  58 #undef red
  59 #undef green
  60 #undef blue
  61 #undef index
  62 #ifdef _DCC
  63 #include <clib/graphics_protos.h>
  64 #include <clib/intuition_protos.h>
  65 #else
  66 #include <proto/graphics.h>
  67 #include <proto/intuition.h>
  68 #endif
  69 #endif /* AZTEC_C */
  70
  71 static struct Window *ripwin = 0;
  72 static void tomb_text(char *);
  73 static void dofade(int, int, int);
  74 static int search_cmap(int, int, int);
  75
  76 #define STONE_LINE_LEN                 \
  77     13 /* # chars that fit on one line \
  78         * (note 1 ' ' border) */
  79
  80 #define DEATH_LINE 10
  81 #define YEAR_LINE 15
  82
  83 static unsigned short tomb_line;
  84
  85 extern struct amii_DisplayDesc *amiIDisplay;
  86 extern struct Screen *HackScreen;
  87 extern int havelace;
  88
  89 static unsigned short transpalette[AMII_MAXCOLORS] = {
  90     0x0000,
  91 };
  92
  93 static struct NewWindow newwin = { 0, 0, 640, 200, 1, 0,
  94                                    MOUSEBUTTONS | VANILLAKEY | NOCAREREFRESH,
  95                                    BORDERLESS | ACTIVATE | SMART_REFRESH,
  96                                    NULL, NULL, (UBYTE *) NULL, NULL, NULL, -1,
  97                                    -1, 0xffff, 0xffff, CUSTOMSCREEN };
  98
  99 int wh; /* was local in outrip, but needed for SCALE macro */
 100
 101 int cmap_white, cmap_black;
 102
 103 void
 104 amii_outrip(tmpwin, how, when)
 105 winid tmpwin;
 106 int how;
 107 time_t when;
 108 {
 109     int just_return = 0;
 110     int done, rtxth;
 111     struct IntuiMessage *imsg;
 112     int i;
 113     register char *dpx;
 114     char buf[200];
 115     int line, tw, ww;
 116     char *errstr = NULL;
 117     long year;
 118
 119     if (!WINVERS_AMIV || HackScreen->RastPort.BitMap->Depth < 4)
 120         goto cleanup;
 121
 122     /* Use the users display size */
 123     newwin.Height = amiIDisplay->ypix - newwin.TopEdge;
 124     newwin.Width = amiIDisplay->xpix;
 125     newwin.Screen = HackScreen;
 126
 127     for (i = 0; i < amii_numcolors; ++i)
 128         sysflags.amii_curmap[i] = GetRGB4(HackScreen->ViewPort.ColorMap, i);
 129
 130     ripwin = OpenWindow((void *) &newwin);
 131     if (!ripwin)
 132         goto cleanup;
 133
 134     LoadRGB4(&HackScreen->ViewPort, transpalette, amii_numcolors);
 135
 136     rp = ripwin->RPort;
 137     wh = ripwin->Height;
 138     ww = ripwin->Width;
 139
 140 #ifdef HACKFONT
 141     if (HackFont)
 142         SetFont(rp, HackFont);
 143 #endif
 144
 145     tomb_bmhd = ReadImageFiles(load_list, tbmp, &errstr);
 146     if (errstr)
 147         goto cleanup;
 148     if (tomb_bmhd.w > ww || tomb_bmhd.h > wh)
 149         goto cleanup;
 150
 151 #define GENOFF(full, used) ((((full) - (used)) / 2) & ~7)
 152     xoff = GENOFF(ww, tomb_bmhd.w);
 153     yoff = GENOFF(wh, tomb_bmhd.h);
 154     for (i = 0; i < SIZE(cols); i++)
 155         cols[i] += xoff;
 156
 157     cmap_white = search_cmap(0, 0, 0);
 158     cmap_black = search_cmap(15, 15, 15);
 159
 160     BltBitMap(*tbmp, 0, 0, rp->BitMap, xoff, yoff, tomb_bmhd.w, tomb_bmhd.h,
 161               0xc0, 0xff, NULL);
 162
 163     /* Put together death description */
 164     formatkiller(buf, sizeof buf, how, FALSE);
 165
 166     tw = TextLength(rp, buf, STONE_LINE_LEN) + 40;
 167
 168     {
 169         char *p = buf;
 170         int x, tmp;
 171         for (x = STONE_LINE_LEN; x; x--)
 172             *p++ = 'W';
 173         *p = '\0';
 174         tmp = TextLength(rp, buf, STONE_LINE_LEN) + 40;
 175         tw = max(tw, tmp);
 176     }
 177
 178     /* There are 5 lines of text on the stone. */
 179     rtxth = ripwin->RPort->TxHeight * 5;
 180
 181     SetAfPt(rp, (UWORD *) NULL, 0);
 182     SetDrPt(rp, 0xFFFF);
 183
 184     tomb_line = TEXT_TOP;
 185
 186     SetDrMd(rp, JAM1);
 187
 188     /* Put name on stone */
 189     Sprintf(buf, "%s", plname);
 190     buf[STONE_LINE_LEN] = 0;
 191     tomb_text(buf);
 192
 193     /* Put $ on stone */
 194     Sprintf(buf, "%ld Au", done_money);
 195     buf[STONE_LINE_LEN] = 0; /* It could be a *lot* of gold :-) */
 196     tomb_text(buf);
 197
 198     /* Put together death description */
 199     formatkiller(buf, sizeof buf, how, FALSE);
 200
 201     /* Put death type on stone */
 202     for (line = DEATH_LINE, dpx = buf; line < YEAR_LINE; line++) {
 203         register int i, i0;
 204         char tmpchar;
 205
 206         if ((i0 = strlen(dpx)) > STONE_LINE_LEN) {
 207             for (i = STONE_LINE_LEN; ((i0 > STONE_LINE_LEN) && i); i--) {
 208                 if (dpx[i] == ' ')
 209                     i0 = i;
 210             }
 211             if (!i)
 212                 i0 = STONE_LINE_LEN;
 213         }
 214
 215         tmpchar = dpx[i0];
 216         dpx[i0] = 0;
 217         tomb_text(dpx);
 218
 219         if (tmpchar != ' ') {
 220             dpx[i0] = tmpchar;
 221             dpx = &dpx[i0];
 222         } else {
 223             dpx = &dpx[i0 + 1];
 224         }
 225     }
 226
 227     /* Put year on stone */
 228     year = yyyymmdd(when) / 10000L;
 229     Sprintf(buf, "%4ld", year);
 230     tomb_text(buf);
 231
 232 #ifdef NH320_DEDICATION
 233     /* dedication */
 234     cno = 1;
 235     tomb_line = TEXT_TOP;
 236     tomb_text("This release");
 237     tomb_text("of aNetHack");
 238     tomb_text("is dedicated");
 239     tomb_text("to the");
 240     tomb_text("memory of");
 241     tomb_text("");
 242     tomb_text("Izchak");
 243     tomb_text(" Miller");
 244     tomb_text("");
 245     tomb_text("1935-1994");
 246     tomb_text("");
 247     tomb_text("Ascended");
 248 #endif
 249     /* Fade from black to full color */
 250     dofade(0, 16, 1);
 251
 252     /* Flush all messages to avoid typeahead */
 253     while (imsg = (struct IntuiMessage *) GetMsg(ripwin->UserPort))
 254         ReplyMsg((struct Message *) imsg);
 255     done = 0;
 256     while (!done) {
 257         WaitPort(ripwin->UserPort);
 258         while (imsg = (struct IntuiMessage *) GetMsg(ripwin->UserPort)) {
 259             switch (imsg->Class) {
 260             case MOUSEBUTTONS:
 261             case VANILLAKEY:
 262                 done = 1;
 263                 break;
 264             }
 265             ReplyMsg((struct Message *) imsg);
 266         }
 267     }
 268
 269     /* Fade out */
 270     dofade(16, 0, -1);
 271     just_return = 1;
 272
 273 cleanup:
 274     /* free everything */
 275     if (ripwin) {
 276         Forbid();
 277         while (imsg = (struct IntuiMessage *) GetMsg(ripwin->UserPort))
 278             ReplyMsg((struct Message *) imsg);
 279         CloseWindow(ripwin);
 280         Permit();
 281     }
 282     LoadRGB4(&HackScreen->ViewPort, sysflags.amii_curmap, amii_numcolors);
 283
 284     if (tbmp[0])
 285         FreeImageFiles(load_list, tbmp);
 286     if (just_return)
 287         return;
 288     /* fall back to the straight-ASCII version */
 289     genl_outrip(tmpwin, how, when);
 290 }
 291
 292 static void
 293 tomb_text(p)
 294 char *p;
 295 {
 296     char buf[STONE_LINE_LEN * 2];
 297     int l;
 298
 299     tomb_line += rp->TxHeight;
 300
 301     if (!*p)
 302         return;
 303     sprintf(buf, " %s ", p);
 304     l = TextLength(rp, buf, strlen(buf));
 305
 306     SetAPen(rp, cmap_white);
 307     Move(rp, cols[cno] - (l / 2) - 1, tomb_line);
 308     Text(rp, buf, strlen(buf));
 309
 310     SetAPen(rp, cmap_white);
 311     Move(rp, cols[cno] - (l / 2) + 1, tomb_line);
 312     Text(rp, buf, strlen(buf));
 313
 314     SetAPen(rp, cmap_white);
 315     Move(rp, cols[cno] - (l / 2), tomb_line - 1);
 316     Text(rp, buf, strlen(buf));
 317
 318     SetAPen(rp, cmap_white);
 319     Move(rp, cols[cno] - (l / 2), tomb_line + 1);
 320     Text(rp, buf, strlen(buf));
 321
 322     SetAPen(rp, cmap_black);
 323     Move(rp, cols[cno] - (l / 2), tomb_line);
 324     Text(rp, buf, strlen(buf));
 325 }
 326
 327 /* search colormap for best match to given color */
 328 static int
 329 search_cmap(int r0, int g0, int b0)
 330 {
 331     int best = 0;
 332     int bdiff = 0x0fffffff;
 333     int x;
 334     for (x = 0; x < amii_numcolors; x++) {
 335         int r = r0 - ((amiv_init_map[x] >> 8) & 15);
 336         int g = g0 - ((amiv_init_map[x] >> 4) & 15);
 337         int b = b0 - ((amiv_init_map[x]) & 15);
 338         int diff = (r * r) + (g * g) + (b * b);
 339         if (diff < bdiff) {
 340             bdiff = diff;
 341             best = x;
 342         }
 343     }
 344     return best;
 345 }
 346
 347 /* caution: this is NOT general! */
 348 static void
 349 dofade(int start, int stop, int inc)
 350 {
 351     int i, j;
 352     for (i = start; (i * inc) <= stop; i += inc) {
 353         for (j = 0; j < amii_numcolors; ++j) {
 354             int r, g, b;
 355
 356             r = (amiv_init_map[j] & 0xf00) >> 8;
 357             g = (amiv_init_map[j] & 0xf0) >> 4;
 358             b = (amiv_init_map[j] & 0xf);
 359             r = (r * i) / 16;
 360             g = (g * i) / 16;
 361             b = (b * i) / 16;
 362             transpalette[j] = ((r << 8) | (g << 4) | b);
 363         }
 364         LoadRGB4(&HackScreen->ViewPort, transpalette, amii_numcolors);
 365         Delay(1);
 366     }
 367 }
 368
 369 #endif /* AMII_GRAPHICS */
 370
 371 /*
 372 TODO:
 373         memory leaks
 374         fix ReadImageFiles to return error instead of panic on error
 375 */