Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  959 1792 (N38E32 L=279)   341     81        1 ( 914/1769-1001/1814)   0.0 E36-E27 N37-N39
      2 1159 1694 (N37E13 L=298)   481    108        1 (1107/1674-1212/1720)   0.0 E17-E09 N35-N39
      3  451 1543 (N09E52 L=260)   521     95        0 ( 426/1502- 479/1582) -24.0 E56-E47 N06-N10
      4 1626 1545 (N44W27 L=338)   340     42        0 (1600/1526-1647/1564)  21.8 W24-W29 N42-N46
      5 1647 1460 (N39W29 L=341)   626    132        0 (1614/1397-1668/1523) -58.0 W25-W31 N34-N42
      6 1803 1132 (N23W48 L=359)   662    164        1 (1749/1063-1844/1197) -24.4 W41-W53 N20-N25
      7  507 1126 (S14E33 L=278)   229     58        1 ( 487/1101- 521/1161)  90.0 E34-E32 S15-S11
      8  594 1049 (S16E25 L=286)   247     84        2 ( 564/1007- 618/1081) -36.9 E27-E23 S17-S14
      9  845 1011 (S12E10 L=302)   207    101        0 ( 815/ 971- 870/1056) -31.0 E12-E07 S13-S10
     10 1688  971 (N10W41 L=352)   256     60        1 (1674/ 947-1709/ 995) -71.6 W39-W42 N08-N11
     11 1744  968 (N12W46 L=357)   359     23        1 (1720/ 951-1769/ 992)  26.6 W43-W48 N10-N13
     12  791  906 (S19E10 L=302)   303    108        2 ( 739/ 884- 839/ 929)   8.1 E13-E06 S19-S17
     13 1654  876 (N04W41 L=353)   288     99        0 (1610/ 864-1704/ 899)  33.7 W38-W44 N02-N06
     14  167  711 (S46E72 L=239)   717     76        1 ( 139/ 685- 204/ 736)   5.0 E86-E63 S47-S44
     15 1281  708 (S16W24 L=335)   307     87        0 (1240/ 692-1323/ 725)  31.0 W21-W26 S17-S14
     16  477  580 (S48E27 L=284)   340     62        1 ( 452/ 553- 505/ 607) -11.3 E29-E24 S49-S45
     17 1697  485 (S14W65 L= 17)   937    126        2 (1680/ 436-1734/ 542) -29.1 W59-W73 S16-S11
     18 1307  430 (S30W39 L=350)   471    129        1 (1247/ 386-1366/ 462)   0.0 W33-W45 S31-S28
     19 1519  380 (S26W58 L=  9)   597     91        1 (1476/ 343-1559/ 406)   0.0 W52-W63 S26-S24
     20  945  246 (S56W31 L=342)   471     63        1 ( 926/ 211- 964/ 288) -24.4 W25-W36 S58-S52
  

    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