1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
# Copyright (c) 1997-2020
# Ewgenij Gawrilow, Michael Joswig, and the polymake team
# Technische Universität Berlin, Germany
# https://polymake.org
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2, or (at your option) any
# later version: http://www.gnu.org/licenses/gpl.txt.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#-------------------------------------------------------------------------------
package TikZ::Lattice;
use Polymake::Struct (
[ '@ISA' => 'Wire' ],
);
sub new {
my $self=&_new;
my $Graph=$self->source;
# we need more room for sloped edgelabels
my $widthfactor = 0.8;
if (defined($self->source->EdgeLabels)) {
$widthfactor*=2;
}
my @label_width=map {
(line_break_label_length($Graph->NodeLabels->($_))+1)*$widthfactor;
} 0..$Graph->n_nodes-1;
my $embedding=$Graph->Coord;
if (is_object($embedding)) {
# expecting Visual::GraphEmbedding here
$embedding->label_width=\@label_width;
$embedding->options->{dual}= $Graph->Mode eq "dual";
}
$self;
}
sub drawPoint {
my ($self,$i) = @_;
my $id=$self->id;
#points stuff
my $point_style=$self->source->VertexStyle;
my $point_flag= is_code($point_style) || $point_style !~ $Visual::hidden_re ? "show" : "hide";
my $point_color=$self->source->VertexColor;
my $point_color_flag= is_code($point_color) ? "show" : "hide";
my $point_labels=$self->source->VertexLabels;
my $alignment=$self->source->LabelAlignment;
#---
my $point_thickness=$self->source->VertexThickness;
my $point_thickness_flag= is_code($point_thickness) ? "show" : "hide";
my $text;
my $option_string = ($point_color_flag eq "show") ? "pointcolor\_$id"."\_$i" : "pointcolor\_$id";
my $pthick = ($point_thickness_flag eq "show") ? $point_thickness->($i) : $point_thickness;
$text .= " \\node[text=black, inner sep=3pt,draw=black,fill=$option_string,rectangle,rounded corners=3pt,align=".$alignment."] at (v$i\_$id) {".$point_labels->($i).'};'."\n";
return $text;
}
sub line_break_label_length {
return max(map {length($_)} split(/\\\\/,shift));
}
1
|
