code分享

proc CreateImageFile {args} {
set python_script { from PIL import Image, ImageSequenceimg = Image.open(r"C:\Users\jintian\Downloads\5.gif")black_pixels = []for frame in ImageSequence.Iterator(img):    frame = frame.resize((300, 300))    frame = frame.convert('1')    black_pixels_frame = [y * frame.width + x + 1 for y in range(frame.height) for x in range(frame.width) if frame.getpixel((x, y)) == 0]    black_pixels.append(black_pixels_frame)
# Open the filewith open(r"C:\Users\jintian\Downloads\5.txt", 'w') as f:    for black_pixels_frame in black_pixels:        positions_str = [str(id) for id in black_pixels_frame]        line = ' '.join(positions_str)        f.write(line + '\n')print (r"C:\Users\jintian\Downloads\5.txt")}cd "D:/Users/jintian/anaconda3"set result [exec python << $python_script]return $result}# CreateImageFile






set ImageInfoPath [CreateImageFile]  for {set i 0} {$i < 10} {incr i} {    set f [open $ImageInfoPath]    while {1} {      set line [gets $f]      if {[eof $f]} {        close $f        break      }      *createmark elem 1   {*}$line      hm_highlightmark Elements 1 high;      *window 0 0 0 0 0      after 10    }  }