Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  948 1768 (N55E09 L=140)   468     92        1 ( 912/1736- 995/1784)   6.3 E13-E04 N52-N57
      2  478 1572 (N37E48 L=102)  2529    337        5 ( 347/1482- 620/1644) -10.1 E75-E30 N31-N42
      3 1650 1563 (N37W56 L=206)   674     75        1 (1620/1527-1679/1598)  32.0 W50-W60 N35-N40
      4  266 1485 (N30E70 L= 80)  1244    138        1 ( 238/1434- 300/1529) -14.6 E84-E60 N26-N32
      5 1735 1400 (N26W56 L=206)  1276    237        5 (1684/1287-1777/1512)  78.7 W53-W59 N18-N33
      6  972 1438 (N29E04 L=146)   857    219        1 ( 863/1395-1067/1470)  -8.7 E11-W02 N26-N31
      7  862 1116 (N09E10 L=140)   239     82        0 ( 835/1080- 886/1145) -63.4 E11-E08 N06-N10
      8  311  955 (S03E49 L=101)   411     86        0 ( 268/ 926- 345/ 985)  29.7 E53-E46 S04-N00
      9 1780  891 (S06W54 L=204)   400     93        0 (1769/ 843-1791/ 935) -71.6 W52-W55 S08-S02
     10  784  753 (S14E15 L=135)   421    125        1 ( 769/ 690- 804/ 819) -82.9 E15-E13 S17-S09
     11  867  761 (S13E10 L=140)   334    104        2 ( 811/ 740- 907/ 779)  -9.5 E13-E07 S14-S11
     12  702  626 (S22E21 L=129)   307    120        0 ( 647/ 615- 764/ 638)   6.3 E25-E16 S22-S21
     13 1443  548 (S27W30 L=180)   991    167        0 (1401/ 506-1512/ 611) -35.0 W26-W36 S30-S22
     14  518  421 (S38E42 L=108)  1042    185        0 ( 460/ 370- 566/ 512)  31.0 E53-E33 S42-S30
     15  831  211 (S57E21 L=129)   443     28        1 ( 811/ 194- 852/ 231)  18.4 E24-E18 S59-S54
  

    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