La géométrie s'est également s'amuser à faire des dessins à l'apparence mathématique. Un des classiques dans ce genre, c'est bien sûre dessiner un «Treillis». Voici le code Oberon .NET :
MODULE treillis;
IMPORT System,System.Drawing,System.Windows.Forms;
TYPE
TreillisApp = OBJECT IMPLEMENTS System.Windows.Forms.Form;
PROCEDURE Painting(sender: OBJECT; pe: System.Windows.Forms.PaintEventArgs);
VAR
p: System.Drawing.Pen;
x,y,t,i:INTEGER;
BEGIN
NEW(p,System.Drawing.Color.FromArgb(0, 0, 0));
x:=30;
y:=40;
t:=240;
FOR i := 0 TO t BY 5 DO
pe.get_Graphics().DrawLine(p, x, y + i, x + i, y + t)
END;
END Painting;
PROCEDURE NEW();
VAR
PaintHandler:System.Windows.Forms.PaintEventHandler;
BEGIN
NEW(PaintHandler, Painting);
System.Windows.Forms.Form.add_Paint(PaintHandler);
System.Windows.Forms.Form.set_Text("Trellis");
System.Windows.Forms.Form.set_Width(300);
System.Windows.Forms.Form.set_Height(320);
System.Windows.Forms.Form.set_BackColor(System.Drawing.Color.FromArgb(255, 255, 255));
END NEW;
END TreillisApp;
VAR
treilisapp:TreillisApp;
BEGIN
NEW(treilisapp);
System.Windows.Forms.Application.Run(System.Windows.Forms.Form(treilisapp));
END treillis.
Voici en terminant un exemple du résultat de se petit programme:
Dernière mise à jour : Samedi, le 2 février 2008