Traduisez un texte dans une image : Nouveautés de Wolfram Language 11

Traduisez un texte dans une image

Vous pouvez créer une fonction qui reçoit une image en entrée et traduit le texte qu'elle contient en anglais.

In[1]:=


ImageTranslate[image_, rules___Rule] := 
 ImageTranslate[image, Association@rules]; 
ImageTranslate[image_, args_] := Module[
  {tr, gt, translatedText, to = Entity["Language", "English"], i, 
   ifc, rule, im, result = {}, recognizedList},
  
  i = Binarize@ColorNegate@image;
  ifc = ImageForestingComponents[ColorNegate@i, 
    Automatic, {First@ImageDimensions@i, 1}];
  rule = {h__, {0 ..}, w : {0 ..}, {0 ..}, t__} -> {h, w, w, t};
  im[x_] := 
   Transpose[
    Transpose[Replace[ifc, Except[x] -> 0, {2}] //. rule] //. rule];
  tr = TextRecognize[Image[im[#]], Language -> "Spanish"] & /@ 
    Range[2, Max@ifc];
  recognizedList = Flatten@List[tr];
  
  gt = args[ServiceObject];
  
  translatedText = 
   gt["Translate", "To" -> to, "Text" -> #] & /@ recognizedList;
  translatedText
  ]

Connectez-vous à l'API de Microsoft Translator.

In[2]:=