diff options
| author | Adam Russell <ac.russell@live.com> | 2022-05-22 23:08:14 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-05-22 23:08:14 -0400 |
| commit | 211b467ee3aaa4565a0d2a32480f5f6155b353c1 (patch) | |
| tree | 9859d25ea0bb57f5864068ec421c09ba167fdd51 | |
| parent | 0d99779c5fb9a9bc05ae4d09da24406861a7e1e3 (diff) | |
| download | perlweeklychallenge-club-211b467ee3aaa4565a0d2a32480f5f6155b353c1.tar.gz perlweeklychallenge-club-211b467ee3aaa4565a0d2a32480f5f6155b353c1.tar.bz2 perlweeklychallenge-club-211b467ee3aaa4565a0d2a32480f5f6155b353c1.zip | |
added stroke attribute to line
| -rw-r--r-- | challenge-165/adam-russell/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-165/adam-russell/perl/ch-2.pl | 2 | ||||
| -rw-r--r-- | challenge-165/adam-russell/prolog/ch-1.p | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/challenge-165/adam-russell/perl/ch-1.pl b/challenge-165/adam-russell/perl/ch-1.pl index 3d42c6c29a..bcc7a68ada 100644 --- a/challenge-165/adam-russell/perl/ch-1.pl +++ b/challenge-165/adam-russell/perl/ch-1.pl @@ -20,7 +20,7 @@ sub svg_point{ sub svg_line{ my($x0, $y0, $x1, $y1) = @_; - return "<line x1=\"$x0\" x2=\"$x1\" y1=\"$y0\" y2=\"$y1\" />"; + return "<line x1=\"$x0\" x2=\"$x1\" y1=\"$y0\" y2=\"$y1\" style=\"stroke:#006600;\" />"; } sub svg{ diff --git a/challenge-165/adam-russell/perl/ch-2.pl b/challenge-165/adam-russell/perl/ch-2.pl index a5918b948c..261c4249f2 100644 --- a/challenge-165/adam-russell/perl/ch-2.pl +++ b/challenge-165/adam-russell/perl/ch-2.pl @@ -23,7 +23,7 @@ sub svg_point{ sub svg_line{ my($x0, $y0, $x1, $y1) = @_; - return "<line x1=\"$x0\" x2=\"$x1\" y1=\"$y0\" y2=\"$y1\" />"; + return "<line x1=\"$x0\" x2=\"$x1\" y1=\"$y0\" y2=\"$y1\" style=\"stroke:#006600;\" />"; } sub svg{ diff --git a/challenge-165/adam-russell/prolog/ch-1.p b/challenge-165/adam-russell/prolog/ch-1.p index 216512621e..17df1991b4 100644 --- a/challenge-165/adam-russell/prolog/ch-1.p +++ b/challenge-165/adam-russell/prolog/ch-1.p @@ -4,7 +4,7 @@ svg_body-->svg_line(_, _, _, _), svg_body. svg_body-->svg_point(_, _), svg_body. svg_begin-->['<?xml version="1.0" encoding="UTF-8" standalone="yes"?><!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd"><svg height="100%" width="100%" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">']. svg_point(X, Y)-->['<circle cx="', X,'" cy="', Y, '" r="1" />']. -svg_line(X1, Y1, X2, Y2)-->['<line x1="', X1, '" x2="', X2, '" y1="', Y1, '" y2="', Y2, '" />']. +svg_line(X1, Y1, X2, Y2)-->['<line x1="', X1, '" x2="', X2, '" y1="', Y1, '" y2="', Y2, '" style="stroke:#006600;" />']. svg_end-->['</svg>']. plot([], SVGAccum, SVG):- |