simple console ksh93 sinus plotter #001
Posted by Anonymous on Wed 27th Apr 2022 17:44
raw | new post
view followups (newest first): simple console ksh93 sinus plotter #001 by Anonymous
modification of post by Anonymous (view diff)

#!/usr/bin/ksh93

compound c=(
        compound tty=(
                integer max_x
                integer max_y
        )

        compound data=(
                float -a vals
                float min=0
                float max=0
        )

)

(( c.tty.max_x=$(tput cols)-2 ))
(( c.tty.max_y=$(tput lines)-2 ))

integer i
integer max_i=${c.tty.max_x}

for ((i=0 ; i < max_i ; i++ )) ; do
        (( c.data.vals[i]=sin(i/5.) ))
done

for i in "${!c.data.vals[@]}" ; do
        (( c.data.min=fmin(c.data.vals[i], c.data.min) ))
        (( c.data.max=fmax(c.data.vals[i], c.data.max) ))
done

clear

float c.min_data_shift
float c.max_data_shift
float c.data_scale_to_tty_max_y

(( c.min_data_shift=c.data.min*-1.0 ))
(( c.max_data_shift=c.min_data_shift+c.data.max ))
(( c.data_scale_to_tty_max_y = c.tty.max_y/c.max_data_shift ))

for i in "${!c.data.vals[@]}" ; do
        tput cup $(( int( c.data_scale_to_tty_max_y * (c.min_data_shift+c.data.vals[i]) ) )) $i
        printf '.'
done

tput cup ${c.tty.max_y} ${c.tty.max_x} ; print

#print -v c

# EOF.