Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1209 1847 (N50W47 L=116)   470     58        1 (1171/1819-1236/1863) -63.4 W42-W51 N48-N52
      2 1471 1484 (N19W39 L=109)  1424    339        1 (1327/1429-1597/1585)   2.1 W28-W55 N16-N22
      3  927 1514 (N33W05 L= 74)  1539    372        2 ( 778/1443-1082/1569) -31.4 E05-W13 N25-N38
      4  345 1377 (N38E44 L= 26)  1800    205        4 ( 287/1277- 389/1453) -45.0 E52-E38 N30-N43
      5  352 1076 (N18E43 L= 26)  1279    251        5 ( 306/ 983- 406/1179) -65.2 E46-E39 N12-N25
      6  110 1068 (N22E74 L=356)  2731    212        5 (  86/ 973- 135/1150)  79.7 E80-E68 N16-N27
      7 1258  840 (S13W10 L= 79)   355    122        0 (1233/ 783-1281/ 901)  50.2 W07-W12 S15-S09
      8 1727  789 (S27W43 L=113)   472     55        1 (1710/ 754-1742/ 825)  78.7 W41-W44 S29-S24
      9  963  684 (S16E11 L= 59)   489    137        0 ( 916/ 639-1022/ 729) -60.3 E12-E08 S19-S12
     10 1649  650 (S34W36 L=105)   511    120        0 (1601/ 621-1690/ 692)   7.1 W31-W39 S36-S31
     11  446  479 (S18E53 L= 16)   760    117        2 ( 411/ 436- 483/ 526) -90.0 E55-E50 S21-S14
     12  618  404 (S26E44 L= 26)   406     93        2 ( 591/ 364- 635/ 454)  60.3 E48-E40 S29-S22
     13  436  403 (S23E60 L=  9)   503     79        0 ( 422/ 357- 452/ 449)  41.2 E64-E56 S26-S19
  

    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