Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1708 (N33E22 L=312)   715    140        1 ( 925/1651-1031/1750) -21.8 E26-E16 N30-N35
      2 1009 1476 (N18E12 L=323)   278     82        0 ( 972/1460-1063/1492)   0.0 E14-E08 N16-N18
      3 1814 1237 (N27W49 L= 23)   345     53        0 (1787/1211-1833/1257) -11.3 W45-W51 N25-N27
      4 1170 1150 (N03W05 L=340)   632    256        0 (1037/1123-1281/1183)  32.5 E02-W10 N00-N07
      5 1741 1126 (N17W43 L= 17)   288     50        0 (1719/1105-1760/1158)  63.4 W40-W43 N15-N19
      6  460 1128 (S13E37 L=298)   255     28        0 ( 443/1100- 474/1153) -71.6 E38-E35 S14-S11
      7  372  946 (S25E41 L=294)   573    145        1 ( 335/ 897- 413/1000) -56.3 E44-E36 S27-S21
      8 1930  932 (N13W68 L= 43)   782    118        0 (1917/ 872-1943/ 989) -63.4 W65-W71 N10-N16
      9 1687  835 (S00W45 L= 20)   586    108        1 (1632/ 815-1756/ 858)  11.3 W41-W51 S02-N01
     10  255  666 (S45E57 L=278)  1330    196        1 ( 189/ 622- 334/ 716)  -8.1 E68-E46 S46-S41
     11 1609  652 (S12W46 L= 21)   252     20        0 (1588/ 634-1630/ 672)  45.0 W45-W48 S13-S10
     12 1318  564 (S25W31 L=  5)   543     90        2 (1268/ 548-1378/ 590)  14.0 W27-W35 S26-S23
     13 1529  427 (S26W54 L= 28)  2115    344        2 (1380/ 368-1686/ 483)  43.3 W46-W64 S34-S18
  

    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