Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  930 1840 (N42E40 L=135)   922    127        1 ( 867/1804- 992/1876)  -3.6 E49-E33 N39-N43
      2  434 1658 (N16E64 L=112)  1729    235        2 ( 336/1615- 509/1696)   2.4 E76-E52 N11-N19
      3  477 1420 (N02E45 L=131)   318     66        0 ( 449/1396- 512/1438)  45.0 E46-E42 N00-N03
      4  802 1255 (N00E19 L=157)   790    238        1 ( 741/1157- 874/1347) -24.8 E24-E11 S03-N04
      5  213 1143 (S19E61 L=115)   784    126        5 ( 188/1101- 254/1200) -35.5 E63-E55 S21-S15
      6 1703 1114 (N20W39 L=215)  1158    138        3 (1642/1069-1752/1160)   0.0 W33-W44 N17-N21
      7  298 1122 (S19E51 L=125)   384     76        0 ( 278/1081- 320/1155)  68.2 E52-E48 S21-S16
      8  149 1061 (S25E69 L=107)  3174    186        7 ( 109/ 982- 186/1145)  50.7 E77-E62 S30-S19
      9  868 1093 (S07E10 L=165)   319     67        0 ( 839/1056- 904/1124)  68.2 E11-E08 S09-S04
     10  268  979 (S28E52 L=124)   373     63        0 ( 245/ 944- 290/1008)  59.0 E54-E49 S30-S25
     11  896  615 (S33W05 L=181)  2149    546        6 ( 755/ 471-1138/ 743)  64.3 E02-W15 S45-S18
     12 1335  651 (S17W30 L=205)  1254    286        0 (1196/ 619-1480/ 676)  34.5 W22-W38 S22-S11
     13 1562  462 (S19W56 L=231)  1147    266        1 (1473/ 416-1642/ 496)  48.0 W50-W60 S24-S14
     14  633  366 (S60E06 L=170)   313     15        0 ( 612/ 348- 654/ 383)   0.0 E08-E03 S61-S58
     15  967  164 (S62W49 L=225)   489     60        0 ( 941/ 139- 992/ 194)  -6.7 W40-W57 S62-S59
  

    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