From 62e509e9c90d728c9f65145947276f79112ab48c Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Tue, 2 Nov 1993 18:53:33 +0000
Subject: Initial revision

---
 Get.c | 268 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 268 insertions(+)
 create mode 100644 Get.c

(limited to 'Get.c')

diff --git a/Get.c b/Get.c
new file mode 100644
index 0000000..d99ca13
--- /dev/null
+++ b/Get.c
@@ -0,0 +1,268 @@
+/*
+**  Bobi - The Ultimate Amiga Bob Manipulator
+**
+**  Get.c - Bob aus einem Bild 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 <proto/exec.h>
+#include <proto/graphics.h>
+#include <proto/intuition.h>
+#include <graphics/rastport.h>
+
+#include "Bobi.h"
+#include "BobStructure.h"
+
+extern struct MyBob		*BobTable[];
+extern struct Screen	*mainscreen,*picturescreen;
+extern struct Window	*mainwindow,*toolwindow,*picturewindow;
+extern WORD				numbobs,actbobnum;
+extern struct Gadget	AutoSizeGadget;
+extern char				LabelGadgetSIBuff[];
+
+static int x0,x1,y0,y1;
+
+/****************************************************************************
+**	Der Benutzer kann auf dem Picture-Screen ein Bob ausschneiden,
+**	die Koordinaten werden in x0/y0/x1/y1 gespeichert
+*/
+
+static BOOL CutBob(BOOL multiflag)
+{
+	struct IntuiMessage *msg;
+	BOOL looping=TRUE, okflag=FALSE;
+
+	x0 = -1;					/* Startwerte, gegen MultiCutNoMove-Bug */
+	x1 = picturewindow->MouseX;
+	y1 = picturewindow->MouseY;
+	DrawCross(picturescreen,x1,y1);
+
+	ScreenToFront(picturescreen);
+	ActivateWindow(picturewindow);
+	ModifyIDCMP(picturewindow,MOUSEMOVE+MOUSEBUTTONS);
+	do
+	{
+		WaitPort(picturewindow->UserPort);
+		while(msg = (struct IntuiMessage *)GetMsg(picturewindow->UserPort))
+		{
+			if(msg->Class == MOUSEBUTTONS)
+			{
+				switch(msg->Code)
+				{
+					case SELECTDOWN:
+						x0 = x1;
+						y0 = y1;
+						DrawCross(picturescreen,x0,y0);
+						break;
+
+					case SELECTUP:
+						okflag=TRUE;		/* hier kein break! */
+
+					default:
+						looping=FALSE;
+						break;
+				}
+				break;
+			}
+			else /* Muss MOUSEMOVE sein */
+			{
+				DrawCross(picturescreen,x1,y1);
+				x1 = msg->MouseX;
+				if(x1>=picturescreen->Width) x1=picturescreen->Width-1;
+				y1 = msg->MouseY;
+				if(x0>=0)
+				{
+		/*			if((x1-x0) > MAXBOBWIDTH) x1=x0+MAXBOBWIDTH;
+					if((x0-x1) > MAXBOBWIDTH) x1=x0-MAXBOBWIDTH;
+					if((y1-y0) > MAXBOBHEIGHT) y1=y0+MAXBOBHEIGHT;
+					if((y0-y1) > MAXBOBHEIGHT) y1=y0-MAXBOBHEIGHT;
+		*/		}
+				DrawCross(picturescreen,x1,y1);
+			}
+			ReplyMsg((struct Message *)msg);
+		}
+	} while(looping);
+
+	DrawCross(picturescreen,x1,y1);
+	DrawCross(picturescreen,x0,y0);
+	ModifyIDCMP(picturewindow,0);
+
+	if(!multiflag)	/* Falls nur 1 Bob zu cutten: mainscreen hervorbringen */
+	{
+		ScreenToFront(mainscreen);
+		ActivateWindow(toolwindow?toolwindow:mainwindow);
+	}
+
+	if(x0>x1) {	WORD dummy=x0; x0=x1; x1=dummy; }
+	if(y0>y1) {	WORD dummy=y0; y0=y1; y1=dummy; }
+
+	return okflag;
+}
+
+/****************************************************************************
+**	Bob an der gewünschten Stelle des Bildes ausschneiden
+*/
+
+BOOL GetBob(int x,int y,int w,int h)
+{
+	BOOL success = FALSE;
+
+	if(picturescreen == NULL) return FALSE;		/* Nix auszuschneiden! */
+
+	if(w<0)
+	{
+		x += w; w = -w;
+	}
+
+	if(h<0)
+	{
+		y += h; h = -h;
+	}
+
+	if(AutoSizeGadget.Flags & SELECTED)
+	{
+		int x1 = x+w-1, y1 = y+h-1;
+
+		while((x<x1) && (w>0))
+		{
+			int i;
+
+			for(i=y; i<y1; i++)
+			{
+				if(ReadPixel(&picturescreen->RastPort,x,i))
+					goto xlgot;
+			}
+			x++; w--;
+		}
+		xlgot:
+
+		while((y<y1) && (h>0))
+		{
+			int i;
+
+			for(i=x; i<x1; i++)
+			{
+				if(ReadPixel(&picturescreen->RastPort,i,y))
+					goto ylgot;
+			}
+			y++; h--;
+		}
+		ylgot:
+
+		while(w>0)
+		{
+			int i;
+
+			for(i=y; i<y1; i++)
+			{
+				if(ReadPixel(&picturescreen->RastPort,x1-1,i))
+					goto xhgot;
+			}
+			x1--; w--;
+		}
+		xhgot:
+
+		while(h>0)
+		{
+			int i;
+
+			for(i=x; i<x1; i++)
+			{
+				if(ReadPixel(&picturescreen->RastPort,i,y1-1))
+					goto yhgot;
+			}
+			y1--; h--;
+		}
+		yhgot: ;
+
+	}	/* if(autosize) */
+
+	if((w>0) && (h>0))
+	{
+		struct BitMap *tmpmap;
+
+		if(tmpmap=MakeBitMap(w,h,picturescreen->BitMap.Depth))
+		{
+			struct MyBob *bob;
+
+			BltBitMap(&(picturescreen->BitMap),x,y,tmpmap,0,0,w,h,0xc0,0xff,0);
+			if(bob=BitMapToBob(BobTable[actbobnum],tmpmap,w))
+			{
+				if(numbobs<MAXNUMBOBS)
+				{
+					if(BobTable[actbobnum])	/* Falls Bob existiert */
+					{
+						FreeBob(BobTable[actbobnum]);
+					}
+					else	/* Neues Bob an Tabellenende anhängen */
+					{
+						numbobs++;
+						sprintf(bob->SourceLabel,LabelGadgetSIBuff,actbobnum);
+						RefreshBobNum();	/* Prop-Gadget anpassen */
+					}
+					BobTable[actbobnum] = bob;
+					ShowBob(bob);
+					success = TRUE;
+				}
+				else ShowMonoReq2("Too many bobs!");
+			}
+			else ShowMonoReq2("Not enough memory for this bob");
+			MyFreeBitMap(tmpmap);
+		}
+		else ShowMonoReq2("Not enough memory for tmp BitMap");
+	}
+
+	return success;
+}
+
+/****************************************************************************
+**	Aus Bild ausschneiden und Bob generieren
+*/
+
+static BOOL GetOneBob(BOOL multiflag)
+{
+	if(picturescreen)
+	{
+		if(CutBob(multiflag))
+		{
+			return GetBob(x0,y0,x1-x0+1,y1-y0+1);
+		}
+		else			/* CutBob()==0: mit rechter Maustaste abgebrochen */
+		{
+			if(multiflag)
+			{
+				ScreenToFront(mainscreen);
+				ActivateWindow(toolwindow?toolwindow:mainwindow);
+			}
+			else ShowMonoReq2("Operation cancelled");
+		}
+	}
+	else ShowMonoReq2("No picture loaded, use 'Load IFF'");
+
+	return FALSE;
+}
+
+/****************************************************************************
+**	Ein Bob ausschneiden
+*/
+
+void GetBobFunc()
+{
+	GetOneBob(FALSE);
+}
+
+/****************************************************************************
+**	Mehrere Bobs ausschneiden
+*/
+
+void GetMultiFunc()
+{
+	while(GetOneBob(TRUE)) actbobnum++;
+	if(actbobnum>0) --actbobnum;
+	RefreshBobNum();
+}
+
-- 
cgit v1.2.3