added a component that displays multiple images side by side

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7325 8c9fc860-2736-0410-a75d-ab315db34111

source/WMImageGrid.Mod

@@ -0,0 +1,191 @@
+(*Author: Stephan Koster; Purpose: Components to display multiple images arranged in a grid*)
+MODULE WMImageGrid;
+IMPORT WMWindowManager, Graphics:=WMGraphics, Raster, Messages:=WMMessages, Rectangles:=WMRectangles;
+
+TYPE Message=Messages.Message;
+TYPE Rectangle=Rectangles.Rectangle;
+TYPE Grid=ARRAY OF ARRAY OF Graphics.Image;
+
+
+TYPE GridWindow* = OBJECT(WMWindowManager.Window)
+	VAR
+		imgs*: POINTER TO Grid;
+		background*: Graphics.Image;
+		canvas* : Graphics.BufferCanvas;
+		canvasGen-: Graphics.CanvasGenerator;
+		pointerThreshold*, 
+		maxInterpolation* : LONGINT; (* allows limiting the interpolation degree on Draw *)
+
+		totalW, totalH: LONGINT;
+		gap: LONGINT;		
+		
+		PROCEDURE &Init1*( CONST Ws, Hs: ARRAY OF LONGINT; alpha : BOOLEAN);
+		VAR
+			i,j: LONGINT;
+			rm: Raster.Mode;
+			pix: Raster.Pixel;
+		BEGIN
+			gap:=10;
+			
+			FOR i:=0 TO LEN(Ws,0)-1 DO
+				ASSERT(Ws[i]>0);
+				totalW:=totalW+Ws[i];
+			END;
+			totalW:=totalW+gap*(LEN(Ws,0)-1);
+			
+			FOR i:=0 TO LEN(Hs,0)-1 DO
+				ASSERT(Hs[i]>0);
+				totalH:=totalH+Hs[i];
+			END;
+			totalH:=totalH+gap*(LEN(Hs,0)-1);			
+			
+			Init(totalW, totalH, alpha); (*parent constructor*)
+			
+			NEW(imgs,LEN(Ws,0),LEN(Hs,0));
+			FOR i:=0 TO LEN(Ws,0)-1 DO
+				FOR j:=0 TO LEN(Hs,0)-1 DO
+					NEW(imgs[i,j]);
+					IF alpha THEN Raster.Create(imgs[i,j], Ws[i], Hs[j], Raster.BGRA8888) ELSE Raster.Create(imgs[i,j], Ws[i], Hs[j], WMWindowManager.format) END;
+				END
+			END;
+			NEW(background);
+			IF alpha THEN Raster.Create(background, totalW, totalH, Raster.BGRA8888) ELSE Raster.Create(background, totalW, totalH, WMWindowManager.format) END;
+			Raster.InitMode(rm, Raster.srcOverDst);
+			Raster.SetRGBA(pix, 0,0,0,255);
+			Raster.Fill(background, 0,0, totalW,totalH,pix, rm);
+			SetCanvasGenerator(Graphics.GenCanvas);
+			pointerThreshold := 1; (* invisible pixels are treated as invisible *)
+			maxInterpolation := Graphics.ScaleBilinear;
+		END Init1;
+
+		PROCEDURE SetCanvasGenerator*(canvasGen:Graphics.CanvasGenerator);
+		BEGIN{EXCLUSIVE}
+			SELF.canvasGen:=canvasGen; IF background # NIL THEN canvas:=canvasGen(background); END;
+			IF manager # NIL THEN manager.AddVisibleDirty(SELF, bounds) END
+		END SetCanvasGenerator;
+		
+		PROCEDURE IsHit(x, y  : LONGINT) : BOOLEAN;
+		VAR w, h : LONGINT; fx, fy : REAL;
+		BEGIN
+			w := GetWidth(); h := GetHeight();
+			IF (w > 0) & (h > 0) & ((w # totalW) OR (h # totalH)) THEN
+				fx := totalW/ w;
+				fy := totalH/ h;
+				RETURN Graphics.IsBitmapHit(ENTIER(x * fx), ENTIER(y * fy), pointerThreshold, background)
+			ELSE RETURN Graphics.IsBitmapHit(x, y, pointerThreshold, background)
+			END
+		END IsHit;
+
+		PROCEDURE Draw*(canvas : Graphics.Canvas; w, h, q : LONGINT);
+		VAR 
+			mode: LONGINT;
+			isScaled: BOOLEAN;
+			i,j: LONGINT;
+			x,y: LONGINT;
+			
+			PROCEDURE DrawSingle(CONST  img: Graphics.Image; offX,offY: LONGINT; isScaled: BOOLEAN; mode: LONGINT);
+			VAR
+				wscaled,hscaled: LONGINT;
+			BEGIN
+				IF img # NIL THEN
+				IF ~isScaled THEN				
+					canvas.DrawImage(offX,offY,img, mode);
+				ELSE
+					offX:=offX*w DIV totalW;  (*these are not pixel perfect, but I can't think of anything better*)
+					offY:=offY*h DIV totalH;
+					wscaled:=img.width*w DIV totalW;
+					hscaled:=img.height*h DIV  totalH;
+					canvas.ScaleImage(img, Rectangles.MakeRect(0, 0, img.width, img.height), Rectangles.MakeRect(offX,offY, offX+wscaled, offY+hscaled), mode, MIN(q,maxInterpolation));
+				END
+			END;
+			END DrawSingle;
+			
+		BEGIN
+			IF useAlpha THEN
+				mode:=Graphics.ModeSrcOverDst;
+			ELSE
+				mode:=Graphics.ModeCopy;
+			END;
+			isScaled:=~((w = totalW) & (h = totalH));
+		
+			IF reduceQuality THEN q := 0 END;
+			DrawSingle(background, 0,0, isScaled, mode);
+			x:=0;
+			FOR i:=0 TO LEN(imgs,0)-1 DO
+				y:=0;
+				FOR j:=0 TO LEN(imgs,1)-1 DO
+					DrawSingle(imgs[i,j], x,y, isScaled,mode);
+					y:=y+imgs[0,j].height+gap;
+				END;				
+				x:=x+imgs[i,0].width+gap;
+			END;
+			
+			
+			INC(timestamp);
+		END Draw;
+
+		PROCEDURE Invalidate*(rect : Rectangle);
+		VAR w, h : LONGINT; fx, fy : REAL;
+		BEGIN
+			w := GetWidth(); h := GetHeight();
+			IF (w > 0) & (h > 0) & ((w # totalW) OR (h # totalH))  THEN
+				fx := w / totalW; fy := h / totalH;
+				rect.l := ENTIER(rect.l * fx); rect.t := ENTIER(rect.t * fy);
+				rect.r := ENTIER(rect.r * fx + 0.5); rect.b := ENTIER(rect.b * fy + 0.5)
+			END;
+			Invalidate^(rect)
+		END Invalidate;
+
+		PROCEDURE Handle*(VAR m : Message);
+		VAR w, h : LONGINT; fx, fy : REAL;
+		BEGIN
+			w := GetWidth(); h := GetHeight();
+			IF (w > 0) & (h > 0) & ((w # totalW) OR (h # totalH)) & (m.msgType = Messages.MsgPointer) THEN
+				m.x := m.x-bounds.l; m.y := m.y-bounds.t;
+				fx := totalW/ w;
+				fy := totalH/ h;
+				m.x := ENTIER(m.x * fx); m.y := ENTIER(m.y * fy);
+				m.x := m.x + bounds.l; m.y := m.y+bounds.l;
+			END;
+			Handle^(m)
+		END Handle;
+
+	END GridWindow;
+
+
+
+	PROCEDURE Test*();
+	VAR
+		w: GridWindow;
+		Ws,Hs: ARRAY 3 OF LONGINT;
+		i: LONGINT;
+		rm: Raster.Mode;
+		pix: Raster.Pixel;
+	BEGIN
+	
+		FOR i:=0 TO 2 DO
+			Ws[i]:=100*i+30;
+			Hs[i]:=20+200*i;
+		END;
+		NEW(w,Ws,Hs, TRUE);
+		
+		
+		Raster.InitMode(rm, Raster.srcOverDst);
+		Raster.SetRGBA(pix, 255,0,0,255);	
+		Raster.Fill(w.imgs[0,0], 0,0, Ws[0],Hs[0],pix, rm);
+		Raster.SetRGBA(pix, 0,255,0,255);	
+		Raster.Fill(w.imgs[1,1], 0,0, Ws[1],Hs[1],pix, rm);
+		Raster.SetRGBA(pix, 0,0,255,255);	
+		Raster.Fill(w.imgs[2,2], 0,0, Ws[2],Hs[2],pix, rm);
+		
+		WMWindowManager.DefaultAddWindow(w);
+		
+		
+	END Test;
+
+
+END WMImageGrid.
+
+
+SystemTools.FreeDownTo ImageGrid~
+ImageGrid.Test~