Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1231 1782 (N51W43 L=173)  1204    179        1 (1164/1739-1320/1811)  -2.7 W32-W54 N48-N53
      2 1470 1648 (N35W51 L=181)   574    100        2 (1432/1624-1523/1673) -33.7 W47-W54 N32-N37
      3 1698 1459 (N18W59 L=189)   468    108        0 (1645/1435-1740/1472) -26.6 W53-W62 N15-N20
      4 1770 1356 (N11W61 L=191)  1361    186        3 (1688/1304-1820/1423)   8.5 W50-W70 N08-N13
      5 1540 1253 (N10W37 L=167)   861    203        0 (1446/1217-1614/1291) -14.0 W31-W43 N08-N13
      6  957 1106 (N12E03 L=128)   327    117        2 ( 932/1045- 978/1155)  63.4 E05-W00 N09-N15
      7  495 1044 (N15E34 L= 96)   613    237        0 ( 455/ 976- 561/1146) -61.4 E36-E29 N10-N21
      8 1893 1051 (S10W66 L=196)  2797    213        7 (1840/ 979-1944/1113)  24.8 W58-W78 S14-S06
      9 1727  973 (S10W46 L=176)  1214    235        4 (1693/ 845-1759/1072)  61.7 W42-W50 S17-S04
     10 1618  929 (S10W36 L=167)  1126    196        6 (1547/ 882-1680/ 982)  10.3 W30-W41 S13-S08
     11 1624  786 (S19W35 L=166)   373    113        2 (1582/ 756-1684/ 811)   0.0 W32-W40 S20-S17
     12  980  715 (S11E08 L=123)   573    179        0 ( 934/ 663-1016/ 795)  45.0 E11-E04 S14-S06
     13  592  657 (S09E34 L= 97)  1297    329        7 ( 457/ 586- 716/ 742) -38.7 E41-E26 S15-S02
     14  899  703 (S11E13 L=117)   226     36        2 ( 880/ 677- 923/ 725) -90.0 E13-E11 S12-S09
     15  767  472 (S24E27 L=103)   493    122        1 ( 745/ 409- 792/ 520)  53.1 E30-E24 S28-S20
     16  507  386 (S27E53 L= 77)  1144     95        1 ( 471/ 344- 549/ 434)  81.9 E56-E48 S30-S22
     17  907  391 (S32E21 L=110)   845    145        1 ( 847/ 360- 977/ 415)   5.2 E26-E14 S33-S29
     18 1325  342 (S45W09 L=140)   375     50        0 (1304/ 318-1345/ 365)  36.9 W07-W11 S47-S43
     19 1225  261 (S51E01 L=129)   446     44        2 (1202/ 239-1256/ 281) -36.9 E03-W02 S52-S48
     20 1160  234 (S52E08 L=123)   376     39        1 (1139/ 220-1189/ 257) -26.6 E10-E05 S53-S48
  

    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