Variable pitch belt driven spindle

#!/bin/sh

halcmd show pin

#example usage: M101 P1 (changes variable pitch belt to ratio A)
#uses argument P


#parport.0.pin-11-in-not is input for range A
#parport.0.pin-12-in-not is input for range B
#parport.0.pin-13-in-not is input for range C
#parport.0.pin-2-out is the valve to make RPM lower
#parport.0.pin-5-out is the valve to make RPM higher


range_request = $1

case $range_request in
	#change to ratio 1
	#while the input for ratio 1 is not true, move RPM down until the input is true
	1)
		while ! [halcmd getp parport.0.pin-11-in-not]; do
			if [halcmd getp parport.0.pin-13-in-not] || [halcmd getp parport.0.pin-12-in-not]
			then
				#start the spindle, unscaled
				vfd.speed-command 60
				halcmd setp parport.0.pin-2-out True
			fi
		done

		#once complete, stop the spindle and set both airmotor valves to off
		vfd.speed-command 0.0
		halcmd setp parport.0.pin-2-out False
		halcmd setp parport.0.pin-5-out False
		#set the correct gain for this range
		setp scale.0.gain 0.33
		;;
	#change to ratio 2
	2)
		while ! [halcmd getp parport.0.pin-12-in-not]; do
			if [halcmd getp parport.0.pin-13-in-not]
			then
				vfd.speed-command 60
				halcmd setp parport.0.pin-2-out True
			elif [halcmd getp parport.0.pin-11-in-not]
			then
				vfd.speed-command 60
				halcmd setp parport.0.pin-5-out True
			fi
		done
		vfd.speed-command 0.0
		halcmd setp parport.0.pin-2-out False
		halcmd setp parport.0.pin-5-out False
		setp scale.0.gain 0.66
		;;

	3)
		while ! [halcmd getp parport.0.pin-13-in-not]; do
			if [halcmd getp parport.0.pin-11-in-not] || [halcmd getp parport.0.pin-12-in-not]
			then
				vfd.speed-command 60
				halcmd setp parport.0.pin-5-out True
			fi
		done
		vfd.speed-command 0.0
		halcmd setp parport.0.pin-2-out False
		halcmd setp parport.0.pin-5-out False
		setp scale.0.gain 0.99
		;;
	*)
		halcmd setp parport.0.pin-2-out False
		halcmd setp parport.0.pin-5-out False
		;;
esac
exit 0

#!/bin/sh

halcmd show pin

#example usage: M102 P1 (changes variable pitch belt to ratio A)
#uses argument P


#spin_rnge_a is net for range A
#spin_rnge_b is net for range B
#spin_rnge_c is net for range C
#rpm_dn is the valve to make RPM lower
#rpm_up is the valve to make RPM higher


range_request = $1


case $range_request in
	#change to ratio 1
	#while the input for ratio 1 is not true, move RPM down until the input is true
	1)
		while ! [gets spin_rnge_a]; do
			if [gets spin_rnge_c] || [gets spin_rnge_b]
			then
				#start the spindle, unscaled
				vfd.speed-command 60
				sets rpm_dn True
				halcmd show pin
			fi
		done

		#once complete, stop the spindle and set both airmotor valves to off
		vfd.speed-command 0.0
		sets rpm_dn False
		sets rpm_up False
		#set the correct gain for this range
		setp scale.0.gain 0.33
		;;
	#change to ratio 2
	2)
		while ! [gets spin_rnge_b]; do
			if [gets spin_rnge_a]
			then
				vfd.speed-command 60
				sets rpm_up True
			elif [gets spin_rnge_c]
			then
				vfd.speed-command 60
				sets rpm_dn True
			fi
		done
		vfd.speed-command 0.0
		sets rpm_dn False
		sets rpm_up False
		setp scale.0.gain 0.66
		;;

	3)
		while ! [gets spin_rnge_c]; do
			if [gets spin_rnge_a] || [gets spin_rnge_b]
			then
				vfd.speed-command 60
				sets rpm_up True
			fi
		done
		vfd.speed-command 0.0
		sets rpm_dn False
		sets rpm_up False
		setp scale.0.gain 0.99
		;;
	*)
		sets rpm_dn False
		sets rpm_up False
		;;
esac
exit 0

#!/bin/bash
eog /home/myname/linuxcnc/nc_files/message.png
exit 0

component varipitch "Controls the range of a variable pitch belt";

pin in bit spindle_spinning "spindle is turning";
pin in bit range_0 "range 0 sensor";
pin in bit range_1 "range 1 sensor";
pin in bit range_2 "range 2 sensor";
pin in s32 spindle_rpm_req "requested RPM";
pin out bit speed_up "increases range if too low";
pin out bit speed_down "decreases range if too high";

function _ nofp;
license "GPL";
option singleton yes;
;;

#define ZERO_RANGE 1000
#define ONE_RANGE 2500
#define TWO_RANGE 3500

FUNCTION(_) {
	if(spindle_spinning){
		if(spindle_rpm_req <= ZERO_RANGE){
			while(!range_0){
				speed_down = 1;
			}
			speed_down = 0;
			speed_up = 0;
		}
		else if(spindle_rpm_req > ZERO_RANGE && spindle_rpm_req <= ONE_RANGE){
			while(!range_1){
				if(range_0){
					speed_up = 1;
				}
				else if(range_2){
					speed_down = 1;
				}
			}
			speed_down = 0;
			speed_up = 0;
		}
		else if(spindle_rpm_req > ONE_RANGE && spindle_rpm_req <= TWO_RANGE){
			while(!range_2){
				speed_up = 1;
			}
			speed_down = 0;
			speed_up = 0;
		}
		else {
			speed_down = 0;
			speed_up = 0;
		}
	}
}