Supportnet / Forum / Anwendungen(Java,C++...)
Turbo Pascal
Frage
Hallo,
als Aufgabe in der Schule soll ich in Turbo Pascal ein Verkehrsschild (Zeichen 114) namens "Schleudergefahr bei Nässe oder Schmutz" nachprogrammieren.
Nun habe ich schon das Schild und das Auto, jedoch machen die Spuren mir kleine Schwierigkeiten. Ich habe es jetzt mit einem Ellipsenkreis versucht aber den bekomme ich nur an bestimmten Stellen dicker. So richtig bestimmen, wo er breiter sein soll, kann ich aber nicht.
Meine Frage wäre also, was ich außer einem Ellipsenkreis noch nehmen konnte.
Kann mir da jemand helfen?
Dankes im vorraus,
Jeannette
Antwort 1 von TheoPro
Hallo,
ich habe mich vor 12 Jahren mal mit Turbo Pascal 7.0 befasst und mal in meinem alten Handbuch nachgeschlagen, ob meine Angaben also noch funktionieren weiß ich nicht, aber du kannst sie ja mal ausprobieren.
Um einen Elliptischen Kreisbogen zu zeichnen:
Ellipse(x,y: Integer; Startwinkel, Endwinkel : Word; XRadius, YRadius : Word);
X,Y: Mittelpunktskoordinaten des Ellipsenbogens.
Startwinkel: Winkel, bei dem der Ellipsenbogen beginnt. Angabe in Grad (0..360). 0 Grad ist horizontal rechts von den Mittelpunktskoordinaten; die Zählung erfolgt gegen den Uhrzeigersinn
XRadius : Horizontaler Radius
YRadius: Vertikaler Radius
Der Ellipsenbogen wird in der momentan gesetzten Farbe und der mit SetLineStyle gesetzten Stärke gezeichnet.
Das Höhen- und Seitenverhältnis des Bildschirms (Das von AspectRatio geliefert wird) wird automatisch berücksichtigt.
SetLineStyle(Linienart, Muster, Stärke: Word);
Linienart : 0 bedeutet hier eine durchgezogene Linie
Muster: Wenn bei Linienart UserBitLn oder 4 angegeben ist, geben die einzelnen Bits das Punktmuster der Linie an. Das höchstwertige Bit gibt den jeweils ersten gezeichneten Punkt der Linie an.
Stärke: 3 bedeutet hier eine dicke Linie
Falls die Linie immer noch zu dünn ist könntest du ja auch eine Schleife um die Ellipse-Funktion bauen und den Zähler der Schleife zu Y dazu addieren.
Gruß,
TheoPro
ich habe mich vor 12 Jahren mal mit Turbo Pascal 7.0 befasst und mal in meinem alten Handbuch nachgeschlagen, ob meine Angaben also noch funktionieren weiß ich nicht, aber du kannst sie ja mal ausprobieren.
Um einen Elliptischen Kreisbogen zu zeichnen:
Ellipse(x,y: Integer; Startwinkel, Endwinkel : Word; XRadius, YRadius : Word);
X,Y: Mittelpunktskoordinaten des Ellipsenbogens.
Startwinkel: Winkel, bei dem der Ellipsenbogen beginnt. Angabe in Grad (0..360). 0 Grad ist horizontal rechts von den Mittelpunktskoordinaten; die Zählung erfolgt gegen den Uhrzeigersinn
XRadius : Horizontaler Radius
YRadius: Vertikaler Radius
Der Ellipsenbogen wird in der momentan gesetzten Farbe und der mit SetLineStyle gesetzten Stärke gezeichnet.
Das Höhen- und Seitenverhältnis des Bildschirms (Das von AspectRatio geliefert wird) wird automatisch berücksichtigt.
SetLineStyle(Linienart, Muster, Stärke: Word);
Linienart : 0 bedeutet hier eine durchgezogene Linie
Muster: Wenn bei Linienart UserBitLn oder 4 angegeben ist, geben die einzelnen Bits das Punktmuster der Linie an. Das höchstwertige Bit gibt den jeweils ersten gezeichneten Punkt der Linie an.
Stärke: 3 bedeutet hier eine dicke Linie
Falls die Linie immer noch zu dünn ist könntest du ja auch eine Schleife um die Ellipse-Funktion bauen und den Zähler der Schleife zu Y dazu addieren.
Gruß,
TheoPro