Difference between
modified post 8021b20a9 by Anonymous on Wed 27th Apr 2022 17:44
original post fa9e by Anonymous on Wed 27th Apr 2022 17:11
Download diff
Show old version | new version | both versions

#!/usr/bin/ksh93

1	1		#!/usr/bin/ksh93
2	2
3	3		compound c=(
4	4		compound tty=(
5	5		integer max_x
6	6		integer max_y
7	7		)
8	8
9	9		compound data=(
10	10		float -a vals
11	11		float min=0
12	12		float max=0
13	13		)
14	14
15	15		)
16	16
17	17		(( c.tty.max_x=$(tput cols)-2 ))
18	18		(( c.tty.max_y=$(tput lines)-2 ))
19	19
20	20		integer i
21	21		integer max_i=${c.tty.max_x}
22	22
23	23		for ((i=0 ; i < max_i ; i++ )) ; do
24	24		(( c.data.vals[i]=sin(i/5.) ))
25	25		done
26	26
27	27		for i in "${!c.data.vals[@]}" ; do
28	28		(( c.data.min=fmin(c.data.vals[i], c.data.min) ))
29	29		(( c.data.max=fmax(c.data.vals[i], c.data.max) ))
30	30		done
31	31
32	32		clear
33	33
34		-	for ((i=0 ; i < max_i ; i++ )) ; do
	34	+	float c.min_data_shift
35		-	tput cup $(( int( (c.tty.max_y/2.)((c.data.min-1.0)+c.data.vals[i])) )) $i
	35	+	float c.max_data_shift
	36	+	float c.data_scale_to_tty_max_y
38	37
39		-	tput cup ${c.tty.max_y} ${c.tty.max_x} ; print
	38	+	(( c.min_data_shift=c.data.min*-1.0 ))
	39	+	(( c.max_data_shift=c.min_data_shift+c.data.max ))
40	41
41		-	#print -v c
	42	+	for i in "${!c.data.vals[@]}" ; do
	43	+	tput cup $(( int( c.data_scale_to_tty_max_y * (c.min_data_shift+c.data.vals[i]) ) )) $i
42	46
43		-	# EOF.
	47	+	tput cup ${c.tty.max_y} ${c.tty.max_x} ; print
44	48
45		-
	49	+	#print -v c
46	50
47		-
	51	+	# EOF.
48	52