Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  830 1841 (N65W25 L=293)   438     67        0 ( 816/1806- 847/1872)  24.8 W19-W32 N61-N67
      2 1355 1847 (N42W66 L=334)   684     75        1 (1309/1819-1391/1872)  -4.1 W58-W73 N40-N43
      3  507 1657 (N61E26 L=243)  1346    246        3 ( 410/1595- 599/1724)  10.5 E40-E12 N58-N64
      4  843 1317 (N27E03 L=266)   785    269        5 ( 728/1276- 962/1355) -42.3 E09-W03 N21-N32
      5 1799 1191 (S07W54 L=323)   338     61        1 (1783/1160-1825/1215)   9.5 W51-W57 S08-S06
      6 1681 1063 (S10W40 L=309)   577    140        0 (1659/ 998-1701/1131)  54.5 W37-W43 S13-S06
      7  655  975 (N12E22 L=246)   398    215        1 ( 569/ 922- 732/1010) -41.6 E27-E18 N07-N16
      8 1698  728 (S31W36 L=305)   364     72        2 (1677/ 708-1730/ 766) -59.0 W33-W38 S32-S27
      9 1504  554 (S35W17 L=286)  1337    236        4 (1397/ 509-1600/ 621)  -3.4 W09-W26 S37-S32
     10  657  474 (S16E38 L=231)   322     80        1 ( 637/ 434- 679/ 513)  51.3 E41-E35 S18-S13
     11  435  402 (S16E60 L=209)  1769    191        4 ( 384/ 332- 498/ 483)  74.7 E64-E55 S21-S10
     12  591  337 (S24E51 L=217)  1775    316        6 ( 505/ 272- 693/ 421) -69.0 E59-E44 S29-S16
     13  812  345 (S28E35 L=234)   316     65        1 ( 775/ 330- 848/ 365) -36.9 E36-E32 S29-S25
     14  983  221 (S43E33 L=236)  2745    438        9 ( 799/ 125-1114/ 325)   8.3 E57-E16 S48-S38
  

    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