Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1350 1752 (N45W50 L=351)  1847    210        4 (1295/1661-1419/1804)  16.3 W39-W63 N39-N47
      2  709 1730 (N61E14 L=288)   435     52        1 ( 689/1698- 729/1756)  80.5 E16-E11 N57-N63
      3  936 1555 (N41W05 L=306)   376     60        2 ( 907/1520- 968/1587) -78.7 W03-W07 N38-N43
      4 1168 1499 (N33W20 L=321)  1716    557        6 ( 970/1432-1374/1585) -38.0 W08-W31 N24-N42
      5  348 1405 (N40E49 L=252)   925    170        2 ( 288/1365- 433/1451) -15.3 E60-E38 N36-N43
      6 1760 1329 (N09W58 L=359)   378     61        1 (1745/1293-1777/1360)  31.0 W55-W61 N07-N10
      7 1141 1115 (N10W08 L=310)   305    120        0 (1083/1096-1196/1136) -15.9 W04-W11 N08-N11
      8  842 1038 (N10E11 L=291)   509    180        0 ( 777/ 970- 908/1099) -56.3 E13-E07 N05-N14
      9 1729  949 (S12W45 L=347)   743    180        1 (1699/ 854-1750/1024)  56.3 W41-W48 S16-S07
     10  223  950 (N13E59 L=242)   971    127        3 ( 203/ 885- 248/1007) -81.9 E61-E56 N08-N15
     11  637  850 (N02E26 L=275)   212     78        0 ( 601/ 832- 675/ 871) -36.9 E28-E24 N00-N03
     12 1238  731 (S14W08 L=309)  1025    365        2 (1123/ 613-1315/ 828)  34.7 E01-W13 S19-S09
     13 1403  520 (S32W16 L=318)  1536    313        3 (1276/ 460-1510/ 626)  14.7 W06-W25 S35-S26
     14  756  206 (S45E46 L=256)  2356    261        3 ( 648/ 163- 859/ 245)   3.9 E70-E33 S48-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