1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
From b2c3e20920c2595f800eb1cb1bd28b0ad03377e2 Mon Sep 17 00:00:00 2001
From: bill-auger <mr.j.spam.me@gmail.com>
Date: Tue, 21 Mar 2023 13:56:40 -0400
Subject: [PATCH 3/5] implement animation stepping
---
cowsay | 47 +++++++++++++++++++++++++++++++++++++++--------
1 file changed, 39 insertions(+), 8 deletions(-)
diff --git a/cowsay b/cowsay
index dc49542..aa356df 100755
--- a/cowsay
+++ b/cowsay
@@ -45,7 +45,7 @@ if (($^O eq "MSWin32") or ($^O eq "Windows_NT")) { ## Many perls, eek!
'W' => 40,
);
-getopts('bde:f:ghlLnNpstT:wW:y', \%opts);
+getopts('abde:f:ghlLnNpstT:wW:y', \%opts);
&display_usage if $opts{'h'};
&list_cowfiles if $opts{'l'};
@@ -76,18 +76,49 @@ else {
my $anim_duration = 3000000;
my $n_anim_files = @anim_files;
my $sleep_ivl = $anim_duration / $n_anim_files;
- my $clear_string = `clear`;
+ $clear_string = `clear`;
+ $frame_n = 0;
+ $key = '';
- for my $full (@anim_files) {
- do $full;
- die "$progname: $@\n" if $@;
+ # step through animation
+ if ($opts{'a'}) {
+ use Term::ReadKey;
- print $clear_string;
- &print_cow;
- usleep($sleep_ivl);
+ while (not $key =~ /q/) {
+ if ($key =~ /,/ and $frame_n > 0 ) { --$frame_n; }
+ elsif ($key =~ /\./ and $frame_n < $n_anim_files - 1) { ++$frame_n; }
+ $full = $anim_files[$frame_n];
+ &print_frame;
+ &read_key;
+ }
+ # play complete animation
+ } else {
+ for $full (@anim_files) {
+ &print_frame;
+ usleep($sleep_ivl);
+ }
}
}
+sub read_key {
+ $key = '';
+
+ while (not $key =~ /,|\.|q/) {
+ ReadMode('cbreak');
+ $key = ReadKey(0);
+ ReadMode('normal');
+ }
+}
+
+sub print_frame {
+ do $full;
+ die "$progname: $@\n" if $@;
+
+ print $clear_string;
+ &print_cow;
+ if ($opts{'a'}) { print "frame[$frame_n]: $full\n"; }
+}
+
sub print_cow {
print @balloon_lines;
print $the_cow;
--
2.40.0
|
