home *** CD-ROM | disk | FTP | other *** search
- teller = eval("/:aantal");
- while("0" < teller)
- {
- set("/:bolx" add teller,(eval("/:bolx" add (teller - "1")) + eval("/:bolx" add teller)) / "2");
- setProperty("/bol_" add teller, _X, eval("/:bolx" add teller));
- set("/:boly" add teller,(eval("/:boly" add (teller - "1")) + eval("/:boly" add teller)) / "2");
- setProperty("/bol_" add teller, _Y, eval("/:boly" add teller));
- teller -= "1";
- }
-