Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1186 1691 (N41W35 L=324)   325     35        1 (1155/1670-1215/1705) -33.7 W32-W37 N39-N43
      2 1049 1536 (N36W17 L=306)  1078    277        3 ( 935/1489-1179/1565) -19.4 W07-W25 N32-N38
      3 1921 1150 (S12W70 L=359)   824    120        3 (1895/1101-1942/1193)  26.6 W65-W76 S14-S10
      4 1855 1092 (S12W58 L=347)  1422    186        3 (1812/1002-1883/1172)  45.0 W51-W63 S16-S08
      5  364 1070 (N24E43 L=246)   717    192        0 ( 322/1005- 419/1164) -59.7 E46-E38 N18-N30
      6 1367  962 (S05W18 L=307)   808    257        0 (1340/ 841-1404/1073)  50.7 W13-W22 S11-N00
      7  361  953 (N17E44 L=244)   868    244        1 ( 273/ 904- 441/ 992)  -7.6 E53-E38 N12-N19
      8  392  889 (N13E43 L=246)   249     24        0 ( 374/ 865- 408/ 911) -90.0 E44-E41 N11-N14
      9  342  861 (N12E48 L=241)   547    101        2 ( 320/ 816- 370/ 900) -90.0 E50-E45 N09-N14
     10 1612  627 (S33W29 L=318)  1919    309        5 (1495/ 537-1693/ 738)  21.3 W18-W36 S36-S26
     11  335  415 (S16E73 L=216)  1073     85        2 ( 303/ 375- 351/ 455)  32.5 E80-E66 S19-S12
     12  618  300 (S28E51 L=237)  1187    176        0 ( 552/ 271- 689/ 331) -15.3 E56-E43 S30-S24
     13  929  224 (S41E34 L=255)  2070    309        7 ( 828/ 146-1060/ 314)  14.0 E51-E19 S47-S37
  

    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