WMSimpleGraphs.Mod 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251
  1. MODULE WMSimpleGraphs; (** AUTHOR "Patrick Hunziker"; PURPOSE "Minimum-overhead graph drawing and storing"; *)
  2. (** right-click on navigator thumbnail allows window storage as image file *)
  3. (*ToDo: catch NaN and Inf in data and other strategies to avoid erratic window sizes*)
  4. IMPORT WMWindowManager, Strings, WMGraphics, WMRectangles, Modules, Reals, WM:=WMWindowManager;
  5. TYPE
  6. Histogram* = OBJECT (WM.Window);
  7. VAR
  8. data:ARRAY [*] OF LONGREAL;
  9. width,height:LONGINT;
  10. PROCEDURE &New*(CONST data: ARRAY [*] OF LONGREAL; CONST title: ARRAY OF CHAR);
  11. VAR max:LONGREAL;
  12. BEGIN
  13. SELF.data:=data;
  14. max:=MAX(data);
  15. width:=LEN(data,0); height:=ENTIER(max)+1;
  16. Init(10*width, 10*height, FALSE);
  17. WM.GetDefaultManager().Add(PosX, PosY, SELF, {WM.FlagFrame,WM.FlagClose});
  18. MovePos(GetWidth());
  19. SetTitle(Strings.NewString(title));
  20. SetPointerInfo(manager.pointerCrosshair);
  21. END New;
  22. PROCEDURE Draw*(canvas : WMGraphics.Canvas; w, h, q : LONGINT);
  23. VAR i:LONGINT;
  24. BEGIN
  25. canvas.Fill(WMRectangles.MakeRect(0, 0, w, h), WMGraphics.White, WMGraphics.ModeCopy);
  26. FOR i:=0 TO LEN(data,0)-1 DO
  27. canvas.Fill(WMRectangles.MakeRect( i*w DIV width , h-ENTIER(data[i]*h / height),
  28. (i+1)*w DIV width , h), WMGraphics.Black, WMGraphics.ModeCopy);
  29. END;
  30. INC(timestamp);
  31. END Draw;
  32. END Histogram;
  33. Graph* = OBJECT (WM.Window);
  34. VAR
  35. data:ARRAY [*] OF LONGREAL;
  36. width,height:LONGINT;
  37. max,min:LONGREAL;
  38. PROCEDURE &New*(CONST data: ARRAY [*] OF LONGREAL; CONST title: ARRAY OF CHAR);
  39. BEGIN
  40. SELF.data:=data;
  41. max:=MAX(data);
  42. min:=MIN(0, MIN(data));
  43. width:=LEN(data,0); height:=ENTIER(max-min)+1;
  44. Init(10*width, 10*height, FALSE);
  45. WM.GetDefaultManager().Add(PosX, PosY, SELF, {WM.FlagFrame,WM.FlagClose});
  46. MovePos(GetWidth());
  47. SetTitle(Strings.NewString(title));
  48. SetPointerInfo(manager.pointerCrosshair);
  49. END New;
  50. PROCEDURE Draw*(canvas : WMGraphics.Canvas; w, h, q : LONGINT);
  51. VAR i:LONGINT; mn,mx:LONGINT;
  52. BEGIN
  53. canvas.Fill(WMRectangles.MakeRect(0, 0, w, h), WMGraphics.White, WMGraphics.ModeCopy);
  54. mn:=ENTIER(0.5+min*h / height);
  55. mx:=ENTIER(0.5+max*h / height);
  56. FOR i:=0 TO LEN(data,0)-2 DO
  57. canvas.Line(i*w DIV width, h+mn-ENTIER(0.5+data[i]*h / height),
  58. (i+1)*w DIV width, h+mn-ENTIER(0.5+data[i+1]*h / height),
  59. WMGraphics.Black, WMGraphics.ModeCopy);
  60. END;
  61. IF mn#0 THEN
  62. canvas.Line(0, h+mn, w, h+mn, WMGraphics.Black, WMGraphics.ModeCopy);
  63. END;
  64. INC(timestamp);
  65. END Draw;
  66. END Graph;
  67. GraphXY* = OBJECT (WM.Window);
  68. VAR
  69. data:ARRAY [*,*] OF LONGREAL;
  70. width,height:LONGINT;
  71. max,min:LONGREAL;
  72. PROCEDURE &New*(CONST data: ARRAY [*,*] OF LONGREAL; CONST title: ARRAY OF CHAR);
  73. BEGIN
  74. SELF.data:=data;
  75. max:=MAX(0,MAX(data));
  76. min:=MIN(0, MIN(data));
  77. width:=ENTIER(max-min)+1; height:=ENTIER(max-min)+1;
  78. Init(10*width, 10*height, FALSE);
  79. WM.GetDefaultManager().Add(PosX, PosY, SELF, {WM.FlagFrame,WM.FlagClose});
  80. MovePos(GetWidth());
  81. SetTitle(Strings.NewString(title));
  82. SetPointerInfo(manager.pointerCrosshair);
  83. END New;
  84. PROCEDURE Draw*(canvas : WMGraphics.Canvas; w, h, q : LONGINT);
  85. VAR i:LONGINT; mnw,mnh,mxw,mxh:LONGINT; scalex,scaley:REAL;
  86. BEGIN
  87. canvas.Fill(WMRectangles.MakeRect(0, 0, w, h), WMGraphics.White, WMGraphics.ModeCopy);
  88. scalex:=w/width; scaley:=h/height;
  89. mnw:=ENTIER(0.5+min* scalex); mxw:=ENTIER(0.5+max* scalex);
  90. mnh:=ENTIER(0.5+min* scaley); mxh:=ENTIER(0.5+max* scaley);
  91. FOR i:=0 TO LEN(data,1)-2 DO
  92. canvas.Line(-mnw+ENTIER(0.5+data[0,i]*scalex), h+mnh-ENTIER(0.5+data[1,i]*scaley),
  93. -mnw+ENTIER(0.5+data[0,i+1]*scalex), h+mnh-ENTIER(0.5+data[1,i+1]*scaley),
  94. WMGraphics.Blue, WMGraphics.ModeCopy);
  95. END;
  96. IF mnh#0 THEN
  97. canvas.Line(0, h+mnh, w, h+mnh, WMGraphics.Black, WMGraphics.ModeCopy);
  98. END;
  99. IF mnw#0 THEN
  100. canvas.Line(-mnw, 0, -mnw, h, WMGraphics.Black, WMGraphics.ModeCopy);
  101. END;
  102. INC(timestamp);
  103. END Draw;
  104. END GraphXY;
  105. Graphs* = OBJECT (WM.Window);
  106. VAR
  107. data:ARRAY [*,*] OF LONGREAL;
  108. width,height:LONGINT;
  109. max,min:LONGREAL;
  110. PROCEDURE &New*(CONST data: ARRAY [*,*] OF LONGREAL; CONST title: ARRAY OF CHAR);
  111. BEGIN
  112. SELF.data:=data;
  113. max:=MAX(data);
  114. min:=MIN(0, MIN(data));
  115. width:=LEN(data,1); height:=ENTIER(max-min)+1;
  116. Init(10*width, 10*height, FALSE);
  117. WM.GetDefaultManager().Add(PosX, PosY, SELF, {WM.FlagFrame,WM.FlagClose});
  118. MovePos(GetWidth());
  119. SetTitle(Strings.NewString(title));
  120. SetPointerInfo(manager.pointerCrosshair);
  121. END New;
  122. PROCEDURE Draw*(canvas : WMGraphics.Canvas; w, h, q : LONGINT);
  123. VAR i,j:LONGINT; mn,mx:LONGINT;
  124. BEGIN
  125. canvas.Fill(WMRectangles.MakeRect(0, 0, w, h), WMGraphics.White, WMGraphics.ModeCopy);
  126. mn:=ENTIER(0.5+min*h / height);
  127. mx:=ENTIER(0.5+max*h / height);
  128. FOR j:=0 TO LEN(data,0)-1 DO
  129. FOR i:=0 TO LEN(data,1)-2 DO
  130. canvas.Line(i*w DIV width, h+mn-ENTIER(0.5+data[j,i]*h / height),
  131. (i+1)*w DIV width, h+mn-ENTIER(0.5+data[j,i+1]*h / height),
  132. Colors[j MOD LEN(Colors,0)], WMGraphics.ModeCopy);
  133. END;
  134. END;
  135. IF mn#0 THEN
  136. canvas.Line(0, h+mn, w, h+mn, WMGraphics.Black, WMGraphics.ModeCopy);
  137. END;
  138. INC(timestamp);
  139. END Draw;
  140. END Graphs;
  141. (** display matrix values in checkerboard like fashion. positive values are in black/grey/white, negative values in red*)
  142. Matrix* = OBJECT (WM.Window);
  143. VAR
  144. data:ARRAY [*,*] OF LONGREAL;
  145. width,height:LONGINT;
  146. max,min, offset, gain:LONGREAL;
  147. PROCEDURE &New*(CONST data: ARRAY [*,*] OF LONGREAL; CONST title: ARRAY OF CHAR);
  148. BEGIN
  149. SELF.data:=data;
  150. min:=MIN(data); max:=MAX(data);
  151. max:=MAX(ABS(min), ABS(max));
  152. min:=MIN(0, min);
  153. IF max=0 THEN max:=1 END;
  154. width:=MAX(1,LEN(data,0));
  155. height:=MAX(1,LEN(data,1));
  156. Init(width, height, TRUE);
  157. offset:=0; gain:=255/max;
  158. IF( width<10) OR (height<10) THEN
  159. bounds := WMGraphics.MakeRectangle(0, 0, 10*width, 10*height);(* grow small images *)
  160. END;
  161. WM.GetDefaultManager().Add(PosX, PosY, SELF, {WM.FlagFrame,WM.FlagClose});
  162. MovePos(GetWidth());
  163. SetTitle(Strings.NewString(title));
  164. SetPointerInfo(manager.pointerCrosshair);
  165. END New;
  166. PROCEDURE Draw*(canvas : WMGraphics.Canvas; w, h, q : LONGINT);
  167. VAR col: WMGraphics.Color; x,y:LONGINT; val:LONGREAL; valI:LONGINT;
  168. BEGIN
  169. FOR y:=0 TO LEN(data,0)-1 DO
  170. FOR x:=0 TO LEN(data,1)-1 DO
  171. val:=data[y,x]; IF Reals.IsNaNL(val) THEN val:=0 END;
  172. valI:=ENTIER(offset+gain*val);
  173. valI:=MAX(-255, MIN( 255, valI));
  174. IF valI>=0 THEN col:=WMGraphics.RGBAToColor(valI,valI,valI,255);
  175. ELSE col:=WMGraphics.RGBAToColor(-valI,0,0,255);
  176. END;
  177. canvas.Fill(WMRectangles.MakeRect(x*w DIV width , h -ENTIER(0.5+(y+1)*h / height),
  178. (x+1)*w DIV width , h-ENTIER(0.5+y*h / height)),
  179. col, WMGraphics.ModeCopy);
  180. END;
  181. END;
  182. INC(timestamp);
  183. END Draw;
  184. END Matrix;
  185. PROCEDURE MovePos(dx:LONGINT);
  186. BEGIN
  187. INC(Pos,dx);
  188. PosX:=Pos MOD 900;
  189. PosY:=100+ (Pos DIV 900)*100 MOD 700;
  190. END MovePos;
  191. VAR Colors: ARRAY [*] OF WMGraphics.Color;
  192. Pos, PosX,PosY: LONGINT;
  193. PROCEDURE Demo*;
  194. VAR h:Histogram; g:Graph; k: Graphs; gx:GraphXY; m:Matrix;
  195. BEGIN {EXCLUSIVE}
  196. NEW(h,[4,7,8,4,5,9,6,5,3,2,12,17,3,0,2], "Histogram");
  197. NEW(g,[4,7,8,4,5,9,6,5,3,2,12,17,3,-3,2], "Graph");
  198. NEW(k,[[-2,7,8,4,5,9,6,4,7,8,4,5,9,6],
  199. [5,3,2,12,21,3,0,5,3,-2,12,17,3,1]], "MultiGraph");
  200. NEW(gx,[ [-2,-1,0,1,5,9,6,4,7,3,4,5,9,6],
  201. [1,3,4,7,12,3,0,5,3,-2,12,17,3,1]], "GraphXY");
  202. NEW(m,[[1,2,3,4],[4,3,2,4],[5,4,-2,-6],[3,1,0,-1]], "Matrix");
  203. END Demo;
  204. PROCEDURE Cleanup;
  205. VAR manager:WM.WindowManager; w,remove:WM.Window;
  206. BEGIN {EXCLUSIVE}
  207. manager:=WM.GetDefaultManager();
  208. manager.lock.AcquireWrite;
  209. w:=manager.GetFirst();
  210. WHILE w#NIL DO
  211. remove:=w;
  212. w:=manager.GetNext(w);
  213. IF (remove#NIL)&
  214. ((remove IS Histogram) OR (remove IS Graph) OR (remove IS GraphXY) OR (remove IS Graphs) OR (remove IS Matrix))
  215. THEN manager.Remove(remove);
  216. END;
  217. END;
  218. manager.lock.ReleaseWrite;
  219. END Cleanup;
  220. BEGIN
  221. Modules.InstallTermHandler(Cleanup);
  222. Colors:=[WMGraphics.Red,WMGraphics.Blue,WMGraphics.Green,WMGraphics.Yellow, WMGraphics.Magenta, WMGraphics.Cyan, WMGraphics.Gray];
  223. Pos:=0; MovePos(0);
  224. END WMSimpleGraphs.
  225. SystemTools.Free WMSimpleGraphs ~
  226. WMSimpleGraphs.Demo ~