components/aggpas/aa_test.dpr

125 { frand }
126 function frand(x : double ) : double;
671    r:=frand(20.0 ) + 1.0;
673    ell.init(frand(w ) ,frand(h ) ,r / 2 ,r / 2 ,trunc(r ) + 10 );
680    rgba.ConstrDbl(frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) ,0.5 + frand(0.5 ) );
707    x1:=frand(w );
708    y1:=frand(h );
709    x2:=x1 + frand(w * 0.5 ) - w * 0.25;
710    y2:=y1 + frand(h * 0.5 ) - h * 0.25;
712    rgba.ConstrDbl  (frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) ,0.5 + frand(0.5 ) );
713    rgbb.ConstrDbl  (frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) );
731    x1:=frand(w );
732    y1:=frand(h );
733    x2:=x1 + frand(w * 0.4 ) - w * 0.2;
734    y2:=y1 + frand(h * 0.4 ) - h * 0.2;
735    x3:=x1 + frand(w * 0.4 ) - w * 0.2;
736    y3:=y1 + frand(h * 0.4 ) - h * 0.2;
738    rgba.ConstrDbl       (frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) ,0.5 + frand(0.5 ) );
739    rgbb.ConstrDbl       (frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) );
740    rgbc.ConstrDbl       (frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) ,frand(1.0 ) );