Make the axes arrows configurable per axis.

There are times that you don't want the arrows going in both directions
on both axes.  For instance, if the x-axis doesn't go to the left, but
the y-axis does go both up and down.

Author: drgrice1

htdocs/js/Plots/plots.js

@@ -326,7 +326,7 @@ const PGplots = {
 										? 'sticky'
 										: 'static'
 									: 'fixed',
-							firstArrow: options.axesArrowsBoth ? { size: 7 } : false,
+							firstArrow: options.xAxis.arrowsBoth ? { size: 7 } : false,
 							lastArrow: { size: 7 },
 							highlight: false,
 							straightFirst: options.board?.showNavigation ? true : false,
@@ -420,7 +420,7 @@ const PGplots = {
 										? 'sticky'
 										: 'static'
 									: 'fixed',
-							firstArrow: options.axesArrowsBoth ? { size: 7 } : false,
+							firstArrow: options.yAxis.arrowsBoth ? { size: 7 } : false,
 							lastArrow: { size: 7 },
 							highlight: false,
 							straightFirst: options.board?.showNavigation ? true : false,

lib/Plots/Axes.pm

@@ -177,6 +177,14 @@ Default 'middle' or 'center'.
 The position in terms of the appropriate variable to draw the axis if the location is
 set to 'middle' or 'center'. Default is 0.
 
+=item arrows_both
+
+Configures if arrows should be drawn in both directions (1) or only in the
+positive direction (0) at the axis ends. In other words, this is a choice
+between the convention that arrows are meant to indicate that the axis lines
+continue forever, or the convention that arrows are meant to indicate the
+positive direction of the axis only.  Default: 0
+
 =item jsx_options
 
 A hash reference of options to be passed to the JSXGraph axis object.
@@ -238,14 +246,6 @@ usually not desirable. A better way is to use the "axis background" C<layer> to
 only place the fill on the "axis background" layer, and leave everything else on
 top of the axis.
 
-=item axes_arrows_both
-
-Configures if arrows should be drawn in both directions (1) or only in the
-positive direction (0) at the axes ends. In other words, this is a choice
-between the convention that arrows are meant to indicate that the axes lines
-continue forever, or the convention that arrows are meant to indicate the
-positive direction of the axes only.  Default: 0
-
 =item mathjax_tick_labels
 
 If this is 1, then tick labels will be displayed using MathJax.  If this is 0,
@@ -291,7 +291,6 @@ sub new {
 			grid_alpha          => 40,
 			show_grid           => 1,
 			axis_on_top         => 0,
-			axes_arrows_both    => 0,
 			mathjax_tick_labels => 1,
 		},
 		@options
@@ -322,7 +321,8 @@ sub axis_defaults {
 		tick_num          => 5,
 		major             => 1,
 		minor             => 3,
-		minor_grids       => 1
+		minor_grids       => 1,
+		arrows_both       => 0,
 	);
 }
 

lib/Plots/JSXGraph.pm

@@ -116,10 +116,7 @@ sub HTML {
 		}
 	}
 
-	if ($xvisible || $yvisible) {
-		$options->{mathJaxTickLabels} = $axes->style('mathjax_tick_labels');
-		$options->{axesArrowsBoth}    = $axes->style('axes_arrows_both');
-	}
+	$options->{mathJaxTickLabels} = $axes->style('mathjax_tick_labels') if $xvisible || $yvisible;
 
 	if ($xvisible) {
 		$options->{xAxis}{name}               = $axes->xaxis('label');
@@ -128,6 +125,7 @@ sub HTML {
 		$options->{xAxis}{ticks}{labelFormat} = $axes->xaxis('tick_label_format');
 		$options->{xAxis}{ticks}{labelDigits} = $axes->xaxis('tick_label_digits');
 		$options->{xAxis}{ticks}{scaleSymbol} = $axes->xaxis('tick_scale_symbol');
+		$options->{xAxis}{arrowsBoth}         = $axes->xaxis('arrows_both');
 		$options->{xAxis}{overrideOptions}    = $axes->xaxis('jsx_options') if $axes->xaxis('jsx_options');
 	}
 	if ($yvisible) {
@@ -137,6 +135,7 @@ sub HTML {
 		$options->{yAxis}{ticks}{labelFormat} = $axes->yaxis('tick_label_format');
 		$options->{yAxis}{ticks}{labelDigits} = $axes->yaxis('tick_label_digits');
 		$options->{yAxis}{ticks}{scaleSymbol} = $axes->yaxis('tick_scale_symbol');
+		$options->{yAxis}{arrowsBoth}         = $axes->yaxis('arrows_both');
 		$options->{yAxis}{overrideOptions}    = $axes->yaxis('jsx_options') if $axes->yaxis('jsx_options');
 	}
 

lib/Plots/Tikz.pm

@@ -188,23 +188,24 @@ sub generate_axes {
 	my $xaxis_location = $axes->xaxis('location');
 	my $xaxis_pos      = $xaxis_location eq 'middle' ? $axes->xaxis('position') : 0;
 	my $yaxis_location = $axes->yaxis('location');
-	my $yaxis_pos      = $yaxis_location eq 'center'      ? $axes->yaxis('position')   : 0;
-	my $axis_on_top    = $axes->style('axis_on_top')      ? "axis on top,\n"           : '';
-	my $negativeArrow  = $axes->style('axes_arrows_both') ? 'Latex[{round,scale=1.6}]' : '';
+	my $yaxis_pos      = $yaxis_location eq 'center' ? $axes->yaxis('position')   : 0;
+	my $axis_on_top    = $axes->style('axis_on_top') ? "axis on top,\n"           : '';
+	my $xNegativeArrow = $axes->xaxis('arrows_both') ? 'Latex[{round,scale=1.6}]' : '';
+	my $yNegativeArrow = $axes->yaxis('arrows_both') ? 'Latex[{round,scale=1.6}]' : '';
 	my $tikz_options   = $axes->style('tikz_options') // '';
 
 	my $xlabel = $xvisible ? $axes->xaxis('label') : '';
 	my $xaxis_style =
 		$xvisible
-		? ",\nx axis line style={$negativeArrow-Latex[{round,scale=1.6}]}"
+		? ",\nx axis line style={$xNegativeArrow-Latex[{round,scale=1.6}]}"
 		: ",\nx axis line style={draw=none},\nextra y ticks={0}";
 	my $xtick_style =
 		$xvisible && $axes->xaxis('show_ticks') ? ",\nx tick style={line width=0.6pt}" : ",\nx tick style={draw=none}";
 
 	my $ylabel = $yvisible ? $axes->yaxis('label') : '';
 	my $yaxis_style =
 		$yvisible
-		? ",\ny axis line style={$negativeArrow-Latex[{round,scale=1.6}]}"
+		? ",\ny axis line style={$yNegativeArrow-Latex[{round,scale=1.6}]}"
 		: ",\ny axis line style={draw=none},\nextra x ticks={0}";
 	my $ytick_style =
 		$yvisible && $axes->yaxis('show_ticks') ? ",\ny tick style={line width=0.6pt}" : ",\ny tick style={draw=none}";