Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  729 1772 (N30E48 L=309)   539     92        2 ( 710/1720- 754/1811) -41.2 E52-E44 N26-N33
      2 1214 1700 (N41E11 L=345)   748    131        1 (1170/1659-1251/1750) -29.1 E16-E07 N38-N44
      3  763 1507 (N14E30 L=327)   770    272        1 ( 733/1387- 788/1630) -56.3 E34-E23 N07-N22
      4  877 1543 (N19E24 L=332)   748    183        3 ( 839/1451- 902/1627) -42.0 E30-E20 N14-N23
      5  561 1459 (N06E41 L=316)   378    102        1 ( 539/1407- 595/1503) -81.9 E41-E39 N02-N09
      6  312 1453 (N01E62 L=295)   622    103        1 ( 262/1428- 361/1474)  18.4 E66-E57 S01-N02
      7 1673 1382 (N36W33 L= 29)  1295    169        3 (1640/1305-1701/1460) -63.4 W29-W36 N30-N40
      8  988 1296 (N08E10 L=347)  1272    299        3 ( 888/1194-1097/1386)  68.2 E12-E05 N00-N15
      9  329 1194 (S14E50 L=307)   857    197        0 ( 260/1156- 409/1229)   3.8 E56-E41 S16-S12
     10 1216 1064 (N02W09 L=  6)  1105    249        1 (1131/1027-1298/1119)  24.0 W04-W13 N00-N06
     11  798  993 (S14E12 L=345)   549    140        1 ( 726/ 955- 862/1036)  53.1 E15-E08 S17-S09
     12  426  991 (S24E37 L=320)   310    119        1 ( 390/ 939- 470/1030)  66.8 E39-E34 S27-S20
     13 1672  926 (N08W42 L= 38)   583    125        1 (1656/ 856-1686/ 984) -45.0 W38-W44 N04-N11
     14  672  952 (S19E18 L=338)   306     91        1 ( 632/ 929- 707/ 976)   0.0 E21-E15 S20-S18
     15  299  812 (S38E47 L=309)  1439    256        1 ( 195/ 761- 433/ 862)  20.1 E63-E33 S42-S31
     16 1114  618 (S26W18 L= 14)  2030    567        6 ( 885/ 535-1362/ 724)  46.3 W06-W28 S37-S12
     17 1634  547 (S13W56 L= 52)   680    155        2 (1563/ 509-1701/ 574)  12.1 W49-W63 S14-S10
     18  410  528 (S55E37 L=320)  1003    109        3 ( 352/ 497- 461/ 556)   3.6 E45-E29 S56-S51
     19 1392  277 (S35W60 L= 56)  1707    168        0 (1328/ 216-1460/ 336) -65.6 W56-W66 S40-S29
     20 1159  244 (S47W47 L= 43)   708     87        1 (1131/ 219-1197/ 290)  -9.5 W40-W52 S49-S43
  

    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