Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  639 1403 (N38E14 L=163)   601    170        1 ( 575/1323- 702/1459)  22.6 E20-E08 N34-N40
      2  889 1373 (N29W02 L=179)   237     40        2 ( 870/1344- 909/1402)  76.0 W00-W03 N26-N30
      3 1050 1324 (N21W10 L=187)   636    153        1 ( 973/1270-1142/1360) -52.1 W05-W13 N16-N25
      4  221 1062 (N27E54 L=123)   420    133        1 ( 184/1040- 264/1081)   0.0 E57-E49 N25-N27
      5  379  991 (N19E41 L=136)  1150    313        4 ( 299/ 951- 509/1056) -35.5 E46-E32 N14-N24
      6  958  867 (S01E08 L=169)   663    154        3 ( 875/ 830-1022/ 899) -26.6 E12-E04 S04-N01
      7 1817  767 (S34W47 L=224)  1153    149        3 (1776/ 716-1841/ 852)  63.4 W42-W50 S36-S28
      8  946  782 (S06E11 L=166)   184    112        1 ( 886/ 750- 980/ 801) -38.7 E14-E09 S08-S04
      9  240  751 (N08E61 L=116)   394     61        1 ( 221/ 719- 254/ 780)  63.4 E62-E59 N06-N10
     10 1126  701 (S15E03 L=174)   582    109        2 (1075/ 654-1181/ 739)   0.0 E06-W00 S17-S12
     11 1713  667 (S36W36 L=213)   396    130        1 (1675/ 647-1747/ 691) -15.9 W32-W39 S38-S33
     12  865  568 (S16E22 L=155)   508    175        2 ( 820/ 512- 926/ 654) -90.0 E22-E19 S20-S10
     13  603  452 (S16E43 L=134)   690    122        2 ( 539/ 415- 665/ 483) -40.6 E46-E39 S19-S13
     14  417  374 (S18E64 L=113)   893    170        2 ( 382/ 351- 449/ 393)   0.0 E68-E59 S19-S16
  

    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