Add scenes for lap_graph and segment_bars

2 files changed, 108 insertions, 0 deletions

diff --git a/Kod/bilbana/yc4/display/scenes/draw_lap_graph.m b/Kod/bilbana/yc4/display/scenes/draw_lap_graph.m
new file mode 100644
index 0000000..7d9e341
--- /dev/null
+++ b/Kod/bilbana/yc4/display/scenes/draw_lap_graph.m
@@ -0,0 +1,54 @@
+function [] = draw_lap_graph(car1_laptimes, car2_laptimes, ref_time)
+if isempty(car1_laptimes)
+    car1_laptimes = car2_laptimes;
+    car2_laptimes = [];
+end
+
+laps = max(length(graphs.car1.lap_times), length(graphs.car2.lap_times));
+
+pause(0.2);
+matlabclient(1, get_smallpackage(clear_display()));
+pause(0.2);
+
+matlabclient(1, get_smallpackage(put_text(105, 8, 'C', 'Varvtider')))
+pause(0.2);
+
+matlabclient(1, get_smallpackage([ ...
+	key(0  , 216, 107, 240, 51, 61, 'C', 'Varv'), ...
+	key(107, 216, 213, 240, 52, 62, 'C', 'Segment'), ...
+	key(213, 216, 320, 240, 53, 63, 'C', 'Avsluta') ...
+]));
+pause(0.2);
+
+matlabclient(1, get_smallpackage([ ...
+	draw_line(20, 24, 20, 200), ...   % y-axis
+	continue_line(304, 200), ... % x-axis
+	draw_line(16, 32, 20, 24), ...    % arrow on y, left part
+	continue_line(24, 32), ...   % arrow on y, right part
+	draw_line(304, 196, 304, 204) ... % line on x
+]));
+pause(0.2);
+
+matlabclient(1, get_smallpackage([ ...
+	draw_line(190, 0, 190, 70), ...
+	continue_line(320, 70) ...
+]));
+pause(0.2);
+
+matlabclient(1, get_smallpackage(save_display_to_clipboard()));
+
+%%
+matlabclient(1, get_smallpackage(draw_line(20, 103, 320, 103)));
+matlabclient(1, get_smallpackage(draw_line(20, 135, 320, 135)));
+matlabclient(1, get_smallpackage(draw_line(20, 167, 320, 167)));
+
+matlabclient(1, )
+
+%%
+matlabclient(1, get_smallpackage([
+	put_text(304, 10, 'R', 'std: x.xxs'), ...
+	put_text(304, 30, 'R', 'mean: xx.xs'), ...
+	put_text(304, 50, 'R', 'target: xx.xs') ...
+]));
+pause(0.2);
+end
diff --git a/Kod/bilbana/yc4/display/scenes/draw_segment_bars.m b/Kod/bilbana/yc4/display/scenes/draw_segment_bars.m
new file mode 100644
index 0000000..fe750a7
--- /dev/null
+++ b/Kod/bilbana/yc4/display/scenes/draw_segment_bars.m
@@ -0,0 +1,54 @@
+function [] = draw_segment_bars(values1, values2)
+pause(0.2);
+matlabclient(1, get_smallpackage(clear_display()));
+pause(0.2);
+
+matlabclient(1, get_smallpackage(put_text(160, 8, 'C', 'Genomsnittlig tid per segment')))
+pause(0.2);
+
+% input('');
+matlabclient(1, get_smallpackage([ ...
+	key(0  , 216, 107, 240, 51, 61, 'C', 'Varv'), ...
+	key(107, 216, 213, 240, 52, 62, 'C', 'Segment'), ...
+	key(213, 216, 320, 240, 53, 63, 'C', 'Avsluta') ...
+]));
+pause(0.2);
+
+matlabclient(1, get_smallpackage([ ...
+	draw_line(20, 24, 20, 200), ...   % y-axis
+	continue_line(304, 200), ... % x-axis
+	draw_line(16, 32, 20, 24), ...    % arrow on y, left part
+	continue_line(24, 32), ...   % arrow on y, right part
+	draw_line(304, 196, 304, 204) ... % line on x
+]));
+pause(0.2);
+
+[bars, max_val, min_y, max_height] = get_bars_from_values(values1, values2);
+
+for bar = bars
+    matlabclient(1, get_smallpackage(fill_area(bar.x_lo, bar.y_lo, bar.x_hi, bar.y_hi)));
+    pause(0.2);
+end
+
+for i = 0:8
+    x = 16+13 + 10 + 30*i;
+    matlabclient(1, get_smallpackage(put_text(x, 204, 'C', num2str(i + 1))));
+    pause(0.2);
+end
+
+matlabclient(1, get_smallpackage(put_text(9, 25, 'C', 's')));
+pause(0.2);
+
+% matlabclient(1, get_smallpackage(set_line_pattern(2)))
+% pause(0.2);
+for i = 1:floor(max_val)
+    x = 20;
+    y = min_y - round(max_height * (i/max_val));
+    matlabclient(1, get_smallpackage([draw_line(x, y, 320, y), ...
+        put_text(x-6, y-2, 'C', num2str(i))]));
+    pause(0.2);
+end
+% matlabclient(1, get_smallpackage(set_line_pattern(1)))
+% pause(0.2);
+end
+