+int cht_do_wiringpitcl_pwmc(ClientData cd, Tcl_Interp *ip, int divider) {
+ CHECK_SETUP;
+ CHECK_RANGE(divider,1,4095,"divider for pwmc","DIVIDER");
+ pwmSetClock(divider);
+ return TCL_OK;
+}
+
+int cht_do_wiringpitcl_pwmr(ClientData cd, Tcl_Interp *ip, int range) {
+ CHECK_SETUP;
+ CHECK_RANGE(range,1,INT_MAX,"pwm range","RANGE");
+ pwmSetRange(range);
+ return TCL_OK;
+}
+
+int cht_do_wiringpitcl_pwm_bal(ClientData cd, Tcl_Interp *ip) {
+ CHECK_SETUP;
+ pwmSetMode(PWM_MODE_BAL);
+ return TCL_OK;
+}