Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  866 1625 (N38E07 L=125)   721    195        3 ( 781/1569- 936/1667) -33.7 E14-E02 N33-N41
      2 1244 1565 (N31W20 L=152)   613    129        1 (1176/1524-1300/1606) -36.9 W15-W23 N27-N34
      3  631 1521 (N32E25 L=107)   354     68        0 ( 603/1492- 665/1543) -26.6 E27-E21 N30-N34
      4 1027 1467 (N26W03 L=135)   603    137        0 ( 970/1428-1090/1504) -40.6 W00-W07 N22-N28
      5  361 1341 (N22E45 L= 87)   522    131        3 ( 329/1284- 382/1399) -69.4 E47-E43 N18-N26
      6  273 1332 (N23E54 L= 78)  1107    171        0 ( 241/1277- 308/1395)  90.0 E57-E49 N18-N26
      7 1618 1134 (N01W39 L=171)   227     53        0 (1596/1106-1636/1153) -90.0 W37-W40 N00-N02
      8 1747 1118 (S00W49 L=182)   732    103        1 (1709/1083-1781/1151)   9.5 W46-W52 S02-N01
      9 1724  864 (S15W47 L=179)  1164    241        0 (1633/ 784-1813/ 945)  28.1 W39-W55 S19-S10
     10  585  829 (S10E29 L=103)   703    217        1 ( 527/ 745- 646/ 918)  39.3 E34-E23 S15-S05
     11 1528  582 (S32W34 L=166)  2908    612        4 (1336/ 412-1766/ 757)  32.5 W20-W53 S43-S21
     12  647  603 (S25E29 L=103)   733    196        1 ( 610/ 537- 718/ 685) -78.7 E30-E24 S29-S19
     13 1230  444 (S40W11 L=143)   858    137        4 (1187/ 396-1278/ 502) -52.1 W07-W15 S44-S35
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y