Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  830 1625 (N26E26 L=103)  1653    393        5 ( 757/1506- 962/1788) -31.6 E39-E13 N18-N37
      2  489 1737 (N29E62 L= 67)   942    110        0 ( 456/1694- 525/1783) -15.9 E74-E53 N26-N33
      3 1197 1624 (N34E02 L=127)   270     52        1 (1175/1600-1227/1649) -18.4 E03-W00 N32-N35
      4  649 1613 (N22E38 L= 91)   412    112        1 ( 597/1575- 690/1647)  63.4 E40-E35 N19-N25
      5  681 1449 (N12E29 L= 99)   813    306        0 ( 649/1315- 705/1592) -71.6 E33-E26 N03-N21
      6 1455 1438 (N27W19 L=148)   524    109        3 (1424/1392-1494/1487)  76.0 W16-W21 N23-N31
      7 1079 1410 (N17E04 L=124)   339     69        1 (1045/1392-1117/1433)   0.0 E06-E01 N15-N17
      8 1608 1386 (N28W31 L=160)   432    118        0 (1579/1326-1635/1431) -56.3 W28-W34 N24-N30
      9  999 1410 (N15E09 L=119)   222     58        0 ( 970/1386-1024/1430) -18.4 E10-E07 N14-N16
     10 1929 1017 (N14W69 L=197)  1554    221        2 (1913/ 920-1948/1121) -57.5 W66-W75 N09-N20
     11  948  920 (S14E03 L=126)   559    110        3 ( 915/ 860- 981/ 960) -71.6 E04-W00 S17-S11
     12 1028  924 (S13W02 L=130)   222     84        1 ( 986/ 907-1076/ 940)  36.9 W00-W04 S14-S11
     13  595  825 (S26E24 L=105)   471    165        0 ( 525/ 777- 657/ 863) -10.3 E29-E18 S28-S24
     14  532  703 (S35E28 L=100)   344     72        0 ( 503/ 685- 572/ 732)  -9.5 E30-E24 S36-S33
     15 1715  647 (S13W56 L=185)   345     62        0 (1697/ 624-1731/ 677) -71.6 W54-W58 S13-S10
     16 1384  477 (S31W39 L=167)  1892    434        5 (1277/ 340-1463/ 587) -39.5 W27-W47 S39-S25
     17 1202  540 (S31W23 L=151)   329    123        0 (1146/ 527-1265/ 553)  12.5 W18-W27 S32-S29
     18  708  494 (S46E12 L=117)   885    161        2 ( 644/ 468- 797/ 533)  17.1 E17-E04 S47-S42
     19 1720  468 (S22W70 L=199)   913     83        3 (1693/ 440-1743/ 513) -68.2 W65-W75 S23-S18
     20  769  233 (S68W01 L=129)   663     99        2 ( 726/ 208- 822/ 268)   0.0 E06-W09 S69-S64
  

    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