Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1257 1708 (N46W36 L=234)   690     96        1 (1222/1672-1303/1736) -71.6 W32-W39 N42-N48
      2  740 1602 (N48E13 L=185)  1891    437        4 ( 557/1521- 933/1650) -20.4 E33-W02 N38-N53
      3 1222 1541 (N35W24 L=222)  1740    400        4 (1025/1493-1386/1567)  -8.1 W08-W36 N30-N38
      4  694 1419 (N35E17 L=181)   321     73        0 ( 654/1404- 737/1433) -18.4 E20-E13 N34-N36
      5  870 1283 (N24E06 L=192)   248     63        1 ( 840/1260- 906/1305) -36.9 E07-E03 N22-N25
      6  851 1154 (N16E09 L=189)   316    137        0 ( 787/1107- 891/1184) -39.8 E12-E06 N13-N19
      7  118 1035 (N15E77 L=122)  1395    102        3 (  94/ 989- 141/1080) -32.0 E85-E71 N12-N17
      8  697 1028 (N11E20 L=178)   558    140        0 ( 646/ 987- 774/1061)  12.5 E23-E14 N08-N12
      9 1458  717 (S19W23 L=222)  2479    447        9 (1362/ 583-1540/ 929)  84.8 W15-W29 S28-S06
     10 1332  830 (S10W16 L=214)   768    236        5 (1281/ 735-1373/ 922)  65.6 W11-W18 S15-S04
     11  987  900 (S01E04 L=194)   268     57        0 ( 952/ 882-1017/ 921) -14.0 E06-E02 S01-N00
     12  228  844 (N04E61 L=137)  1476    226        5 ( 168/ 762- 270/ 917) -52.1 E67-E56 S01-N08
     13  565  819 (S00E32 L=166)   524    181        1 ( 485/ 801- 646/ 835) -15.3 E37-E26 S02-N01
     14 1277  783 (S12W12 L=210)   248     75        0 (1246/ 766-1309/ 805)  11.3 W09-W14 S12-S11
     15 1698  768 (S21W43 L=241)   389     55        0 (1664/ 751-1726/ 786)   0.0 W39-W45 S22-S20
     16  798  740 (S08E18 L=180)   213     55        1 ( 766/ 722- 828/ 757) -33.7 E19-E16 S09-S06
     17 1717  683 (S28W46 L=244)   684    141        1 (1674/ 624-1754/ 737)  45.0 W41-W49 S31-S24
     18  622  659 (S11E31 L=167)   328     85        1 ( 587/ 632- 668/ 683)  15.9 E34-E27 S12-S09
     19  677  564 (S18E30 L=168)   613    241        0 ( 590/ 535- 745/ 607) -10.3 E35-E24 S19-S14
     20  866  427 (S30E21 L=177)   669    119        2 ( 828/ 382- 897/ 480)  45.0 E25-E17 S32-S25
     21  966  162 (S56E30 L=168)   523     38        0 ( 935/ 148- 995/ 175) -18.4 E33-E26 S58-S54
  

    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