Procedures | Cast3M

   1 : * POINTCYL  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : *                                                                               
   3 : *     DEFINITION D'UN POINT PAR SES COORDONNEES CYLINDRIQUES                    
   4 : *                                                                               
   5 : 'DEBPROC' POINTCYL RAYON*'FLOTTANT' ANGLE*'FLOTTANT' COTE/'FLOTTANT' ;          
   6 : *                                                                               
   7 : X = RAYON * ('COS' ANGLE) ;                                                     
   8 : Y = RAYON * ('SIN' ANGLE) ;                                                     
   9 : IDIM = VALE DIME;                                                               
  10 : 'SI' (IDIM 'EGA' 2) ;                                                           
  11 :    PT = X Y ;                                                                   
  12 : 'SINON';                                                                        
  13 :    PT = X Y COTE ;                                                              
  14 : 'FINSI' ;                                                                       
  15 : *                                                                               
  16 : 'FINPROC' PT ;