Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1069 1777 (N52E13 L=162)   718    137        1 (1002/1753-1135/1799)  28.6 E18-E07 N48-N55
      2  719 1568 (N29E31 L=144)  2023    410        2 ( 570/1444- 889/1647) -14.5 E46-E15 N23-N32
      3 1599 1565 (N44W40 L=215)   913    117        2 (1534/1537-1645/1595)   8.7 W32-W46 N41-N47
      4  889 1297 (N14E12 L=163)   422    142        1 ( 835/1239- 928/1345) -29.7 E16-E09 N11-N16
      5  310 1197 (S00E51 L=124)   335     49        1 ( 289/1170- 335/1225) -11.3 E53-E48 S01-N01
      6 1867 1042 (N13W63 L=238)  2879    249        7 (1831/ 942-1928/1162) -61.7 W58-W73 N07-N20
      7 1892 1106 (N17W67 L=242)   654     57        1 (1868/1078-1915/1134) -15.9 W63-W70 N15-N18
      8 1766  975 (N08W52 L=227)  1218    218        3 (1738/ 867-1786/1077) -67.4 W48-W55 N01-N13
      9  223  966 (S15E57 L=118)   586     89        2 ( 206/ 923- 243/1007)  78.7 E59-E55 S17-S12
     10  903  863 (S11E05 L=170)   336    134        0 ( 851/ 831- 951/ 903)  45.0 E07-E02 S13-S08
     11  283  822 (S23E51 L=124)   812    176        2 ( 244/ 751- 328/ 894)  47.7 E56-E46 S28-S17
     12  989  685 (S21W03 L=178)  1732    515        0 ( 753/ 633-1151/ 798)  31.3 E12-W11 S27-S11
     13 1841  628 (S12W74 L=250)  1466    145        2 (1802/ 558-1875/ 685)  76.0 W72-W80 S16-S08
     14 1109  230 (S53W28 L=203)   849     90        1 (1075/ 191-1145/ 267) -35.0 W23-W34 S56-S49
  

    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