Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  444 1661 (N32E58 L= 51)  1034    346        3 ( 426/1598- 463/1741) -45.0 E64-E52 N27-N37
      2  746 1634 (N35E31 L= 78)  1603    315        3 ( 699/1526- 782/1736) -49.1 E40-E27 N27-N42
      3 1274 1640 (N45W09 L=119)   470     76        0 (1257/1605-1293/1673)  80.5 W07-W11 N41-N47
      4 1626 1570 (N46W43 L=152)  1046    223        1 (1579/1515-1664/1619)  34.7 W36-W49 N40-N50
      5  613 1481 (N23E35 L= 74)  1079    263        2 ( 501/1453- 708/1510)  15.9 E43-E28 N21-N25
      6  727 1370 (N17E24 L= 85)   515    225        0 ( 657/1325- 766/1440)  90.0 E28-E21 N13-N21
      7  347 1257 (N05E50 L= 59)   492    128        1 ( 304/1235- 398/1287)  29.7 E53-E45 N03-N07
      8 1358 1155 (N13W19 L=128)   878    240        4 (1284/1094-1412/1222)  48.8 W14-W22 N08-N17
      9  356  901 (S16E44 L= 65)   767    234        0 ( 304/ 824- 381/1019)  71.6 E48-E41 S21-S09
     10 1787  887 (N02W56 L=165)   538     98        1 (1772/ 843-1804/ 934)  78.7 W53-W57 N00-N05
     11 1582  844 (S03W39 L=148)   316     82        0 (1558/ 801-1615/ 883)  68.2 W37-W40 S05-N00
     12  972  842 (S11E01 L=108)   233     85        0 ( 929/ 823-1019/ 868) -11.3 E03-W02 S12-S10
     13  222  752 (S28E58 L= 52)   517    165        0 ( 184/ 733- 259/ 774)  18.4 E62-E53 S29-S26
     14 1377  711 (S14W27 L=136)   656    126        3 (1337/ 650-1408/ 762) -40.6 W23-W30 S17-S10
  

    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