Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1123 1538 (N36W01 L=292)   286     99        1 (1089/1497-1153/1585) -51.3 E01-W03 N32-N38
      2  407 1391 (N18E49 L=242)   992    229        3 ( 377/1300- 436/1489) -50.7 E53-E44 N12-N24
      3  877 1297 (N17E12 L=279)   210    116        0 ( 830/1272- 920/1316)  31.0 E14-E09 N14-N18
      4  807 1052 (N01E14 L=277)   240     67        0 ( 775/1035- 847/1069)  14.0 E15-E11 N00-N02
      5  830  860 (S10E11 L=280)   483     82        2 ( 802/ 817- 856/ 893) -63.4 E12-E08 S12-S08
      6  581  800 (S17E27 L=264)   256     58        1 ( 558/ 777- 608/ 833)  76.0 E28-E24 S18-S14
      7  867  755 (S17E07 L=284)   522    198        3 ( 784/ 733- 933/ 805)  -6.3 E12-E03 S17-S14
      8 1533  704 (S14W38 L=329)   930    210        1 (1503/ 624-1571/ 782) -73.3 W35-W42 S18-S08
      9 1300  705 (S16W21 L=312)   502    192        1 (1228/ 660-1350/ 778)  60.9 W16-W23 S19-S10
     10  208  742 (S25E65 L=226)   564     84        1 ( 171/ 727- 239/ 772)  15.9 E73-E59 S26-S22
     11 1703  646 (S16W54 L=345)   449     49        2 (1678/ 625-1733/ 671)  21.8 W52-W58 S17-S14
     12  724  549 (S32E16 L=274)   314    101        0 ( 672/ 537- 770/ 566)   7.1 E20-E12 S33-S30
     13 1476  357 (S38W49 L=340)  1092    110        2 (1433/ 319-1518/ 408) -74.1 W43-W53 S41-S34
  

    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