+ my $path = '(' . $tikz->len($p->x) . ',' . $tikz->len($p->y) . ')';
+
+ my $label = $set->label;
+ if (defined $label) {
+ my $pos = $set->pos;
+ $pos = 'above' unless defined $pos;
+
+ my $size = sprintf '%0.1fpt', 2 * $tikz->scale / 5;
+ $path .= " [fill] circle ($size) " . $tikz->label($label, $pos);
+ }