//
// time: Tue Dec  2 18:17:09 2003
//
// version: 3.2.0 (format), 4.3.0 (DX)
//
//
// Begin MDF
// MODULE RTFtoXYZ
// CATEGORY Macros
// DESCRIPTION transform from spherical coordinate to Cartesian coordinate
// INPUT input_1; field; (no default);  
// OUTPUT output_1; field;  
// End MDF
// workspace: width = 500, height = 400
// layout: snap = 0, width = 50, height = 50, align = NN
//
macro RTFtoXYZ(
 input_1
) -> (
 output_1
) {
    // 
    // node Input[1]: x = 0, y = 0, inputs = 0, label = Input
    // parameter: position = 1, name = 'input_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
    //
RTFtoXYZ_Input_1_out_1 = input_1;
    // 
    // node Mark[11]: x = 10, y = 80, inputs = 2, label = Mark
    // input[2]: defaulting = 0, visible = 1, type = 32, value = "positions"
    //
RTFtoXYZ_Mark_11_out_1[cache: 0] = 
    Mark(
    RTFtoXYZ_Input_1_out_1,
    "positions"
    ) [instance: 11, cache: 1];
    // 
    // node Compute[70]: x = 0, y = 148, inputs = 2, label = RTF to XYZ
    // input[1]: defaulting = 0, visible = 0, type = 32, value = "[$0.z*sin($0.x)*cos($0.y), $0.z*sin($0.x)*sin($0.y), $0.z*cos($0.x)]"
    // expression: value = [positions.z*sin(positions.x)*cos(positions.y), positions.z*sin(positions.x)*sin(positions.y), positions.z*cos(positions.x)]
    // name[2]: value = positions
    //
RTFtoXYZ_Compute_70_out_1[cache: 0] = 
    Compute(
    "[$0.z*sin($0.x)*cos($0.y), $0.z*sin($0.x)*sin($0.y), $0.z*cos($0.x)]",
    RTFtoXYZ_Mark_11_out_1
    ) [instance: 70, cache: 1];
    // 
    // node Unmark[11]: x = 19, y = 220, inputs = 2, label = Unmark
    //
RTFtoXYZ_Unmark_11_out_1 = 
    Unmark(
    RTFtoXYZ_Compute_70_out_1,
    NULL
    ) [instance: 11, cache: 1];
    // 
    // node Output[1]: x = 0, y = 300, inputs = 1, label = Output
    // parameter: position = 1, name = 'output_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
    //
output_1 = RTFtoXYZ_Unmark_11_out_1;
// network: end of macro body
}
RTFtoXYZ_Input_1_out_1 = NULL;
RTFtoXYZ_Mark_11_out_1 = NULL;
RTFtoXYZ_Compute_70_out_1 = NULL;
RTFtoXYZ_Unmark_11_out_1 = NULL;