Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  690 1743 (N30E46 L= 11)  1260    244        3 ( 659/1658- 715/1808) -42.5 E52-E40 N24-N35
      2  904 1614 (N27E25 L= 32)  1639    405        4 ( 848/1482- 979/1764) -37.3 E36-E15 N20-N36
      3  550 1488 (N11E42 L= 15)   627    181        3 ( 472/1443- 619/1541)  52.1 E46-E38 N06-N15
      4  767 1382 (N10E24 L= 33)   814    197        1 ( 717/1302- 802/1483) -76.0 E27-E22 N03-N15
      5  688 1215 (S02E24 L= 33)   232     77        1 ( 658/1183- 724/1250) -11.3 E26-E21 S03-N00
      6 1695 1071 (N17W41 L= 98)  1786    259        2 (1630/ 949-1726/1185) -47.5 W33-W45 N10-N22
      7  210 1018 (S24E56 L=  1)  1102    217        0 ( 151/ 959- 249/1103)  55.0 E62-E53 S28-S18
      8  489 1051 (S16E33 L= 24)   727    268        1 ( 382/1008- 605/1096)  31.0 E40-E25 S20-S11
      9  538  889 (S24E26 L= 31)   219     75        0 ( 506/ 872- 578/ 909)   0.0 E29-E23 S24-S23
     10 1100  796 (S15W10 L= 68)   334    157        1 (1076/ 737-1154/ 854) -82.9 W08-W12 S18-S10
     11  261  809 (S36E49 L=  8)   373     48        1 ( 240/ 789- 281/ 830)  36.9 E51-E47 S37-S34
     12  390  717 (S39E36 L= 21)  2180    390        2 ( 275/ 672- 535/ 797)   2.4 E47-E23 S42-S35
     13  925  725 (S24W02 L= 60)   545    207        1 ( 817/ 709-1026/ 738)  22.6 E04-W08 S26-S21
     14 1409  476 (S24W42 L= 99)  1559    399        0 (1223/ 407-1590/ 583)  52.7 W32-W49 S33-S12
  

    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