% Nom du fichier: Scanning.sim % Description: Exemple d'utilisation de Portion donnant l'impression % qu'on numerise l'image % Note: Aucun procede anti-flicker n'a ete developpe... % Auteur: JPH % Date: Le 28 juillet 1997 % Version: 1.1 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("Please wait... Scanning") DO BEGIN REF(Button) Ok; REF(Picture) Tiger, ScanLine; INTEGER i, Wi = 5; SetSize(300, 300); Show; OK :- MakeButton("Start").PlaceDownRight; Tiger :- GetPicture("tiger.gif"); OK.Wait; FOR I := 0 STEP Wi UNTIL Tiger.Width DO BEGIN ScanLine :- Tiger.Portion(i, 0, Wi, Tiger.height); DrawPicture(ScanLine, i, 10); Sleep(0.03); ClearRectangle(i, 10, Wi, Tiger.height); END; FOR I := Tiger.width STEP -Wi UNTIL 0 DO BEGIN ScanLine :- Tiger.Portion(i, 0, Wi, Tiger.height); DrawPicture(ScanLine, i, 10); Sleep(0.03); ClearRectangle(i, 10, Wi, Tiger.height); END; Ok.SetHeading("Quit"); Ok.Wait; END; END;