Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1356 1677 (N33W45 L=197)   793    274        1 (1240/1645-1455/1710) -16.4 W35-W53 N29-N35
      2 1644 1644 (N20W65 L=217)  2152    438        3 (1572/1617-1728/1672) -25.2 W58-W76 N16-N24
      3 1259 1530 (N28W30 L=182)   638    169        0 (1213/1446-1306/1594)  79.7 W28-W31 N21-N32
      4 1676 1492 (N12W58 L=210)   415     70        0 (1647/1457-1707/1524) -78.7 W56-W59 N09-N14
      5 1641 1441 (N11W52 L=204)   414    120        0 (1624/1382-1661/1499)  56.3 W49-W54 N07-N13
      6  768 1264 (N27E09 L=143)   918    236        3 ( 660/1180- 855/1328) -53.1 E14-E04 N19-N33
      7 1899 1153 (S14W65 L=217)  1000    163        1 (1862/1095-1930/1198) -74.1 W60-W67 S17-S10
      8  242  930 (N19E55 L= 97)   444     77        0 ( 231/ 889- 255/ 979)  63.4 E56-E53 N16-N22
      9 1820  876 (S26W48 L=200)  1769    262        3 (1782/ 750-1850/ 974)  74.1 W43-W53 S34-S19
     10  193  817 (N13E64 L= 88)  1431    355        3 ( 117/ 778- 247/ 858)   0.0 E75-E56 N10-N15
     11 1252  703 (S18W04 L=156)   684    194        0 (1171/ 614-1312/ 799)  30.3 E02-W10 S20-S13
     12  767  687 (S06E24 L=128)  1004    170        2 ( 720/ 607- 821/ 768) -90.0 E25-E21 S11-N00
     13 1456  607 (S30W15 L=167)   952    304        3 (1364/ 524-1555/ 757)  26.6 W06-W24 S33-S23
     14 1145  388 (S35E12 L=140)  1004    176        4 (1089/ 334-1186/ 445)  16.7 E18-E08 S37-S30
     15  572  331 (S23E53 L= 99)   614    136        1 ( 555/ 287- 587/ 373)  45.0 E55-E48 S26-S20
  

    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