Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1369 1758 (N45W52 L=351)  1787    213        2 (1313/1675-1431/1811)  18.4 W43-W64 N39-N47
      2  727 1729 (N60E11 L=288)   442     57        0 ( 707/1696- 748/1757)  71.6 E14-E08 N56-N62
      3 1240 1494 (N31W24 L=323)  1561    383        5 (1095/1437-1427/1549) -31.0 W15-W35 N23-N36
      4  376 1406 (N40E46 L=253)   845    182        2 ( 307/1366- 464/1454) -18.4 E56-E35 N36-N44
      5  888 1041 (N10E08 L=291)   351    157        2 ( 842/ 979- 947/1094) -63.4 E09-E05 N05-N13
      6 1759  982 (S10W48 L=347)   462    101        0 (1746/ 930-1775/1030)  56.3 W46-W50 S13-S07
      7  240  956 (N13E57 L=242)   541    115        1 ( 224/ 897- 255/1008)  80.5 E58-E55 N09-N15
      8  664  865 (N03E24 L=275)   207     69        1 ( 635/ 841- 696/ 889) -45.0 E26-E22 N01-N04
      9 1293  795 (S12W12 L=311)   346    185        0 (1263/ 717-1349/ 838)  45.0 W09-W16 S16-S09
     10 1431  528 (S32W19 L=318)  1330    296        4 (1312/ 474-1534/ 632)  16.4 W09-W27 S35-S26
     11  342  482 (S18E64 L=235)  1495    261        1 ( 271/ 382- 428/ 569) -74.1 E67-E60 S25-S11
     12 1209  412 (S36W01 L=300)   243     36        1 (1187/ 397-1234/ 435)   0.0 E01-W02 S37-S33
     13  783  212 (S44E42 L=257)  2665    341        5 ( 657/ 161- 914/ 270)   9.0 E66-E26 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