Untitled

set cut_paste_input [stack 0]
version 12.2 v10
push $cut_paste_input
Expression {
 temp_name0 f1
 temp_expr0 atan2(b,r)
 temp_name1 f2
 temp_expr1 asin(g)
 expr0 "b> 0 ? f1 : (2*pi) + f1"
 expr1 f2
 expr2 0
 name Expression6
 selected true
 xpos 232
 ypos 56
}
Expression {
 expr0 r/(2*pi)
 expr1 (g+pi/2)/pi
 name Expression7
 selected true
 xpos 232
 ypos 99
}