- remove graph unit usage

tests/test/units/system/trandom.pp

@@ -1,136 +1,26 @@
-{ %GRAPH }
 { %INTERACTIVE }
-{
-  This program test the random function
-  It gets 10M random values
-  that are placed in 10000 windows
-  and print the number of occurence for each window
-  and the profile of the distribution
-  of the counts
-
-  - this gave very bad value due to a modulo problem
-    but after this solved
-    it still shows strange wings !!
-}
 program test_random;
 
-uses
+var
-{$ifdef go32v2}
+ i: integer;
-  dpmiexcp,
-{$endif go32v2}
-   graph;
-
-
-const max = 1000;
-      maxint = 10000*max;
-
-
-var x : array[0..max-1] of longint;
-    y : array[-100..100] of longint;
-
-    mean,level,i : longint;
-    maxcount,delta,maximum,minimum : longint;
-    st,st2 : string;
-    gm,gd : integer;
-    color : longint;
-
 begin
-
+  randomize;
-{$ifdef go32v2}
+  WriteLn('Random Values II:');
-   gm:=m640x400x256;
+  for i:=0 to 100 do
-   gd:=vesa;
-{$else }
-   gd:=detect;
-{$endif }
-   InitGraph(gd,gm,'\tp\bgi');
-{$ifdef FPC}
-   SetWriteMode(NormalPut);
-{$endif FPC}
-   SetColor(red);
-   color:=blue;
-
-   mean:=maxint div max;
-
-   setfillstyle(solidfill,blue);
-   for level:=0 to 10 do
    begin
-
+     WriteLn(Random(100));
-        for i:=0 to max-1 do
+   end;
-          x[i]:=0;
+  randomize;
-        for i:=-100 to 100 do
+  WriteLn('Random Values I:');
-          y[i]:=0;
+  for i:=0 to 100 do
-        for i:=0 to maxint-1 do
    begin
-             if level=0 then
+     WriteLn(Random(100));
-               inc(x[trunc(random*max)])
-             else
-               inc(x[random(max*level) div (level)]);
-             if i mod (maxint div 10) = 0 then
-               begin
-                  bar(20+textwidth('iteration '),17,
-                    20+textwidth('iteration 0000000'),26);
-                  st:='';
-                  str(i,st);
-                  st:='iteration '+st;
-                  OutTextXY(20,20,st);
-                  {Writeln(stderr,st);}
    end;
-          end;
-        maximum:=0;
-        minimum:=$7FFFFFFF;
-        maxcount:=0;
-        for i:=0 to max-1 do
-          begin
-             if x[i]>maximum then
-               maximum:=x[i];
-             if x[i]<minimum then
-               minimum:=x[i];
-             if abs(x[i]-mean)<100 then
-               inc(y[x[i]-mean]);
-          end;
-        if maximum=0 then
-          inc(maximum);
-
-        for i:=-100 to 100 do
-          if y[i]>maxcount then
-            maxcount:=y[i];
-        if maxcount=0 then
-          inc(maxcount);
-
-        OutTextXY(GetMaxX div 2,GetMaxY-30,'Random Test Program');
-
-        str(level,st);
-        st:='Level '+st;
-        bar(30,GetMaxY-65,
-         30+textwidth(st),getMaxY-52);
-        OutTextXY(30,GetMaxY-59,st);
-        str(maximum,st);
-        str(minimum,st2);
-        st:='Maximum = '+st+' Minimum ='+st2;
-        bar(30,GetMaxY-35,
-         30+Textwidth(st),getMaxY-22);
-        OutTextXY(30,GetMaxY-29,st);
-
-        for i:=0 to max-1 do
-          putpixel( (i*getmaxX) div max,
-            GetMaxY-(x[i]*getMaxY) div (2*mean), color);
-        inc(color);
-        setColor(color);
-        delta:=maximum-minimum+1;
-        for i:=-100 to 100 do
-          begin
-            if i=minimum then
-              moveto( ((i+100)*getMaxX) div 201,
-                GetMaxY-(y[i]*getMaxY) div maxcount)
-            else
-              lineto( ((i+100)*getMaxX) div 201,
-                GetMaxY-(y[i]*getMaxY) div maxcount);
-            if y[i]>0 then
-              circle( ((i+100)*getMaxX) div 201,
-                GetMaxY-(y[i]*getMaxY) div maxcount,5);
-          end;
-        readln;
-        inc(color);
-     end;
-   CloseGraph;
 end.
+
+{
+ $Log$
+ Revision 1.2  2001-07-14 04:24:40  carl
+ - remove graph unit usage
+
+}