🚀 go-pugleaf

> Jest takie coś: 
> 
> https://drive.google.com/file/d/1wsunQU_gOmqgQ1-jFkHeubBNSpJPAS5F/view?usp=sharing 

Wolfram:

img = Import["cisnieniomierz.jpg"];
img2 = ImageTake[
   ImageResize[ImageMultiply[img, 5], 500], {76, -39}, {86, -82}];

img2 to rozjaśniony, wycentrowany (na oś wskazówki, wartości dobrane) i pomniejszony obraz ciśnieniomierza.

mask = Rasterize[
   Graphics[{Disk[{0, 0}, 1.1], White, Disk[{0, 0}, 1]}, 
    PlotRange -> {{-1.75, 1.75}, {-1.75, 1.75}}], 
   RasterSize -> ImageDimensions[img2]];

mask to maska, która wycina pierścień tam, gdzie jest czerwone pole (tam jest tylko czarna wskazówka na czerwonym, więc nic innego nie przeszkadza).

img3 = ImageMultiply[img2, ColorNegate[mask]];
img4 = ImageAdd[img3, mask];

img4 to wycięte czerwone pole z kawałkiem czarnej wskazówki, reszta jest całkiem biała.

blacks = PixelValuePositions[img4, Black, 0.15];

blacks to lista pozycji czarnych (lub prawie czarnych, tolerancja dobrana) pikseli. Jest ich w sumie 7.

Map[
  Function[p,
   N@ArcTan[Divide @@ Reverse[(p - ImageDimensions[img2]/2)]]/Degree
   ],
  blacks
  ] // Median

7.81529

I tyle właśnie, w stopniach, jest odchylona wskazówka od poziomu.

Można też porobić dużo zdjęć wzorcowych i porównywać korelacją albo jakimiś sieciami, ale samą arytmetyką jest dużo taniej. Da się to zrobić w dowolnym innym języku.

(BTW - Google twierdzi, że w tym kodzie są adresy mailowe. Dobre.)

-- 
Maciej Sobczak * http://www.inspirel.com