package Ġcom . meas ures . distance Ċ Ċ fun ĠUnit Distance <* >. to Survey Chain () Ġ= Ġto Unit ( Survey Chain ( 1 . 0 )) Ċ fun ĠUnit Distance <* >. to Survey Foot () Ġ= Ġto Unit ( Survey Foot ( 1 . 0 )) Ċ fun ĠUnit Distance <* >. to Survey F url ong () Ġ= Ġto Unit ( Survey F url ong ( 1 . 0 )) Ċ fun ĠUnit Distance <* >. to Survey League () Ġ= Ġto Unit ( Survey League ( 1 . 0 )) Ċ fun ĠUnit Distance <* >. to Link () Ġ= Ġto Unit ( Survey Link ( 1 . 0 )) Ċ fun ĠUnit Distance <* >. to Survey M ile () Ġ= Ġto Unit ( Survey M ile ( 1 . 0 )) Ċ fun ĠUnit Distance <* >. to Survey Rod () Ġ= Ġto Unit ( Survey Rod ( 1 . 0 )) Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey Chain ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey Chain > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey Chain ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠSurvey Rod ( 4 . 0 Ġ* Ġvalue ). as Base Unit () Ċ } Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey Foot ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey Foot > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey Foot ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠMeter ( value Ġ* Ġ( 1 2 0 0 . 0 Ġ/ Ġ 3 9 3 7 . 0 )) Ċ } Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey F url ong ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey F url ong > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey F url ong ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠSurvey Chain ( value Ġ* Ġ 1 0 . 0 ). as Base Unit () Ċ } Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey League ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey League > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey League ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠSurvey M ile ( value Ġ* Ġ 3 . 0 ). as Base Unit () Ċ } Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey Link ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey Link > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey Link ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠSurvey Foot ( value Ġ* Ġ( 3 3 . 0 Ġ/ Ġ 5 0 . 0 )). as Base Unit () Ċ } Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey M ile ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey M ile > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey M ile ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠSurvey F url ong ( value Ġ* Ġ 8 . 0 ). as Base Unit () Ċ } Ċ Ċ @ Jvm Inline Ċ value Ġclass ĠSurvey Rod ( override Ġval Ġvalue : ĠDouble ) Ġ: ĠUnit Distance < Survey Rod > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġas Type ( d : ĠDouble ) Ġ= ĠSurvey Rod ( d ); ĊĠĠĠ Ġoverride Ġfun Ġas Base Unit () Ġ= ĠSurvey Link ( value Ġ* Ġ 2 5 . 0 ). as Base Unit () Ċ } ĊĊĊ