// // time: Wed Sep 22 09:53:40 2004 // // version: 3.2.0 (format), 4.3.2 (DX) // // // Begin MDF // MODULE VelocityRTFtoXYZ2D // CATEGORY Macros // DESCRIPTION new macro // INPUT input_1; field; (no default); // OUTPUT output_1; value or value list or field; // End MDF // workspace: width = 500, height = 400 // layout: snap = 0, width = 50, height = 50, align = NN // macro VelocityRTFtoXYZ2D( input_1 ) -> ( output_1 ) { // // node Input[23]: x = 0, y = 0, inputs = 0, label = Input // parameter: position = 1, name = 'input_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1 // VelocityRTFtoXYZ2D_Input_23_out_1 = input_1; // // node Mark[20]: x = 89, y = 80, inputs = 2, label = Mark // input[2]: defaulting = 0, visible = 1, type = 32, value = "positions" // VelocityRTFtoXYZ2D_Mark_20_out_1[cache: 0] = Mark( VelocityRTFtoXYZ2D_Input_23_out_1, "positions" ) [instance: 20, cache: 1]; // // node Compute[87]: x = 0, y = 88, inputs = 3, label = Compute // input[1]: defaulting = 0, visible = 0, type = 32, value = "[$0.x*cos($1.x)*cos($1.y)-$0.y*sin($1.y),$0.x*cos($1.x)*sin($1.y)+$0.y*cos($1.y),-$0.x*sin($1.x)]" // expression: value = [v.x*cos(p.x)*cos(p.y)-v.y*sin(p.y),v.x*cos(p.x)*sin(p.y)+v.y*cos(p.y),-v.x*sin(p.x)] // name[2]: value = v // name[3]: value = p // VelocityRTFtoXYZ2D_Compute_87_out_1[cache: 0] = Compute( "[$0.x*cos($1.x)*cos($1.y)-$0.y*sin($1.y),$0.x*cos($1.x)*sin($1.y)+$0.y*cos($1.y),-$0.x*sin($1.x)]", VelocityRTFtoXYZ2D_Input_23_out_1, VelocityRTFtoXYZ2D_Mark_20_out_1 ) [instance: 87, cache: 1]; // // node Output[18]: x = 0, y = 168, inputs = 1, label = Output // parameter: position = 1, name = 'output_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1 // output_1 = VelocityRTFtoXYZ2D_Compute_87_out_1; // network: end of macro body } VelocityRTFtoXYZ2D_Input_23_out_1 = NULL; VelocityRTFtoXYZ2D_Mark_20_out_1 = NULL; VelocityRTFtoXYZ2D_Compute_87_out_1 = NULL;