Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1191 1865 (N59E25 L=194)   628     69        2 (1159/1848-1227/1884)  71.6 E28-E21 N55-N62
      2 1322 1787 (N56E06 L=213)   383     54        1 (1294/1769-1351/1802)  18.4 E08-E02 N53-N58
      3 1034 1566 (N28E15 L=203)  1035    290        1 ( 908/1491-1156/1643)  -5.4 E26-E05 N26-N29
      4  381 1601 (N14E65 L=153)   954    134        3 ( 335/1565- 438/1630)  40.6 E73-E58 N10-N16
      5 1491 1411 (N32W19 L=237)  1158    218        3 (1428/1332-1550/1499) -36.0 W13-W24 N27-N36
      6  356 1224 (S09E48 L=170)   711     78        2 ( 327/1185- 394/1262)  51.3 E50-E45 S11-S06
      7 1464 1111 (N12W23 L=242)   522    166        0 (1445/1039-1480/1201) -78.7 W21-W24 N08-N18
      8  225 1068 (S21E58 L=160)   436     59        1 ( 189/1052- 257/1084)  14.0 E62-E54 S22-S19
      9  268  807 (S36E52 L=167)   690    166        0 ( 203/ 758- 333/ 868)  29.1 E62-E43 S40-S30
     10 1172  704 (S18W17 L=236)   322     73        1 (1146/ 679-1211/ 736) -21.8 W15-W20 S19-S16
     11  337  646 (S45E45 L=174)   571    149        1 ( 280/ 614- 399/ 679)  20.2 E55-E36 S49-S42
     12 1712  651 (S05W57 L=275)   368     37        0 (1692/ 632-1730/ 669)  63.4 W54-W59 S06-S04
     13 1345  501 (S25W37 L=255)   269    115        0 (1300/ 463-1384/ 542)  71.6 W35-W37 S27-S21
  

    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