Quelle  canvas.g   Sprache: unbekannt

################################################
#! @BeginChunk Example_Create_Canvas_1
#! @BeginExample

canvas := Canvas("");
Id(canvas);
SetTitle(canvas, "Quaternion Group Subgroup Lattice");
Title(canvas);
SetHeight(canvas, 400); # default 600
Height(canvas);
SetWidth(canvas, 400); # default 800
Width(canvas);
SetZoomToFit(canvas, false); # default true
ZoomToFit(canvas);

Draw(canvas);

#! @EndExample
#! @EndChunk