Develop and Download Open Source Software

Browse Subversion Repository

Contents of /branches/ttcomtester/tests/#38168-deccara-range.sh

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10521 - (show annotations) (download) (as text)
Fri Jan 20 16:03:38 2023 UTC (13 months, 2 weeks ago) by zmatsuo
File MIME type: text/x-sh
File size: 1148 byte(s)
add communication test tool
1 #!/bin/sh
2 #
3 # DECCARA / DECRARA 対象領域確認スクリプト
4 # 同じ数字は同じ色 or 属性となるのが正しい。
5 # 画面の再描画前後で表示が変わらないのが正しい。
6 #
7
8 printf "\033[*2x\033[2J"
9
10 seqs=$(seq 9)
11
12 for i in $seqs; do
13 xend=$((21 - $i))
14 yend=$((20 - $i))
15 char=$((47 + $i))
16
17 printf '\033[%d;%d;%d;%d;%d$x' $char $i $i $yend $xend
18 done
19
20 for i in $seqs; do
21 xend=$((21 - $i))
22 yend=$((20 - $i))
23 color=$((40 + $i % 8))
24 printf '\033[%d;%d;%d;%d;%d$r' $i $i $yend $xend $color
25 done
26
27
28 for i in $seqs; do
29 xstart=$(($i + 40))
30 xend=$((61 - $i))
31 yend=$((20 - $i))
32 char=$((47 + $i))
33
34 printf '\033[%d;%d;%d;%d;%d$x' $char $i $xstart $yend $xend
35 done
36
37 for i in $seqs; do
38 xstart=$(($i + 40))
39 xend=$((61 - $i))
40 yend=$((20 - $i))
41
42 case $i in
43 1) attr="1;7";;
44 2) attr="1;4;7";;
45 3) attr="4;5;7";;
46 4) attr="1;5;7";;
47 5) attr="1;4;7";;
48 6) attr="4;5;7";;
49 7) attr="1;5;7";;
50 8) attr="1;4;7";;
51 9) attr="4;5;7";;
52 esac
53
54 color=$((40 + $i % 8))
55 printf '\033[%d;%d;%d;%d;%s$t' $i $xstart $yend $xend $attr
56 done
57
58 printf "\033[20;7HDECCARA\e[47GDECRARA\n\033[0*x"
59
60 sleep 1
61
62 # 画面再描画
63 printf "\033[7t"

Properties

Name Value
svn:executable *

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26