Can a component know the diameter of an arc its cutting

/* sudo halcompile --install kl.comp */
component kl "syringe confectioner";

pin in  float velxy ;     // motion.current-vel
pin in  float overall ;   // pyvcp.scale

pin out float out ;       // stepgen.3.velocity-cmd
pin in  s32 line ;         // stepgen.3.count 

pin in  s32 line ;         // motion.program-line

pin in  float dtg ;       //  motion.distance-to-go
                         
pin in  s32    instr ;     //streamer.0.pin.0  (s32)
pin in  float indtg ;     //streamer.0.pin.1  (float) 
                             
pin in  s32 type ;         // motion.motion-type  1:Traverse
pin in  bit offon ;        // pyvcp.button

 pin in  s32 cdepth ;       //streamer.0.curr-depth s32 output

pin out s32  override ;     //halui.feed-override.counts   (100 - (6.6667/(requestedvel/100)))*-0.1
   
pin in  float requestedvel ;            //motion.requested-vel

pin in   bit empty ;         //streamer.0.empty 
pin out  bit clock ;         //streamer.0.clock

pin in  float k;         // (k * out) stepgen-velocity index
pin in  float kss;       // (kss * out) stepgen-velocity for start-stop line

param rw float addline;   // start-stop lines length

variable int  type_indicator = 0;
variable double timer;
variable float pathxy = 0;
variable int  i = 0;
variable unsigned  tt = 0;
variable int  q = 0;
variable int  all_string = 0;

variable int   enable_increment = 0;
variable int   repeat = 0;

variable int   oldline = 0;

variable float rvel;
function _;
license "GPL";

;;
#include "rtapi_math.h"

FUNCTION(_) {

    static int arr_line[100];
    static float arr_dtg[100];
    
    //if we interrupt the program(Gcode)
    if ((oldline - line) > 2) {
        q=0;
        enable_increment = 0;
        all_string = 0;
    }
    if (offon) {
        if (type == 1) {  //G0
            type_indicator = 1;
            out = 0;
            all_string = 0;
        } else {  // G1 G2 G3
            if (type_indicator == 1) {
                out = ((velxy/6.66667)*kss + overall);
                //override feed
                override = -6;
                //integrator
                if (velxy >= 0.0) { 
                    pathxy = pathxy + velxy * fperiod;
                } else {
                    pathxy = pathxy - velxy * fperiod;
                }
                if (pathxy >= addline) {
                    pathxy =  0.0; type_indicator = 0; override = 0;
                }
            } else {
                if (all_string) {
                out = (-(velxy/6.66667) * kss + overall);
                override = -6;
                } else {
                    if (line == arr_line[q] && arr_line[q] != 0) {
                        enable_increment = 1;
                        oldline = line;
                        if (dtg <= arr_dtg[q]){
                            out = (-(velxy/6.66667) * kss + overall);
                            //override feed
                            override = -6;
                            all_string = 1;
                        } else {
                            out = ((velxy/16.66667)*k + overall);
                            override = 0;
                        }
                    } else {
                        if (enable_increment) { 
                            if (q==repeat) {
                                q=0;
                            } else {
                                q++;
                            }
                        }
                        enable_increment = 0;
                        out = ((velxy/16.66667)*k + overall);
                        override = 0;
                    }
                }
            }
        }
    } else {
        out = 0;
        //override = 0;
    }
    if (empty == 0) {       //streamer.0.empty 
        if (tt % 2 != 0) { 
            clock = 0;     //streamer.0.clock (streamer.0.clock-mode 2)
            arr_line[i] = instr;  //streamer.0.pin.0
            arr_dtg[i] = indtg;
            i++;
        } else {
            clock = 1;
        }
        tt++;
        if (i) {
        repeat = i-1;
        }
    }
    else {
        i=0;
    }
}

heading_rate = (this_heading - last_heading)/fperiod;

w = heading_rate
v = motion.current_velocity
vw = (w^2)r

r =  vw /(w^2)
r = v/w   //  radius  = motion.current_velocity /  heading_rate