Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]5066[/thread]

Graph im Canvas zeichnen: Graph im Canvas zeichnen (Seite 2)

Leser: 2


<< |< 1 2 >| >> 18 Einträge, 2 Seiten
michael25
 2005-09-13 00:58
#44467 #44467
User since
2005-08-31
23 Artikel
BenutzerIn
[default_avatar]
Nein, der Code bezog sich nicht auf GED. Das war allgemein. Ich habe mittlerweile einwenig herumprogrammiert, so dass ich auf die Events nicht mehr zwangsläufig angewiesen bin (wenngleich es mir nach wie vor schleierhaft ist, was da falsch war). Allerdings bin ich wieder auf kurioses Verhalten in Bezug auf <Enter> und <Leave> gestoßen.

Das <Enter>-Event malt einen Kreis, das <Leave>-Event löscht ihn wieder. Das sind einfach eine createOval- und eine delete-Anweisung. Nun ist es so, dass <Enter> nicht in jedem Fall aufgerufen wird, in dem ich die Maus in einen Knoten bewege. In nicht reproduzierbaren Fällen geht das Programm in eine Endlosschleife über, in der die Events <Enter> und <Leave> abwechselnd aufgerufen werden und zwar vollkommen unabhängig von der Position des Mauszeigers. Ändern kann ich dieses Verhalten nur, wenn ich in einer der beiden Callback-Funktionen $self->update aufrufe. Ansonsten ist Hopfen und Malz verloren. Habe ich hier ein generelles Verständisproblem beim Perl-Eventhandling?
Crian
 2005-09-13 14:52
#44468 #44468
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Nochmal zu Deinen Anforderungen oben: Das mit den Kanten, die nicht zum Zentrum der Ecken läuft, sondern nur an diese stößt, war nicht ganz trivial und ist in GED gelöst. Ich würde an Deiner Stelle wirklich nicht bei 0 anfangen... aber jeder ist seines Glückes Schmied.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
michael25
 2005-09-15 13:32
#44469 #44469
User since
2005-08-31
23 Artikel
BenutzerIn
[default_avatar]
Quote
Das mit den Kanten, die nicht zum Zentrum der Ecken läuft, sondern nur an diese stößt, war nicht ganz trivial und ist in GED gelöst.


Naja, mittlerweile habe ich es geschafft, die Knoten über rechtwinklige Kanten zu verbinden. Das funktioniert über horizontale und vertikale Kollisionserkennung. Trivial war das in der Tat nicht... Abgerundete Linien zeichne ich mittels Parabeln, wobei der Scheitelpunkt und ein weiterer Punkt auf der Parabel anzugeben sind. Daran muss ich aber noch etwas arbeiten...
renee
 2005-09-15 13:34
#44470 #44470
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Kannst Du das mit der Kollisionserkennung mal zeigen?? Wäre daran interessiert...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
michael25
 2005-09-17 22:05
#44471 #44471
User since
2005-08-31
23 Artikel
BenutzerIn
[default_avatar]
Ja, klar. Gib mir bitte noch ein paar Tage, dass ich ausreichend testen kann. Schließlich will ich mich ja nicht blamieren ;-) Ich schicke Dir die Code-Ausschnitte dann per E-Mail.
renee
 2005-09-18 20:03
#44472 #44472
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Es gibt da kein blamieren... Ich freue mich schon darauf. Danke...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
ptk
 2005-10-10 19:59
#44473 #44473
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
[quote=renee,15.09.2005, 11:34]Kannst Du das mit der Kollisionserkennung mal zeigen?? Wäre daran interessiert...[/quote]
Man kann mit
Code: (dl )
$canvas->find("closest", ...)
(oder overlapping oder enclosed) eine sehr einfach gestrickte Kollisionserkennung bauen (wahrscheinlich nur für rechteckige Objekte brauchbar)
renee
 2005-10-10 21:15
#44474 #44474
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
@ptk: Du hast mir gerade sehr bei einem Problem geholfen... Danke!
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 >| >> 18 Einträge, 2 Seiten



View all threads created 2005-08-31 11:24.