(* Returns a randomly chosen area for a Kulula component *) PROCEDURE KLLRandom( o: ANY; i : INTEGER ) : WMRectangles.Rectangle; VAR r: WMRectangles.Rectangle; z: REAL; KLLindex: LONGINT; tmp: Utilities.String; RandomNumbers: AosRandom.Sequence; BEGIN NEW(RandomNumbers); tmp := GetAttributeValue( Kulula.aKLLindex ); Utilities.StrToInt( tmp^, KLLindex ); INC(KLLindex, 3); INC( KLLindex ); IF o IS Kulula.VisibleComponent THEN RandomNumbers.InitSeed( KLLindex * (i + 1) ); z := RandomNumbers.Uniform(); r.l := ENTIER( RandomNumbers.Uniform() * bounds.GetWidth() ); r.t := ENTIER( RandomNumbers.Uniform() * bounds.GetHeight() ); r.r := r.l + ENTIER( RandomNumbers.Uniform() * ( bounds.GetWidth() - r.l) ); r.b := r.t + ENTIER( RandomNumbers.Uniform() * ( bounds.GetHeight() - r.t) ); ELSIF o IS WMComponents.VisualComponent THEN RandomNumbers.InitSeed( KLLindex * (i + 1) ); z := RandomNumbers.Uniform(); r.l := ENTIER( RandomNumbers.Uniform() * bounds.GetWidth() ); r.t := ENTIER( RandomNumbers.Uniform() * bounds.GetHeight() ); r.r := r.l + ENTIER( RandomNumbers.Uniform() * ( bounds.GetWidth() - r.l) ); r.b := r.t + ENTIER( RandomNumbers.Uniform() * (bounds.GetHeight() - r.t) ); END; RETURN r END KLLRandom; (* Returns an area for a Kulula component in the shape of a big Z letter: firstly, at the left top corner. Secondly, on the right of the first component. The third component in the center. After that at the bottom left and finally at the bottom right *) PROCEDURE KLLZicZac( o: ANY; i : INTEGER ) : WMRectangles.Rectangle; VAR r: WMRectangles.Rectangle; z: REAL; BEGIN (* TODO *) RETURN r END;