Funktionsgraphen zeichnen (in Perl/Tk) - #179895 (Projekte)

rosti

2015-02-27 21:20

User since
2011-03-19
3219 Artikel
BenutzerIn

Läuft!!! Sieht geil aus ;)

Die Variablen als Hash ist doch ein guter Ansatz, also besser als einzelne Vars. Wenn Du das kapseln willst:

Code (perl): (dl )

# Main data, globally available:
# Nun kapseln wir die Variablen in einer blessed Reference...
# $main ist eine Instanz der Klasse main
my $main = bless{
         resx           => 800,
         resy           => 600,
         border         => 30,
         fromx          => -4,
         tox            => 4,
         fromy          => -11,
         toy            => 11,
         xstep          => 200,
         function       => "- (x) ** 2 + 5",
         xzoomcenter    => 0,
         yzoomcenter    => 0,
         xtextspacing   => 8,
         ytextspacing   => 15,
         coordlinesteps => 5,
         coordfont      => "Arial 8 normal"
}, 'main';

... und rufen damit unserer Methoden auf: $main->start; So haben wir die Variablen stets zur Hand ;)