Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1163 1666 (N47W16 L=181)  1065    231        1 (1075/1641-1257/1690) -14.9 W08-W24 N44-N48
      2  857 1651 (N47E12 L=154)   259     53        3 ( 831/1634- 883/1672) -21.8 E14-E09 N45-N48
      3 1527 1649 (N42W51 L=216)   440     65        2 (1492/1625-1559/1668) -31.0 W47-W54 N40-N43
      4  398 1566 (N41E56 L=109)   398     70        1 ( 366/1547- 445/1575)   5.2 E61-E50 N39-N41
      5 1395 1510 (N33W31 L=196)   302     59        2 (1368/1480-1422/1534) -76.0 W28-W32 N31-N35
      6  427 1367 (N27E44 L=122)   678    252        1 ( 362/1275- 463/1451)  67.4 E47-E40 N20-N32
      7 1450 1276 (N18W30 L=195)   602    155        0 (1389/1219-1499/1337) -53.1 W26-W32 N13-N21
      8  738 1293 (N22E18 L=147)   660    229        4 ( 658/1245- 798/1331)   0.0 E23-E13 N18-N24
      9 1343  904 (S04W19 L=185)   523    184        1 (1280/ 829-1382/ 952) -53.1 W15-W21 S09-S01
     10 1685  888 (S08W44 L=210)   360     47        0 (1660/ 864-1710/ 908) -36.9 W42-W46 S09-S06
     11  242  757 (S12E60 L=105)  1574    334        5 ( 187/ 645- 332/ 889) -61.9 E68-E53 S18-S03
     12 1754  805 (S14W52 L=217)  1351    193        4 (1702/ 735-1811/ 872)  41.6 W47-W57 S17-S09
     13  163  801 (S09E71 L= 95)  1296    134        2 ( 136/ 747- 184/ 866)  69.4 E77-E66 S12-S04
     14  417  765 (S11E42 L=123)   918    195        2 ( 381/ 678- 462/ 858)  56.3 E47-E37 S16-S04
     15 1116  771 (S12W05 L=170)   200     46        3 (1093/ 749-1142/ 790) -33.7 W03-W06 S13-S10
     16 1026  692 (S16E01 L=164)   364    118        1 ( 986/ 651-1069/ 725)  36.9 E03-W01 S18-S14
     17 1348  606 (S24W20 L=186)  1339    283        3 (1254/ 501-1455/ 687)  40.2 W14-W27 S30-S18
     18 1689  601 (S27W50 L=215)  1040    200        0 (1637/ 535-1751/ 675)  48.4 W45-W54 S31-S22
     19 1078  614 (S22W02 L=167)   572    124        3 (1045/ 559-1124/ 662)  60.3 W00-W04 S25-S18
     20  536  307 (S45E53 L=113)   484     34        1 ( 513/ 288- 558/ 329)  76.0 E55-E49 S46-S42
     21 1147  241 (S53W08 L=173)   456     64        1 (1129/ 214-1163/ 271)  81.9 W05-W09 S56-S49
     22 1258  203 (S59W22 L=188)   691     53        0 (1234/ 172-1276/ 242) -77.5 W20-W26 S63-S54
     23 1319  192 (S61W33 L=199)   940     78        1 (1301/ 150-1332/ 236) -31.3 W27-W50 S69-S55
  

    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