When AI help us to monitor babies

https://theconversation.com/a-camera-combined-with-ai-could-help-further-diagnosis-of-movement-disorders-like-spinal-muscular-atrophy-in-newborns-293152

Some interesting videos about my work.

 

Red MP3 Reader

Well, Red is awesome. The idea here was to combine macOS tools like afplay with a user-friendly GUI. It's done!

Face Update

 After a few hours of work and discussions with Red/Sensei (https://ask.lang.red/chat), the Face software—which I wrote a few years ago to measure facial bone growth in children—is now available for macOS-ARM 64-bit.  We have two versions (https://github.com/ldci/Face)—one for 32-bit and one for 64-bit!

OCR to TTS

With macOS on ARM-64, Tesseract and Say work together. The OCR reads the image and converts it into text. Then the TTS reads and speaks the text.

(see https://github.com/ldci/Red_KIS/tree/main/Tesseract)

Red 64-bit

 Thanks to Qtxie's superb work, Red now runs in 64-bit mode on Apple's ARM processors. I'm enjoying programming with Red again!

Rebol R3 skeleton

Using erode and dilate is similar to OpenCV morphologyEx (not supported by Rebol 3) 

#!/usr/local/bin/r3
Rebol [
]
;--all images are binary with 1 channel
;--using erode and dilate is similar to OpenCV morphologyEx (not supported by Rebol 3)
cv: import opencv
with cv [
    img: imread/with "../images/char.png" IMREAD_GRAYSCALE ;--source image as GS
    threshold :img :img 127 255 THRESH_BINARY ;--binary thresholding
    namedWindow win1: "Source"
    moveWindow win1 0x0
    imshow/name img "Source"
    skel: Matrix [:img/size CV_8UC1] ;--1 channel matrix (8-bit)
    element: getStructuringElement MORPH_CROSS 3x3 -1x-1 ;--structuring element for the kernel
    until [
    eroded: erode :img none element -1x-1 1 ;--erode
    temp: dilate :eroded none element -1x-1 1 ;--then dilate
    subtract :img :temp :temp ;--img source - eroded image
    bitwise-or :skel :temp :skel ;--just OR operator
    img: :eroded ;--update source image
    maxi: second minMaxLoc img ;--get maxi value
    maxi = 0 ;--repeat until maxi = 0
    ]
    namedWindow win2: "Skeleton"
    moveWindow win2 250x0
    imshow/name skel win2
    waitKey 0
    destroyAllWindows
]