%
if (@{$self->geometries}>1) {
$explodablemodel = "true";
$head .= <<"%";
%
}
$head .= <<"%";
%
if ($is_used_in_jupyter) {
$head .= <<"%";
%
} else {
$head .= <<"%";
%
}
$head .= <<"%";
%
unless ($is_used_in_jupyter) {
$head .= "\n";
}
##############################################################################################
##############################################################################################
$head .= <<"%";
%
}
sub toString {
my ($self)=@_;
my $trans = $self->transform;
$self->header($trans) . join("", map { @{$self->geometries}[$_]->toString("obj$_") } (0..@{$self->geometries}-1)) . $self->trailer;
}
##############################################################################################
#
# Basis class for all graphical objects handled by threejs
#
package ThreeJS::PointSet;
use Polymake::Struct (
[ new => '$' ],
[ '$source' => '#1' ],
[ '$name' => '#1->Name' ],
);
sub findCommonProps {
my ($self, $code_props, $type_props, $props) = @_;
foreach (@$type_props) {
if (is_code($self->source->$_)) {
push @$code_props, $_;
} else {
Utils::decor2prop($_, $self->source->$_,$props);
}
}
}
sub newMaterial {
my ($self,$mtype,$type_props,$props,$number)=@_;
my @code_props = ();
$self->findCommonProps(\@code_props, $type_props, $props);
if (@code_props) {
my @materialstrings;
if ($number=="use_edge_iter") {
for (my $e=$self->source->all_edges; $e; ++$e) {
foreach (@code_props) {
Utils::decor2prop($_, $self->source->$_->($e),$props);
push @materialstrings, Utils::materialInstance($mtype,$props);
}
}
} else {
for (my $i=0; $i<$number; ++$i) {
foreach (@code_props) {
Utils::decor2prop($_, $self->source->$_->($i),$props);
push @materialstrings, Utils::materialInstance($mtype,$props);
}
}
}
return "[".join(",\n", @materialstrings)."]";
} else {
return Utils::materialInstance($mtype,$props);
}
}
sub writePointMaterial {
my ($self,$objvar)=@_;
my $props = { side => "THREE.DoubleSide", transparent => "false"};
my $mtype = "MeshBasicMaterial";
my @type_props = ("VertexColor");
my $string = " \n";
my $number = @{$self->source->Vertices};
$string .= "$objvar.userData.pointmaterial = ".$self->newMaterial($mtype, \@type_props, $props, $number).";\n";
return $string;
}
sub writePoints {
my ($self,$objvar) = @_;
my $string = "";
$string .= "$objvar.userData.points = [];\n";
my $embedding=$self->source->Vertices;
if (is_object($embedding) && $embedding->can("label_width")) {
# just provide some label widths for the hd embedder
my @arr = (1)x$self->source->n_nodes;
$embedding->label_width=\@arr;
}
my @coords = Utils::pointCoords($embedding);
foreach (@coords) {
$string .= "$objvar.userData.points.push(new PMPoint($_));\n";
}
return $string."\n";
}
sub writePointRadii {
my ($self,$objvar) = @_;
my $string = "";
my $radii = $self->source->VertexThickness // 1;
my $number = @{$self->source->Vertices};
if (is_code($radii)) {
$string .= "$objvar.userData.pointradii = ".Utils::jsArray(map { $radii->($_)/50 } (0..$number-1)).";\n";
} else {
$string .= "$objvar.userData.pointradii = " . $radii/50 . ";\n";
}
return $string;
}
sub writePointLabels {
my ($self,$objvar) = @_;
my $string = "";
my $labels = $self->source->VertexLabels;
my $number = @{$self->source->Vertices};
my @labels;
my $i=-1;
while ($i < $number-1){
if (defined(my $label = $labels->(++$i))) {
$label =~ s/\n/\\n/g;
push @labels, '"'.$label.'"';
}
}
$string .= "$objvar.userData.pointlabels = ".Utils::jsArray(@labels).";\n";
return $string;
}
sub writeEdgeMaterial {
my ($self,$objvar)=@_;
my $props = { transparent => "false" };
my $mtype = "LineBasicMaterial";
my @type_props = ("EdgeColor", "EdgeThickness");
my $string = " \n";
my $number = 0;
if ($self->source->can("NEdges")) {
$number = $self->source->NEdges;
} elsif ($self->source->can("all_edges")) {
$number = "use_edge_iter";
}
$string .= "$objvar.userData.edgematerial = ".$self->newMaterial($mtype, \@type_props, $props, $number).";\n";
return $string;
}
sub headerString {
my ($self,$var)=@_;
my $string = "var $var = new THREE.Object3D();\n";
$string .= "$var.name = \"".$self->name."\";\n";
$string .= "$var.userData.explodable = ".$self->source->Explodable.";\n";
}
sub trailerString {
my ($self,$var)=@_;
# initializing functions can be found at the beginning of trailer_string.js
my $string = <<"%";
init_object($var);
scene.add($var);
%
}
sub toString {
# the logic in here is again used for the init_object method in javascript
my ($self,$var)=@_;
my $string = "";
$var //= "obj";
$string .= $self->headerString($var);
$string .= $self->writePoints($var);
if ($self->source->VertexStyle !~ $Visual::hidden_re) {
if ($self->source->VertexThickness != 0) {
$string .= $self->writePointRadii($var);
$string .= $self->writePointMaterial($var);
}
$string .= $self->writePointLabels($var) unless ($self->source->VertexLabels =~ $Visual::hidden_re || $self->source->VertexLabels == "");
}
$string .= $self->trailerString($var);
return $string;
}
##############################################################################################
#
# Wire model (e.g. a graph)
package ThreeJS::Wire;
use Polymake::Struct (
[ '@ISA' => 'PointSet' ],
);
sub writeEdgeIndices {
my ($self,$objvar)=@_;
my @allindices;
for (my $e=$self->source->all_edges; $e; ++$e) {
push @allindices, @$e;
}
return "$objvar.userData.edgeindices = ".Utils::jsArray(@allindices).";\n";
}
sub writeEdgeLabels {
my ($self,$objvar)=@_;
my $string = "";
my $labels = $self->source->EdgeLabels;
if (is_code($labels)) {
my @alllabels;
for (my $e=$self->source->all_edges; $e; ++$e) {
my $label = $labels->($e);
$label =~ s/\n/\\n/g;
push @alllabels, '"'.$label.'"';
}
$string .= "$objvar.userData.edgelabels = ".Utils::jsArray(@alllabels).";\n";
} else {
$string .= "$objvar.userData.edgelabels = ".$labels.";\n";
}
return $string;
}
sub writeArrows {
my ($self,$objvar)=@_;
my $string = "";
my $arrowstyle = $self->source->ArrowStyle;
if (is_code($arrowstyle)) {
my @allarrows;
for (my $e=$self->source->all_edges; $e; ++$e) {
push @allarrows, $arrowstyle->($e);
}
$string .= "$objvar.userData.arrowstyle = ".Utils::jsArray(@allarrows).";\n";
} else {
$string .= "$objvar.userData.arrowstyle = ".$arrowstyle.";\n";
}
return $string;
}
sub toString {
my ($self,$var)=@_;
my $string = "";
$var //= "obj";
$string .= $self->headerString($var);
$string .= $self->writePoints($var);
if ($self->source->VertexStyle !~ $Visual::hidden_re) {
if ($self->source->VertexThickness != 0) {
$string .= $self->writePointRadii($var);
$string .= $self->writePointMaterial($var);
}
$string .= $self->writePointLabels($var) unless ($self->source->VertexLabels =~ $Visual::hidden_re || $self->source->VertexLabels == "");
}
$string .= $self->writeEdgeIndices($var);
if ($self->source->EdgeStyle !~ $Visual::hidden_re) {
$string .= $self->writeEdgeMaterial($var);
$string .= $self->writeEdgeLabels($var) unless ($self->source->EdgeLabels =~ $Visual::hidden_re || $self->source->EdgeLabels == "");
$string .= $self->writeArrows($var) unless ($self->source->ArrowStyle =~ $Visual::hidden_re || $self->source->ArrowStyle == 0);
}
$string .= $self->trailerString($var);
return $string;
}
##############################################################################################
#
# Solid 2-d or 3-d body
#
package ThreeJS::Solid;
use Polymake::Struct (
[ '@ISA' => 'PointSet' ],
);
sub writePlanarNetInfo {
my ($self,$objvar)=@_;
# extra data for planar net folding
my $string = "";
$string .= Utils::convertExtraData($objvar.".userData.axes",$self->source->Axes) if defined $self->source->Axes;
$string .= Utils::convertExtraData($objvar.".userData.angles",$self->source->DihedralAngles) if defined $self->source->DihedralAngles;
$string .= Utils::convertExtraData($objvar.".userData.subtrees",$self->source->DependendVertices) if defined $self->source->DependendVertices;
$string .= Utils::convertExtraData($objvar.".userData.polytoperoot",$self->source->PolytopeRoot) if defined $self->source->PolytopeRoot;
$string .= "$objvar.userData.oldscale = 0;\n";
$string .= "foldables.push($objvar);\n";
return $string;
}
sub writeEdgeIndices {
my ($self,$objvar)=@_;
my $string = "";
my $g = graph::graph_from_cycles($self->source->Facets);
my @allindices;
foreach my $e (@{$g->EDGES}) {
push @allindices, @$e;
}
$string .= "$objvar.userData.edgeindices = ".Utils::jsArray(@allindices).";\n";
return $string;
}
sub writeFacetIndices {
my ($self,$objvar)=@_;
my $string = "";
$string .= "$objvar.userData.facets = ".Utils::jsArray(map { Utils::jsArray(@$_) } @{$self->source->Facets}).";\n";
return $string;
}
sub writeFacetMaterial {
my ($self,$objvar)=@_;
my $props = { side => "THREE.DoubleSide", transparent => "true", depthWrite => "false", depthFunc => "THREE.LessDepth", polygonOffset => "true", polygonOffsetFactor => 1, polygonOffsetUnits => 0.5};
my $mtype = "MeshBasicMaterial";
my @type_props = ("FacetColor", "FacetTransparency");
my $text = " \n";
my $number = @{$self->source->Facets};
$text .= "$objvar.userData.facetmaterial = ".$self->newMaterial($mtype, \@type_props, $props, $number).";\n";
return $text;
}
sub toString {
# the logic in here is used for the init_object method in javascript
my ($self,$var)=@_;
my $string = "";
$var //= "obj";
$string .= $self->headerString($var);
$string .= $self->writePoints($var);
if ($self->source->VertexStyle !~ $Visual::hidden_re) {
if ($self->source->VertexThickness != 0) {
$string .= $self->writePointRadii($var);
$string .= $self->writePointMaterial($var);
}
$string .= $self->writePointLabels($var) unless ($self->source->VertexLabels =~ $Visual::hidden_re || $self->source->VertexLabels == "");
}
$string .= $self->writeEdgeIndices($var);
if ($self->source->EdgeStyle !~ $Visual::hidden_re) {
$string .= $self->writeEdgeMaterial($var);
}
$string .= $self->writeFacetIndices($var);
if ($self->source->FacetStyle !~ $Visual::hidden_re) {
$string .= $self->writeFacetMaterial($var);
}
if ($self->source->isa("Visual::PlanarNet::Polygons")) {
$string .= $self->writePlanarNetInfo($var);
}
$string .= $self->trailerString($var);
return $string;
}
##############################################################################################
package ThreeJS::Utils;
sub pointCoords {
my ($data) = @_;
my @coords = ();
my $d = is_object($data) ? $data->cols : 3;
foreach (@{$data}) {
my $point=ref($_) ? Visual::print_coords($_) : "$_".(" 0"x($d-1));
$point =~ s/\s+/, /g;
if ($d == 2) {
$point.= ", 0";
}
if ($d == 1) {
$point.= ", 0, 0";
}
push @coords, $point;
}
return @coords;
}
sub rgbToHex {
my ($red,$green,$blue) = @_;
my $hex = sprintf ("0x%2.2X%2.2X%2.2X", $red*255, $green*255, $blue*255);
return ($hex);
}
sub jsArray {
"[".join(", ", @_)."]";
}
sub materialInstance {
my ($material_type, $attr) = @_;
return "new THREE.$material_type( " . hash2string($attr) . " )";
}
sub decor2prop {
my ($name, $value, $props) = @_;
if ($name =~ "Color") {
$props->{color} = Utils::rgbToHex(@$value);
}
if ($name eq "FacetTransparency") {
my $opacity = defined($value) ? 1-$value : 1;
$props->{opacity} = $opacity;
}
if ($name eq "EdgeThickness") {
my $width = $value || 1.5;
$props->{linewidth} = $width;
}
}
sub hash2string {
my ($hash) = @_;
return "{ ".join(", ", map { "$_: $hash->{$_}" } sort keys %$hash)." }";
}
sub convertExtraData {
my ($var,$data) = @_;
return "$var = [". join(",\n ", map {ref $_ eq "ARRAY" ? "[".join(",",@$_)."]" : $_ } @$data)."];\n\n";
}
1
# Local Variables:
# mode: perl
# cperl-indent-level:3
# indent-tabs-mode:nil
# End: