Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit 44042b31 authored by HEMERY Mathieu's avatar HEMERY Mathieu
Browse files

Add the axes option to plot (only for gnuplot)

parent 34c965be
......@@ -34,7 +34,10 @@ axes(xy).
:- initial(option(show: {})).
:- initial(option(logscale: '')).
:- initial(option(against: 'Time')).
:- initial(option(xmin:42)).
:- initial(option(ymin:42)).
:- initial(option(xmax:42)).
:- initial(option(ymax:42)).
plot :-
biocham_command,
......@@ -51,6 +54,22 @@ plot :-
against, object, Against,
'Selects the X axis for the plot, defaulting to Time.'
),
option(
xmin, number, _Xmin,
'Select the axes for the current plot (42 is overwrite to *)'
),
option(
ymin, number, _Ymin,
'Select the axes for the current plot (42 is overwrite to *)'
),
option(
xmax, number, _Xmax,
'Select the axes for the current plot (42 is overwrite to *)'
),
option(
ymax, number, _Ymax,
'Select the axes for the current plot (42 is overwrite to *)'
),
doc('
plots the current trace. After a simulation, the trace is composed of molecular concentrations and user-defined functions over time.
\\begin{example}'
......@@ -216,6 +235,8 @@ set format "%.5g"
set style data lines
set datafile separator ","
'),
get_axes(Xmin, Xmax, Ymin, Ymax),
format(Stream, "set xrange [~w:~w]~nset yrange [~w:~w]~n", [Xmin, Xmax, Ymin, Ymax]),
logscale(Axes),
(
Axes == ''
......@@ -276,5 +297,26 @@ handle_show(Show) :-
).
%! get_axes(-Xmin, -Xmax, -Ymin, -Ymax)
%
% retrieve the option values for the axes of gnuplot
get_axes(Xmin, Xmax, Ymin, Ymax) :-
get_one_axe(xmin, Xmin),
get_one_axe(xmax, Xmax),
get_one_axe(ymin, Ymin),
get_one_axe(ymax, Ymax).
get_one_axe(Name, Value) :-
get_option(Name, RawV),
(
RawV = 42
->
Value = '*'
;
Value = RawV
).
unquoted_term_to_atom(T, A) :-
with_output_to(atom(A), write(T)).
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment