From 211b467ee3aaa4565a0d2a32480f5f6155b353c1 Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sun, 22 May 2022 23:08:14 -0400
Subject: added stroke attribute to line

---
 challenge-165/adam-russell/perl/ch-1.pl  | 2 +-
 challenge-165/adam-russell/perl/ch-2.pl  | 2 +-
 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):-
-- 
cgit