Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  584 1761 (N27E56 L=142)  3009    467        4 ( 443/1624- 701/1843) -87.1 E66-E44 N15-N35
      2  998 1770 (N38E26 L=172)   819    181        1 ( 953/1681-1026/1834) -35.5 E33-E19 N32-N43
      3 1576 1488 (N36W24 L=222)   316    102        0 (1565/1436-1589/1534) -81.9 W22-W25 N32-N39
      4 1267 1342 (N17W06 L=204)   306     96        1 (1236/1303-1308/1380)  63.4 W04-W07 N14-N20
      5 1324 1249 (N13W11 L=209)   224     54        0 (1293/1231-1357/1262)  14.0 W09-W13 N11-N13
      6  131 1188 (S15E74 L=124)  1124    123        2 ( 105/1120- 158/1241)  69.4 E82-E70 S19-S11
      7  250 1132 (S17E56 L=142)   571    100        2 ( 219/1091- 283/1170)  50.2 E58-E52 S20-S14
      8  312 1108 (S18E49 L=149)   280     65        0 ( 281/1078- 329/1129) -21.8 E52-E47 S19-S16
      9  207 1059 (S22E60 L=138)   354     69        1 ( 186/1033- 232/1090) -31.0 E62-E56 S23-S20
     10  305 1019 (S23E49 L=149)   600    101        2 ( 279/ 980- 340/1067) -29.7 E51-E44 S25-S20
     11  215  969 (S28E58 L=140)   442     50        1 ( 192/ 944- 237/ 998)  33.7 E61-E55 S29-S25
     12  497  943 (S24E31 L=167)   305    119        0 ( 479/ 878- 509/ 992) -71.6 E33-E29 S27-S21
     13 1240  940 (S06W14 L=212)   280     59        1 (1220/ 909-1271/ 967)  63.4 W12-W15 S08-S04
     14  766  910 (S20E12 L=186)   207     77        2 ( 721/ 893- 801/ 921)  36.9 E14-E10 S21-S18
     15  943  779 (S23W02 L=200)   189     99        0 ( 892/ 768- 994/ 789)  31.0 E01-W04 S24-S21
     16 1444  743 (S11W32 L=230)   783    207        0 (1352/ 691-1538/ 781)  48.0 W28-W37 S16-S06
     17 1136  609 (S27W19 L=217)   626    256        0 (1010/ 581-1233/ 645)  31.6 W10-W23 S30-S22
     18 1420  457 (S27W44 L=242)  1536    315        2 (1273/ 397-1553/ 495)  13.0 W33-W59 S31-S24
     19 1060  413 (S42W23 L=221)  1085    210        1 ( 954/ 389-1162/ 445)  34.7 W15-W28 S45-S36
     20  489  389 (S63E33 L=165)  1342    143        4 ( 417/ 356- 555/ 426)   2.4 E45-E21 S65-S60
  

    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