Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  980 1698 (N41E21 L= 89)   358     41        1 ( 952/1677-1010/1713)  26.6 E23-E18 N39-N42
      2  393 1643 (N24E69 L= 41)  3532    221        6 ( 321/1583- 499/1699)  34.7 E84-E59 N19-N28
      3  975 1406 (N20E11 L= 99)   553    136        2 ( 934/1354-1008/1476) -54.5 E14-E07 N17-N24
      4  375 1280 (N01E48 L= 62)   502    151        0 ( 331/1225- 434/1324)  45.0 E51-E44 S02-N05
      5 1020 1303 (N15E06 L=105)   318     50        1 ( 990/1280-1052/1323)  45.0 E07-E04 N13-N16
      6  645 1100 (S04E24 L= 86)   750    145        1 ( 585/1060- 707/1123)  35.5 E28-E20 S07-S01
      7 1858  974 (N13W63 L=173)   480     78        0 (1844/ 934-1871/1014)  68.2 W60-W64 N10-N15
      8 1056  836 (S12W06 L=116)   916    350        2 ( 931/ 733-1170/ 930)  58.0 W00-W10 S20-S04
      9  321  889 (S23E47 L= 64)   339     79        1 ( 287/ 865- 357/ 907)  29.7 E50-E43 S25-S21
     10 1524  788 (S05W36 L=147)   404     91        3 (1486/ 760-1564/ 823)  21.8 W33-W39 S06-S02
     11 1504  740 (S08W36 L=147)   277    103        2 (1472/ 712-1541/ 769)   0.0 W33-W39 S09-S06
     12 1410  692 (S13W31 L=142)   479    116        0 (1377/ 638-1456/ 734)  74.1 W30-W33 S17-S10
     13 1650  612 (S13W53 L=163)   466    137        0 (1615/ 557-1671/ 676) -76.0 W50-W54 S16-S08
  

    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