Ffemm_mo_getpointvalues �FX 'Res�Types femm_mo_getpointvalues YX;FEMM_C       �
 md;Txt;N;I;YXI;Nums' '�' '� Get a set of FEMM magnetic point values fro       �
 m location (Y,X) or locations (N;Y,X)' '� if Types is set - a number (o       �
 r list) -  then select just those values' '� assumes the FEMM activeX i       �
 nterface has been opened' '� 2020-05-16 : Dr.BeauWebber@gmail.com' '� (       �
 Bx By) � 3 4 femm_mo_getpointvalues 0 0' '�' ':if 2 = ��YX' '  N � , 1        �
 � � YX' ':else' '  N � 1' '  YX � 1 2 � YX' ':endif' '�' ':if 2 = �NC "       �
 Types"' '  Res � (N,�Types) � 0' ':else' '  Res � (N,14) � 0' ':endif'        �
 '' ':for I :in �N' '  YXI � YX[I;]' '  ' '� FEMM_Cmd �  "mo_getpointval       �
 ues(",(�YXI[1]),",",(�YXI[2]),")"' 'FEMM_Cmd �  "mo_getpointvalues(",(�       �
 SS (�YXI[1]; ''�''; ''-'')),",",(�SS (�YXI[2]; ''�''; ''-'')),")"' '' '       �
   Txt �  FEMM.Xcall2femm FEMM_Cmd' '  Txt � �R �BOX �SS (Txt;("+";"-";�       �
 L);("";"�";�R))' '  :if 1 = ^/ �VI ,Txt,[2] '' ''' '    Nums � �FI ,Txt       �
 ,[2] '' ''' '    :if 2 = �NC "Types"' '      Res[I;] � Nums[Types]' '         �
   :else ' '      Res[I;] � Nums' '    :endif' '  :else' '    ''Not a va       �
 lid number''' '    Res � 0�0' '    � Done' '  :endIf' ':endFor' 'Done:'       �
X ''                                                                           �