cmo/create/mo_s1///triplane                                                     
createpts/xyz/11 11 1/0. 0. 0./1. 1. 1./1 1 1                                   
cmo/setatt/mo_s1/imt 1                                                          
connect                                                                         
cmo/setatt/mo_s1/itetclr 1                                                      
resetpts/itp                                                                    
cmo/copy/mo_s2/mo_s1                                                            
cmo select mo_s2                                                                
rotateln/1 0 0/nocopy/.5 -1.0 0.0/.6 2.0 0.0/45.0                               
cmo/printatt/mo_s1/-xyz-/minmax                                                 
cmo/printatt/mo_s2/-xyz-/minmax                                                 
intersect/mo_line/mo_s1/mo_s2                                                   
cmo/status                                                                      
cmo/create/mo_plane///triplane                                                  
createpts/xyz/11 11 1/0. 0. 0./10. 20. 0./1 1 1                                 
cmo/setatt/mo_plane imt 1                                                       
connect                                                                         
cmo/setatt/mo1/itetclr 1                                                        
resetpts/itp                                                                    
read/input_test02.inp/mo_surf                                                   
cmo/printatt/mo_plane/-xyz-/minmax                                              
cmo/printatt/mo_surf/-xyz-/minmax                                               
intersect/mo_lines/mo_plane/mo_surf                                             
cmo/printatt/mo_lines/cid minmax                                                
cmo/printatt/mo_lines/ctype minmax                                              
cmo/printatt/mo_lines/loopid minmax                                             
intersect_elements/mo_s1/mo_s2/xsect                                            
cmo/select/mo_s1                                                                
eltset/e_obj/xsect/gt/0                                                         
cmo/setatt/mo_s1/itetclr/eltset,get,e_obj 2                                     
finish