Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1747 1482 (N43W44 L=143)  1197    182        1 (1661/1443-1820/1513)  14.0 W33-W58 N40-N47
      2  624 1268 (S02E29 L= 70)   245     57        2 ( 599/1246- 645/1295)  56.3 E30-E27 S03-N00
      3  381 1243 (S08E46 L= 53)   512    110        0 ( 335/1202- 427/1285)  50.2 E49-E43 S11-S05
      4  245 1189 (S14E58 L= 42)   554    138        3 ( 216/1138- 285/1249)  81.9 E60-E53 S16-S09
      5  444 1145 (S13E39 L= 61)   238     67        0 ( 422/1115- 473/1181)  63.4 E40-E37 S14-S10
      6 1880 1024 (N17W60 L=159)  1186    219        2 (1857/ 934-1929/1129) -28.1 W55-W70 N12-N23
      7 1809 1015 (N14W52 L=151)  1073    216        1 (1787/ 915-1833/1115) -65.6 W47-W54 N08-N19
      8  265  914 (S30E52 L= 47)   746    228        2 ( 208/ 825- 320/1010)  45.0 E60-E46 S35-S22
      9  535  946 (S23E28 L= 71)   483    180        0 ( 460/ 921- 618/ 972)  14.0 E34-E22 S24-S21
     10  333  732 (S40E45 L= 54)   840    142        3 ( 288/ 683- 371/ 798)  39.3 E52-E40 S44-S35
     11  673  758 (S31E15 L= 84)   227     95        0 ( 628/ 743- 719/ 772)  26.6 E18-E12 S32-S29
     12 1638  571 (S15W54 L=153)  1074    300        3 (1527/ 477-1714/ 676)  78.7 W50-W57 S22-S07
     13 1173  522 (S32W25 L=124)  1257    233        9 (1076/ 465-1251/ 599)  65.6 W19-W27 S37-S25
     14  754  407 (S52E00 L= 99)   376     71        1 ( 729/ 379- 780/ 439) -31.0 E03-W02 S54-S49
     15 1371  329 (S37W51 L=151)   338     74        0 (1338/ 310-1405/ 342)   7.1 W47-W55 S38-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