NOTE
NOTE     Wheel-rail geometry functions manually generated for GENSYS
NOTE     Created by I.Persson 971105
NOTE     English names I.Persson 001025
NOTE
NOTE     Wheel: Ideal conical wheel
NOTE     Rail:  Round shaped head with a radius of 0.45 m
NOTE     -----------------------------------------------------------
NOTE     Arg.$1 = number of the vehicle   Arg.$2 = conicity
NOTE
 substruct kpf_rkona [
 func  intpl_r  cpt_$1.drfn    -1.000    -$2       1.000     $2
 func  intpl_r  cpt_$1.gamfn   -1.000     $2       1.000     $2
 func  intpl_r  cpt_$1.zfn     -1.000     $2       1.000    -$2
 func  intpl_r  cpt_$1.rofn    -1.000     2.222222 1.        2.222222
 func  intpl_r  cpt_$1.poswfn  -1.000    -1.000    1.000     1.000
 func  intpl_r  cpt_$1.posrfn  -1.000     0.000    1.000     0.000
#
#func  operp_init lambda_v$1l $2 - 1.e-9  
#func  operp_init lambda_v$1h $2 + 1.e-9  
#func  intpl_r   lambda_r$1
#      lambda_v$1l 1445.  
#      lambda_v$1h 1425.  
  ]
