Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1523 1689 (N28W57 L= 79)  2623    334        6 (1395/1640-1685/1729) -21.8 W44-W71 N21-N31
      2 1613 1528 (N17W53 L= 75)   728    181        0 (1533/1477-1686/1566) -48.8 W48-W57 N12-N20
      3  237 1223 (N32E53 L=330)  1574    266        3 ( 147/1118- 321/1294) -29.2 E69-E44 N23-N37
      4 1801 1184 (S07W54 L= 77)  1302    198        3 (1765/1100-1831/1279)  74.7 W51-W58 S11-N00
      5 1872 1172 (S09W62 L= 84)  1055    174        1 (1836/1106-1904/1233)  66.8 W56-W66 S12-S05
      6 1707 1181 (S04W46 L= 68)   364    109        2 (1679/1136-1745/1216)  23.2 W42-W49 S06-S02
      7 1414 1130 (N00W24 L= 47)   354    127        0 (1364/1100-1470/1151)  -8.1 W20-W27 S01-N01
      8 1382 1056 (S03W21 L= 43)   206     60        2 (1355/1032-1410/1082) -71.6 W19-W22 S04-S01
      9  249 1056 (N21E52 L=331)   310     48        1 ( 223/1038- 271/1079)  11.3 E54-E49 N20-N22
     10 1117  933 (S04W03 L= 26)  1967    517        2 ( 946/ 763-1246/1069) -63.4 E04-W06 S16-N04
     11 1437  997 (S08W23 L= 45)   408    112        1 (1393/ 957-1478/1025) -11.3 W20-W25 S10-S05
     12  555  966 (N10E29 L=354)   508    152        0 ( 477/ 948- 625/ 989) -29.1 E33-E24 N07-N12
     13 1599  741 (S27W30 L= 52)  1450    274        4 (1511/ 692-1709/ 816) -20.6 W23-W39 S30-S20
     14 1397  634 (S28W13 L= 36)  1433    280        1 (1337/ 507-1435/ 770)  83.7 W10-W15 S36-S18
     15  762  529 (S19E28 L=354)  1749    367        4 ( 668/ 425- 832/ 696)  39.5 E36-E18 S24-S10
     16  698  663 (S10E27 L=355)   279     65        0 ( 675/ 631- 718/ 693) -90.0 E28-E26 S12-S07
     17  638  602 (S12E33 L=349)   404     70        0 ( 601/ 572- 682/ 628)   9.5 E35-E29 S13-S10
     18 1386  459 (S40W10 L= 32)   462     66        2 (1345/ 434-1412/ 489)  11.3 W06-W11 S41-S37
     19  543  405 (S22E49 L=333)  1701    267        1 ( 449/ 328- 637/ 473)  10.9 E64-E38 S25-S18
     20 1242  310 (S47E06 L= 17)  1307    174        4 (1168/ 271-1320/ 350)  -8.7 E12-W01 S49-S42
  

    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