Puppy Linux Discussion Forum

Code: Select all

#!/bin/bash
trap "busybox pkill CLICKPOINT$$" EXIT
function  mark_clickpoint { 
	echo '<window title="P'$1'" decorated="false" skip_taskbar_hint="true" margin="0" window_position="2">
	<text use-markup="true" tooltip-text="'$3'">
	<label>"<span font='\''bold 10'\'' bgcolor='\'${2:-red}\'' color='\''white'\''>' $1 '</span>"
	</label></text></window>' |  exec -a CLICKPOINT$$ gtkdialog $4 -s 
}
function prepare_message {
	DG1=$(printf %6.2f $DEGREE1)
	DG2=$(printf %6.2f $DEGREE2)
	ANG=$(printf %9.2f $ANG)
	MSG=${1:-"Lines converge\n\nInner Angle:$ANG°"}
	MSG="$MSG\nVertex:　　　 x=$vx y=$vy\nAngle Line 1: $DG1°\nAngle Line 2: $DG2°"
}
SAVD=$(</tmp/mm_anglefinder.tmp)
FLD1=${SAVD%%/*}
FLD1=$((FLD1>0&&FLD1<3?FLD1:1))
FLD2=$(</tmp/mm_anglefinder_FLD2)
FLD3=$(</tmp/mm_anglefinder_FLD3)
FLD4=$([[ $SAVD = *$'\n'checked ]] && echo on || echo off)
XDLG=$(Xdialog  --title="mm_anglefinder" --under --stdout --check "Use above reference points\n(uncheck to pick points with mouse) " "$FLD4" --left --help "After pushing 'OK' the mouse cursor will change to a ✛\nPick reference points on real or imaginary line(s) to measure their angles in degrees\n\nSingle Line mode requires 2 points\nTwo Line mode requires 4 points and will measure angle between 2 converging lines.\n\nPoints belonging to the same line may be selected in any order\n\nPicked points of previous run are read into entry boxes to allow manual changes.\nActivating checkbox allows automatic point selection based on values in entry boxes" -3input  "Measure angles on screen\nSee Help for more" x "Mode 　(1=Single Line  2=Two Lines)" "$FLD1"  "\nx1　y1　x2　y2　(Points 1 and 2 of First Line)" "$FLD2" "\nx3　y3　x4　y4　(Points 3 and 4 of Second Line)" "$FLD3" )
(($?))&& exit || echo "$XDLG" > /tmp/mm_anglefinder.tmp
FLD1=${XDLG%%/*}
FLD2=${XDLG#*/}   FLD2=(${FLD2%%/*})
FLD3=${XDLG#*/*/} FLD3=(${FLD3%$'\n'*})
FLD4=${XDLG##*$'\n'}

LINE_MODE=$FLD1
USE_MOUSE=$([[ $FLD4 = unchecked ]] && echo 1 || echo 0)

((USE_MOUSE)) && read x1 y1 <<< $(xwininfo > /dev/null; getcurpos) || x1=${FLD2[0]} y1=${FLD2[1]} GEO1="-G +$((x1-7))+$((y1-8))"
mark_clickpoint 1 red "x=$x1 y=$y1" "$GEO1" &

((USE_MOUSE)) && read x2 y2 <<< $(xwininfo > /dev/null; getcurpos) || x2=${FLD2[2]} y2=${FLD2[3]} GEO2="-G +$((x2-7))+$((y2-8))"
mark_clickpoint 2 red "x=$x2 y=$y2" "$GEO2" &
echo "$x1 $y1 $x2 $y2" > /tmp/mm_anglefinder_FLD2

if ((x1==x2));then #avoid divide by zero error in SLOPE_1 calculation
	DEGREE1=90
	SLOPE_1=0
else
	SLOPE_1=$(bc -l <<< "($y1-$y2)/($x2-$x1)")
	DEGREE1=$(bc -l <<< "a($SLOPE_1)*180/3.14159")
fi

if ((LINE_MODE==1)) ;then
	[[ $DEGREE1 = -* ]] && ANG=$(bc<<<$DEGREE1+180) || ANG=$DEGREE1
	ANG=$(printf %.2f $ANG)
	CPL=$(bc<<<90-$ANG)
	[[ $CPL = -* ]] && CPL='—‎‎ '
	SUP=$(bc<<<180-$ANG)
	RFX=$(bc<<<360-$ANG)
	MSG="Angle:  $ANG°\n\nCompl. (90-A):  $CPL°\nSuppl. (180-A): $SUP°\nReflex (360-A): $RFX°"
fi

if ((LINE_MODE==2)) ;then
	((USE_MOUSE)) && read x3 y3 <<< $(xwininfo > /dev/null; getcurpos) || x3=${FLD3[0]} y3=${FLD3[1]} GEO3="-G +$((x3-7))+$((y3-8))"
	mark_clickpoint 3 blue "x=$x3 y=$y3" "$GEO3" &

	((USE_MOUSE)) && read x4 y4 <<< $(xwininfo > /dev/null; getcurpos) || x4=${FLD3[2]} y4=${FLD3[3]} GEO4="-G +$((x4-7))+$((y4-8))"
	mark_clickpoint 4 blue "x=$x4 y=$y4" "$GEO4" &
	echo "$x3 $y3 $x4 $y4" > /tmp/mm_anglefinder_FLD3

	if ((x3==x4));then #avoid divide by zero error in SLOPE_2 calculation
		DEGREE2=90
		SLOPE_2=0
	else
		SLOPE_2=$(bc -l <<< "($y3-$y4)/($x4-$x3)")
		DEGREE2=$(bc -l <<< "a($SLOPE_2)*180/3.14159")

	fi

	## VERTEX
	vx=$(bc -l <<< "((-($SLOPE_2))*$x4 -$y4 + $SLOPE_1*$x2 + $y2)/($SLOPE_1-($SLOPE_2))")
	vy=$(bc -l <<< "-($SLOPE_1*($vx-$x2)-$y2)")
	vx=$(printf %.0f $vx)
	vy=$(printf %.0f $vy)

	## LINES ARE PARALLEL
	if [[ $DEGREE1 = $DEGREE2 ]];then vx='‒' vy=$vx ; prepare_message "Lines are parallel\n"

	## LINES CROSS
	elif (( x1 < vx && x2 > vx || x1 > vx && x2 < vx ));then
		AN1=${DEGREE1/-}
		AN2=${DEGREE2/-}
		AN1=$(bc<<<$AN2+$AN1)
		AN2=$(bc<<<180-$AN1)
		AN1=$(printf %.2f $AN1)
		AN2=$(printf %.2f $AN2)
		prepare_message "Lines cross\n\nAngles at ╳:　$AN1° and $AN2°"

	## BOTH POSITIVE OR BOTH NEGATIVE
	elif [[ $DEGREE1 != 0 && $DEGREE2 != 0 && $DEGREE1$DEGREE2 != *-* ]] || [[ $DEGREE1$DEGREE2 = -*-* ]];	then
		AN1=${DEGREE1/-}
		AN2=${DEGREE2/-}
		ANG=$(bc<<<$AN2-$AN1)
		ANG=${ANG/-}
		prepare_message

	## ONE OF THEM ZERO
	elif [[ $DEGREE1 = 0 || $DEGREE2 = 0 ]];then 
		[[ $DEGREE1 != 0 ]] && INNER=${DEGREE1/-} || INNER=${DEGREE2/-}
		OUTER=$(bc<<<180-$INNER)
		((x1>vx && x3>vx)) || ((x1<vx && x3<vx)) && ANG=$(printf %.2f $INNER) || ANG=$(printf %.2f $OUTER)
		prepare_message

	## ONE POSITIVE AND ONE NEGATIVE
	elif [[ $DEGREE1 = -* && $DEGREE2 != -* || $DEGREE2 = -* && $DEGREE1 != -* ]];then
		if ((y2>vy && y3>vy)) || ((y2<vy && y3<vy));then #vertical lines
			[[ $DEGREE1 = -* ]] && ANG=$(bc<<<$DEGREE1+180-$DEGREE2) || ANG=$(bc<<<$DEGREE2+180-$DEGREE1)
		else
			AN1=${DEGREE1/-}
			AN2=${DEGREE2/-}
			ANG=$(bc<<<$AN1+$AN2)
		fi
		prepare_message
	fi
fi
Xdialog -title 'mm_anglefinder' -left -o 'Try again' -y "$MSG" x
(($?)) || $0 & exit

Code: Select all

should be:
so beta = 90 - gamma = 90 - (alfa - 90) = 180 - alfa
which in MM tool is Suppl.