Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1645 (N41E10 L=124)   629    117        1 (1021/1596-1070/1690) -69.4 E12-E08 N36-N44
      2  445 1519 (N22E50 L= 84)  1142    332        2 ( 377/1415- 516/1656)  90.0 E53-E47 N14-N31
      3 1438 1558 (N41W23 L=157)   534    135        0 (1394/1516-1479/1594)  45.0 W19-W27 N37-N44
      4  629 1505 (N24E35 L= 99)   357    127        1 ( 610/1460- 646/1567) -63.4 E36-E32 N20-N28
      5  335 1527 (N21E61 L= 73)   502    109        1 ( 313/1491- 354/1550) -45.0 E64-E58 N18-N22
      6 1344 1458 (N32W15 L=149)   325     50        2 (1322/1426-1365/1488) -78.7 W13-W16 N29-N34
      7  779 1341 (N16E20 L=114)   219     96        1 ( 724/1323- 818/1362)  31.0 E23-E17 N13-N17
      8  998 1247 (N13E05 L=129)   366     97        0 ( 951/1225-1042/1269)  31.0 E07-E02 N11-N14
      9 1011 1145 (N07E03 L=131)   752    293        2 ( 895/1034-1106/1228) -32.7 E10-W04 N01-N10
     10  245  949 (S16E55 L= 79)   347     65        0 ( 233/ 909- 258/ 986) -68.2 E55-E52 S18-S13
     11  645  938 (S11E22 L=112)   336    127        0 ( 577/ 921- 699/ 959)  12.5 E27-E18 S11-S08
     12 1003  849 (S11W01 L=135)   831    138        4 ( 942/ 767-1037/ 927) -71.6 E02-W04 S15-S05
     13  458  565 (S38E36 L= 98)   451    108        0 ( 418/ 538- 496/ 595)  32.0 E40-E32 S40-S35
  

    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