Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1347 1749 (N45W49 L=351)  1759    207        4 (1293/1659-1418/1802)  16.9 W38-W61 N39-N47
      2  706 1729 (N61E14 L=288)   423     46        0 ( 686/1697- 726/1751)  90.0 E17-E11 N57-N62
      3  931 1555 (N41W04 L=306)   389     63        2 ( 901/1519- 956/1586) -78.7 W02-W06 N38-N43
      4 1190 1491 (N32W21 L=323)  1352    444        2 (1005/1426-1369/1564) -38.7 W10-W30 N24-N40
      5  345 1404 (N40E50 L=252)   905    177        2 ( 284/1363- 430/1451) -15.9 E60-E39 N36-N43
      6 1758 1329 (N09W58 L=360)   402     79        0 (1742/1290-1777/1360)  31.0 W55-W60 N07-N10
      7 1140 1110 (N10W08 L=310)   291    130        0 (1080/1090-1201/1130) -23.2 W04-W11 N07-N11
      8  839 1033 (N10E11 L=291)   418    174        0 ( 785/ 972- 900/1095) -60.9 E13-E08 N05-N14
      9 1729  960 (S11W45 L=347)   587     89        1 (1710/ 907-1746/1016)  66.8 W43-W47 S14-S07
     10  222  952 (N13E59 L=243)   935    117        2 ( 200/ 890- 246/ 999)  74.1 E61-E56 N08-N15
     11 1229  729 (S14W07 L=309)   915    356        3 (1118/ 605-1308/ 827)  35.5 E01-W13 S20-S09
     12 1394  515 (S32W16 L=318)  1444    306        2 (1276/ 461-1498/ 617)  15.5 W06-W24 S35-S27
     13  273  548 (S13E68 L=234)   537     47        1 ( 255/ 518- 289/ 566) -76.0 E71-E64 S15-S11
     14  469  443 (S22E52 L=250)   514    129        2 ( 434/ 391- 498/ 473)  80.5 E54-E49 S25-S19
     15  753  206 (S45E46 L=256)  2241    252        1 ( 647/ 162- 850/ 245)   3.8 E72-E33 S49-S41
  

    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