Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1145 1792 (N48E07 L=101)  1430    172        2 (1108/1719-1180/1847) -72.9 E11-E03 N40-N53
      2  783 1594 (N25E26 L= 82)   809    234        1 ( 693/1513- 859/1657) -26.6 E34-E18 N20-N28
      3 1798 1377 (N31W53 L=161)   479    113        0 (1765/1329-1846/1406) -18.4 W49-W58 N28-N32
      4 1362 1237 (N12W17 L=125)   257     82        1 (1327/1208-1401/1266)  51.3 W14-W19 N09-N14
      5  241 1050 (S14E56 L= 53)  4261    515       16 ( 164/ 786- 304/1238) -79.5 E64-E48 S30-S03
      6  165 1127 (S10E65 L= 43)   985    150        0 ( 134/1067- 199/1191)  53.1 E69-E61 S13-S05
      7 1680 1082 (N09W41 L=149)   470    133        3 (1646/1039-1728/1139) -29.7 W37-W45 N06-N11
      8  614 1080 (S09E26 L= 82)   482    144        3 ( 586/1010- 655/1132) -54.5 E28-E22 S12-S05
      9  385  855 (S25E41 L= 67)  1636    470        4 ( 363/ 655- 419/1066)  81.3 E45-E38 S37-S11
     10 1023  972 (S09W01 L=109)   227     69        0 ( 982/ 958-1056/ 991)  33.7 E01-W02 S10-S07
     11 1751  572 (S18W64 L=172)  1066    100        0 (1709/ 534-1794/ 617)  60.3 W60-W67 S21-S14
     12 1194  456 (S38W24 L=132)   290     73        1 (1178/ 415-1210/ 488) -45.0 W22-W27 S40-S35
     13 1573  382 (S33W61 L=169)  1240    181        5 (1497/ 324-1650/ 421)  48.4 W55-W67 S38-S29
  

    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