initial version

2026-10-11 17:45:41 +00:00 · 2013-02-26 22:23:48 -08:00
commit adc0ad456a
25 changed files with 1881 additions and 0 deletions
@@ -0,0 +1,142 @@
+/**********************************************************************
+ * Dual Playfield Demo
+ * ROM Kernel Reference Manual - Libraries and Devices
+ **********************************************************************/
+#include <exec/types.h>
+#include <hardware/dmabits.h>
+#include <hardware/custom.h>
+#include <graphics/gfx.h>
+#include <graphics/gfxbase.h>
+#include <graphics/gfxmacros.h>
+#include <graphics/rastport.h>
+#include <graphics/view.h>
+#include <exec/exec.h>
+
+#include <clib/exec_protos.h>
+#include <clib/dos_protos.h>
+#include <clib/intuition_protos.h>
+#include <clib/graphics_protos.h>
+
+#include <stdlib.h>
+
+
+#define DEPTH 2
+#define WIDTH 320
+#define HEIGHT 200
+#define NOT_ENOUGH_MEMORY -1000
+
+struct View v;
+struct ViewPort vp;
+struct ColorMap *cm;
+struct RasInfo ri;
+struct BitMap b;
+
+struct RasInfo ri2;
+struct BitMap b2;
+
+short i, j, k, n;
+struct ColorMap *GetColorMap();
+struct GfxBase *GfxBase;
+
+USHORT colortable[] = {
+  0x000, 0xf00, 0x0f0, 0x00f,
+  0, 0, 0, 0,
+  0, 0x495, 0x62a, 0xf9c
+};
+
+UWORD *colorpalette;
+struct RastPort rp, rp2;
+struct View *oldview;
+
+int FreeMemory();
+
+int main(int argc, char **argv)
+{
+  GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 0);
+  if (GfxBase == NULL) exit(1);
+
+  InitView(&v);
+  v.ViewPort = &vp;
+  InitVPort(&vp);
+
+  vp.DWidth = WIDTH;
+  vp.DHeight = HEIGHT;
+  vp.RasInfo = &ri;
+  vp.Modes = DUALPF | PFBA;
+
+  InitBitMap(&b, DEPTH, WIDTH, HEIGHT);
+  ri.BitMap = &b;
+  ri.RxOffset = 0;
+  ri.RyOffset = 0;
+
+  InitBitMap(&b2, DEPTH, WIDTH, HEIGHT);
+  ri.Next = &ri2;
+  ri2.BitMap = &b2;
+  ri2.RxOffset = 0;
+  ri2.RyOffset = 0;
+  ri2.Next = NULL;
+
+  cm = GetColorMap(12);
+  colorpalette = cm->ColorTable;
+  for (i = 0; i < 12; i++) *colorpalette++ = colortable[i];
+  vp.ColorMap = cm;
+
+  for (i = 0; i < DEPTH; i++) {
+    b.Planes[i] = (PLANEPTR) AllocRaster(WIDTH, HEIGHT);
+    if (b.Planes[i] == NULL) exit(NOT_ENOUGH_MEMORY);
+    b2.Planes[i] = (PLANEPTR) AllocRaster(WIDTH, HEIGHT);
+    if (b2.Planes[i] == NULL) exit(NOT_ENOUGH_MEMORY);
+  }
+  InitRastPort(&rp);
+  InitRastPort(&rp2);
+  rp.BitMap = &b;
+  rp2.BitMap = &b2;
+  MakeVPort(&v, &vp);
+  MrgCop(&v);
+
+  SetRast(&rp, 0);
+  SetRast(&rp2, 0);
+
+  oldview = GfxBase->ActiView;
+  LoadView(&v);
+
+  /* draw to first playfield */
+  SetAPen(&rp, 1);
+  RectFill(&rp, 20, 20, 200, 100);
+  SetAPen(&rp, 2);
+  RectFill(&rp, 40, 40, 220, 120);
+  SetAPen(&rp, 3);
+  RectFill(&rp, 60, 60, 240, 140);
+
+  /* draw to second playfield */
+  SetAPen(&rp2, 1);
+  RectFill(&rp2, 50, 90, 245, 180);
+  SetAPen(&rp2, 2);
+  RectFill(&rp2, 70, 70, 265, 160);
+  SetAPen(&rp2, 3);
+  RectFill(&rp2, 90, 10, 285, 148);
+
+  /* Poke some holes in the playfield */
+  SetAPen(&rp2, 0);
+  RectFill(&rp2, 110, 15, 130, 175);
+  RectFill(&rp2, 175, 15, 200, 175);
+  Delay(300);
+  LoadView(oldview);
+  WaitTOF();
+  FreeMemory();
+  CloseLibrary((struct Library *) GfxBase);
+
+  return 0;
+}
+
+int FreeMemory()
+{
+  for (i = 0; i < DEPTH; i++) {
+    FreeRaster(b.Planes[i], WIDTH, HEIGHT);
+    FreeRaster(b2.Planes[i], WIDTH, HEIGHT);
+  }
+  FreeColorMap(cm);
+  FreeVPortCopLists(&vp);
+  FreeCprList(v.LOFCprList);
+  return 0;
+}