Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  646 1795 (N38E58 L=143)  1241    131        2 ( 595/1759- 696/1845)  -9.8 E78-E49 N35-N41
      2  631 1672 (N29E47 L=154)  1046    198        1 ( 543/1633- 715/1716)  45.0 E52-E42 N24-N33
      3 1460 1533 (N40W19 L=220)  1297    236        5 (1380/1445-1501/1606) -39.3 W10-W22 N34-N44
      4  928 1501 (N24E18 L=184)   434    213        0 ( 860/1418- 986/1569) -24.8 E24-E11 N19-N27
      5  342 1529 (N13E64 L=137)   633     94        0 ( 310/1491- 374/1564)  71.6 E65-E62 N10-N16
      6 1368 1409 (N29W13 L=214)  1585    500        0 (1220/1205-1457/1549) -36.0 W00-W22 N17-N35
      7  948 1339 (N14E12 L=189)   929    291        5 ( 825/1295-1074/1393)   0.0 E20-E03 N11-N17
      8 1311 1318 (N21W11 L=212)   221     92        0 (1288/1269-1326/1353) -59.0 W09-W12 N18-N23
      9 1713 1204 (N24W43 L=244)   903    150        1 (1687/1133-1743/1264) -49.4 W40-W46 N20-N28
     10 1781 1218 (N27W51 L=252)   380     66        1 (1748/1195-1815/1239)  -7.1 W46-W54 N26-N28
     11  193 1082 (S16E63 L=138)  2715    414        6 ( 115/ 915- 280/1174)  34.2 E78-E53 S27-S09
     12  353 1107 (S11E46 L=155)   326     73        1 ( 333/1075- 376/1128) -71.6 E47-E43 S13-S09
     13 1906 1016 (N18W69 L=270)   976    114        1 (1893/ 958-1920/1074) -66.8 W66-W72 N14-N21
     14  253 1018 (S19E55 L=147)   430     30        1 ( 232/ 988- 271/1041) -56.3 E56-E52 S20-S17
     15  382  951 (S20E41 L=160)   774    196        2 ( 318/ 890- 429/1033)  59.0 E46-E38 S24-S14
     16 1301  783 (S10W22 L=223)   306     79        2 (1272/ 750-1327/ 817) -45.0 W19-W23 S11-S07
     17  410  650 (S39E38 L=163)   872    107        3 ( 376/ 611- 451/ 703) -39.8 E41-E33 S41-S35
     18 1181  681 (S19W18 L=219)   379    127        0 (1117/ 666-1237/ 701)  23.2 W13-W20 S20-S16
     19  297  659 (S41E52 L=149)  1275    129        1 ( 236/ 634- 353/ 698)  11.3 E64-E44 S44-S37
     20  597  591 (S39E20 L=181)  1278    216        1 ( 514/ 553- 680/ 638)   3.8 E27-E12 S42-S35
     21 1635  483 (S19W60 L=261)   404     49        0 (1619/ 458-1650/ 511) -63.4 W57-W62 S21-S17
     22  536  464 (S50E26 L=175)   337     54        1 ( 509/ 447- 569/ 486)   9.5 E28-E22 S51-S48
     23 1240  345 (S39W37 L=238)   494     83        1 (1219/ 314-1272/ 387) -26.6 W32-W40 S41-S36
  

    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