이미지상의 텍스트 번역: Wolfram Language 11의 신기능

이미지상의 텍스트 번역

이미지를 입력으로 얻고 그 안에 포함된 텍스트를 영어로 번역하는 함수를 구축 할 수 있습니다.

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
  ]

Microsoft Translator API에 연결합니다.

In[2]:=