WebSVN – Kolibri OS – Diff – /programs/other/fb2reader/SRC/Graph.ob07

 (*
-    Copyright 2016-2020, 2022 Anton Krotov
+    Copyright 2016-2020, 2022, 2023 Anton Krotov
     This file is part of fb2read.
     along with fb2read. If not, see .
 *)
 MODULE Graph;
-IMPORT K := KOSAPI, sys := SYSTEM, SU := SysUtils, LibImg;
+IMPORT K := KOSAPI, sys := SYSTEM, SU := SysUtils;
-TYPE
+TYPE
-  TBuffer = RECORD Width*, Height*, adr*, Color: INTEGER END;
+  tBuffer* = POINTER TO RECORD Width*, Height*, bitmap*, Color: INTEGER END;
   PBuffer* = POINTER TO TBuffer;
+VAR
-VAR
+  Buffer*, BackImg*: tBuffer;
-  Buffer*, Buffer2, Buffer3*: PBuffer;
+  Width0, Height0: INTEGER;
 PROCEDURE [stdcall-, "rasterworks.obj", ""] drawText (canvas, x, y, string, charQuantity, fontColor, params: INTEGER): INTEGER; END;
-PROCEDURE Destroy*(VAR Buffer: PBuffer);
+PROCEDURE Destroy*(VAR Buffer: tBuffer);
 BEGIN
   IF Buffer # NIL THEN
-    IF Buffer.adr # 0 THEN
+    IF Buffer.bitmap # 0 THEN
-      DEC(Buffer.adr, 8);
+      DEC(Buffer.bitmap, 8);
-      Buffer.adr := K.free(Buffer.adr)
+      Buffer.bitmap := K.free(Buffer.bitmap)
     END;
     DISPOSE(Buffer)
   END
 END Destroy;
 	g := color DIV 256 MOD 256;
 	r := color DIV 65536 MOD 256
 END getRGB;
-PROCEDURE Fill*(Buffer: PBuffer; Color: INTEGER);
+PROCEDURE Fill* (Buffer: tBuffer; Color: INTEGER);
 VAR p, n, i: INTEGER;
 BEGIN
-  p := Buffer.adr;
+	p := Buffer.bitmap;
-  n := Buffer.Width * Buffer.Height;
+	n := Buffer.Width * Buffer.Height;
-  FOR i := 1 TO n DO
+	FOR i := 1 TO n DO
-    sys.PUT(p, Color);
+    	sys.PUT(p, Color);
 BEGIN
     IF X1 <= X2 THEN
         SU.MinMax(Y, 0, Buffer.Height - 1);
         color := Buffer.Color;
-        p1 := Buffer.adr + 4 * (Y * Buffer.Width + X1);
+        p1 := Buffer.bitmap + 4 * (Y * Buffer.Width + X1);
         p2 := p1 + (X2 - X1) * 4;
         FOR i := p1 TO p2 BY 4 DO
             sys.PUT(i, color)
         END
     pix: SET;
 BEGIN
     IF X1 <= X2 THEN
         SU.MinMax(Y, 0, Buffer.Height - 1);
-        p1 := Buffer.adr + 4 * (Y * Buffer.Width + X1);
+        p1 := Buffer.bitmap + 4 * (Y * Buffer.Width + X1);
         p2 := p1 + (X2 - X1) * 4;
         FOR i := p1 TO p2 BY 4 DO
             sys.GET(i, pix);
             pix := (-pix) / BITS(color) - {24..31};
   ASSERT(Y1 <= Y2);
   SU.MinMax(Y1, 0, Buffer.Height - 1);
   SU.MinMax(Y2, 0, Buffer.Height - 1);
   color := Buffer.Color;
   line_size := Buffer.Width * 4;
-  p1 := Buffer.adr + line_size * Y1 + 4 * X;
+  p1 := Buffer.bitmap + line_size * Y1 + 4 * X;
   p2 := p1 + (Y2 - Y1) * line_size;
   WHILE p1 <= p2 DO
     sys.PUT(p1, color);
     p1 := p1 + line_size
   END
 END GetColor;
 PROCEDURE TextOut*(X, Y: INTEGER; Text: INTEGER; length: INTEGER; size, params: INTEGER);
 BEGIN
-	drawText(Buffer.adr - 8, X, Y, Text, length, 0FF000000H + Buffer.Color, params)
+	drawText(Buffer.bitmap - 8, X, Y, Text, length, 0FF000000H + Buffer.Color, params)
 END TextOut;
-PROCEDURE Resize2*(Width, Height: INTEGER);
+PROCEDURE InitSize* (Width, Height: INTEGER);
 BEGIN
-  Buffer2.Width := Width;
+	Width0 := Width;
-  Buffer2.Height := Height;
+	Height0 := Height;
-END Resize2;
+END InitSize;
 PROCEDURE Image* (X, Y, sizeX, sizeY, ptr, Ymin, Ymax: INTEGER);
 VAR
 	y: INTEGER;
 BEGIN
 	ASSERT(sizeX <= Buffer.Width);
 	FOR y := 0 TO sizeY - 1 DO
 		IF (Ymin <= Y) & (Y < Ymax) THEN
-			sys.MOVE(ptr + sizeX*4*y, Buffer.adr + (Buffer.Width*Y + X)*4, sizeX*4)
+			sys.MOVE(ptr + sizeX*4*y, Buffer.bitmap + (Buffer.Width*Y + X)*4, sizeX*4)
 		END;
 		INC(Y)
 	END
 END Image;
-PROCEDURE Image2(Buffer: PBuffer; X, Y, sizeX, sizeY, ptr: INTEGER);
+PROCEDURE Image2(Buffer: tBuffer; X, Y, sizeX, sizeY, ptr: INTEGER);
 VAR x, y, pix, left: INTEGER;
 BEGIN
   left := X;
   FOR y := 0 TO sizeY - 1 DO
       X := left;
       FOR x := 0 TO sizeX - 1 DO
 PROCEDURE BackImage*(sizeX, sizeY, ptr: INTEGER);
 VAR x, y: INTEGER;
 BEGIN
   IF ptr # 0 THEN
     y := 0;
-    WHILE y < Buffer3.Height DO
+    WHILE y < BackImg.Height DO
       x := 0;
-      WHILE x < Buffer3.Width DO
+      WHILE x < BackImg.Width DO
-        Image2(Buffer3, x, y, sizeX, sizeY, ptr);
+        Image2(BackImg, x, y, sizeX, sizeY, ptr);
         INC(x, sizeX)
       END;
       INC(y, sizeY)
     END
   END
 END BackImage;
-PROCEDURE Copy*(src, dst: PBuffer; y_src, lines, y_dst: INTEGER);
+PROCEDURE Copy*(src, dst: tBuffer; y_src, lines, y_dst: INTEGER);
 BEGIN
-  sys.MOVE(src.adr + y_src * src.Width * 4, dst.adr + y_dst * dst.Width * 4, lines * dst.Width * 4)
-END Copy;
-PROCEDURE Clear*;
-VAR p, color: INTEGER;
-BEGIN
-  color := Buffer.Color;
-  FOR p := Buffer.adr TO Buffer.adr + Buffer.Width * Buffer.Height * 4 - 4 BY 4 DO
-    sys.PUT(p, color)
-  END
+  sys.MOVE(src.bitmap + y_src * src.Width * 4, dst.bitmap + y_dst * dst.Width * 4, lines * dst.Width * 4)
-END Clear;
+END Copy;
 PROCEDURE Draw*(X, Y: INTEGER);
 BEGIN
 PROCEDURE Progress*(value: REAL);
 VAR W4, W2, H2: INTEGER;
 BEGIN
-  W4 := Buffer2.Width DIV 4;
+  W2 := Width0 DIV 2;
-  W2 := Buffer2.Width DIV 2;
+  W4 := W2 DIV 2;
-  H2 := Buffer2.Height DIV 2;
-  SetColor(0FFFFFFH);
+  H2 := Height0 DIV 2;
-  Clear;
+  Fill(Buffer, 0FFFFFFH);
   SetColor(0);
   Rect(W4, H2 - 50, 3 * W4, H2 + 30);
   TextOut(W2 - 10 * 8 DIV 2, H2 - 50 + 15, sys.SADR("Loading..."), 10, 1, 16 + 0 + LSL(3, 16) + LSL(128, 24));
   SetColor(000000FFH);
   Box(W4 + 10, H2, W4 + 10 + FLOOR( FLT(W2 - 20) * value ), H2 + 15);
 END Progress;
-PROCEDURE Resize3(Buffer: PBuffer; Width, Height: INTEGER);
+PROCEDURE _resize (Buffer: tBuffer; Width, Height: INTEGER);
 BEGIN
-  IF Buffer.adr # 0 THEN
+  IF Buffer.bitmap # 0 THEN
-    DEC(Buffer.adr, 8)
+    DEC(Buffer.bitmap, 8)
   END;
-  Buffer.adr := K.realloc(Buffer.adr, Width * Height * 4 + 8);
+  Buffer.bitmap := K.realloc(Buffer.bitmap, Width * Height * 4 + 8);
-  SU.MemError(Buffer.adr = 0);
+  SU.MemError(Buffer.bitmap = 0);
-  sys.PUT(Buffer.adr, Width);
+  sys.PUT(Buffer.bitmap, Width);
-  sys.PUT(Buffer.adr + 4, Height);
+  sys.PUT(Buffer.bitmap + 4, Height);
-  INC(Buffer.adr, 8);
+  INC(Buffer.bitmap, 8);
   Buffer.Width  := Width;
   Buffer.Height := Height
+END _resize;
-END Resize3;
 PROCEDURE Resize*(Width, Height: INTEGER);
 BEGIN
-PROCEDURE Resize*(Width, Height: INTEGER);
+	_resize(Buffer,  Width, Height);
-BEGIN
+	IF BackImg # NIL THEN
+		_resize(BackImg, Width, Height)
-  Resize3(Buffer,  Width, Height);
+	END
-  Resize3(Buffer3, Width, Height);
-END Resize;
 END Resize;
 PROCEDURE Init;
+PROCEDURE Init;
+VAR Width, Height: INTEGER;
+BEGIN
+	BackImg := NIL;
+	NEW(Buffer);
+	SU.GetScreenSize(Width, Height);
+	Resize(Width, Height)
+END Init;
+PROCEDURE CreateBackImg*;
+BEGIN
+	IF BackImg = NIL THEN
+		BackImg := Create(Buffer.Width, Buffer.Height)
-VAR Width, Height: INTEGER;
+	END
-BEGIN
+END CreateBackImg;
   NEW(Buffer);

Subversion Repositories Kolibri OS

(root)/programs/other/fb2reader/SRC/Graph.ob07 – Rev 9896 → 9898