program Wrfel_3D;
uses
mSum;
var pen : stift;
screen : bildschirm;
mouse : maus;
board : tastatur;
begin
//Initialisierung
screen := bildschirm.init;
pen := stift.init;
mouse := maus.init;
board := tastatur.init;
//Würfel mit drei Fluchtpunkten!
//erster Fkuchtpunkt!
pen.normal;
pen.bewegeBis(700,800);
pen.runter;
warte(1000);
pen.bewegeBis(450,220); //Fluchtpunktstrecke 1
pen.hoch;
pen.bewegeBis(700,800);
pen.runter;
warte(1000);
pen.bewegeBis(700,306); //Fluchtpunktstrecke 2
pen.hoch;
pen.bewegeBis(700,800);
pen.runter;
warte(1000);
pen.bewegeBis(946,227); //Fluchtpunktstrecke 3
pen.hoch;
//zweiter Fluchtpunkt!
pen.bewegeBis(1340,100);
pen.runter;
warte(1000);
pen.bewegeBis(450,220); //Fluchtpunktstrecke 1
pen.hoch;
pen.bewegeBis(1340,100);
pen.runter;
warte(1000);
pen.bewegeBis(700,306); //Fluchtpunktstrecke 2
pen.hoch;
pen.bewegeBis(1340,100);
pen.runter;
warte(1000);
pen.bewegeBis(700,530); //Fluchtpunktstrecke 3
pen.hoch;
//dritter Fluchtpunkt
pen.bewegeBis(100,100);
pen.runter;
warte(1000);
pen.bewegeBis(946,227); //Fluchtpunktstrecke 1
pen.hoch;
pen.bewegeBis(100,100);
pen.runter;
warte(1000);
pen.bewegeBis(700,306); //Fluchtpunktstrecke 2
pen.hoch;
pen.bewegeBis(100,100);
pen.runter;
warte(1000);
pen.bewegeBis(700,530); //Fluchtpunktstrecke 3
warte(1000);
//Würfel dicker machen!
//Freigabe
screen.gibFrei;
pen.gibFrei;
mouse.gibFrei;
board.gibFrei;
end.