Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  888 1542 (N31E18 L=241)   223     49        0 ( 856/1526- 913/1558)   0.0 E20-E15 N29-N31
      2  436 1472 (N19E49 L=210)   540    171        1 ( 410/1424- 457/1527) -40.6 E53-E45 N16-N22
      3  660 1451 (N21E31 L=228)   681    110        1 ( 639/1393- 683/1506) -81.9 E32-E29 N17-N24
      4  979 1372 (N21E08 L=251)   360     77        0 ( 957/1325- 993/1412) -63.4 E10-E06 N17-N23
      5  555 1309 (N11E35 L=225)   709    162        1 ( 518/1253- 598/1380) -36.9 E38-E30 N07-N14
      6 1357 1222 (N17W18 L=278)   344    155        4 (1305/1183-1410/1266) -23.2 W14-W21 N15-N18
      7 1057 1220 (N12E01 L=259)   623    191        2 ( 946/1192-1141/1254)   0.0 E08-W04 N11-N13
      8 1156  976 (S01W09 L=268)  1213    319        1 (1088/ 843-1256/1114) -60.3 W04-W16 S07-N07
      9  268 1021 (S11E53 L=206)   764    176        0 ( 252/ 930- 286/1105) -78.7 E54-E50 S15-S05
     10  611  924 (S12E24 L=235)   528    126        1 ( 560/ 904- 688/ 942)   6.3 E28-E19 S13-S10
     11  899  870 (S11E06 L=254)   441    191        0 ( 855/ 793- 981/ 917)  49.4 E07-W00 S15-S07
     12 1231  703 (S16W18 L=277)   942    217        2 (1159/ 593-1298/ 786)  70.3 W15-W20 S24-S10
     13 1056  536 (S30W10 L=269)   524    111        2 (1002/ 509-1131/ 565)  26.6 W06-W14 S32-S27
  

    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