Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  889 1738 (N37E24 L=294)   295     37        0 ( 869/1716- 915/1754)  56.3 E25-E21 N35-N38
      2  680 1636 (N26E34 L=283)   351     47        1 ( 665/1610- 701/1669) -63.4 E35-E32 N24-N28
      3  402 1485 (N13E50 L=268)   472     90        1 ( 361/1447- 442/1516)  45.0 E52-E46 N10-N15
      4  219 1392 (N06E65 L=252)  1300    155        1 ( 188/1321- 253/1464)  83.7 E68-E62 N02-N11
      5 1324 1351 (N18W13 L=331)   401    173        1 (1247/1333-1416/1370)  11.3 W08-W18 N16-N19
      6 1651 1245 (N17W37 L=354)  2257    361        9 (1527/1137-1740/1367) -25.2 W26-W44 N11-N22
      7  343 1338 (N04E50 L=268)   273     70        0 ( 303/1325- 377/1354)  18.4 E53-E47 N02-N04
      8  486 1308 (N03E38 L=280)   658     91        2 ( 452/1262- 522/1350) -39.8 E41-E35 N00-N05
      9  357 1285 (N01E47 L=270)   321     91        1 ( 317/1261- 395/1308)  -7.1 E51-E43 N00-N01
     10 1600 1169 (N12W33 L=351)   717    139        4 (1563/1108-1630/1226)  82.9 W30-W35 N07-N15
     11 1429 1165 (N08W22 L=339)   441    132        2 (1386/1113-1472/1218) -39.8 W18-W24 N05-N10
     12 1670 1031 (N05W40 L=358)   243     86        1 (1625/1018-1703/1051)  18.4 W36-W42 N03-N06
     13  443  870 (S23E36 L=282)   341    110        0 ( 424/ 814- 468/ 924)  66.8 E37-E34 S26-S19
     14 1411  876 (S09W25 L=343)   438    105        0 (1356/ 857-1462/ 895)   9.5 W22-W28 S10-S07
     15 1835  837 (S02W59 L= 17)   526     81        1 (1800/ 812-1868/ 862)  38.7 W55-W63 S04-N00
     16  620  795 (S25E22 L=295)  1302    384        4 ( 471/ 726- 813/ 840)  16.3 E33-E09 S31-S21
     17 1403  601 (S24W32 L=350)  3631    859        4 (1139/ 519-1728/ 744)   4.7 W12-W61 S29-S14
     18 1776  675 (S12W59 L= 17)   382     45        1 (1752/ 649-1796/ 702) -56.3 W56-W61 S13-S10
     19  612  631 (S36E22 L=295)   301     96        1 ( 567/ 616- 661/ 647)  14.0 E26-E18 S37-S34
     20  473  524 (S45E37 L=281)   620    134        0 ( 425/ 502- 538/ 549)   0.0 E42-E30 S47-S43
     21  675  501 (S44E17 L=300)   474     88        1 ( 629/ 479- 721/ 525)  -7.1 E21-E13 S45-S42
     22  847  475 (S43E03 L=315)   234     63        1 ( 821/ 457- 885/ 497) -26.6 E04-W00 S43-S41
     23 1061  420 (S43W15 L=333)   307    103        1 (1027/ 404-1120/ 448)  -6.3 W11-W20 S43-S41
  

    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