Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1222 1774 (N51W41 L=174)  1325    201        2 (1135/1734-1311/1803)  -2.5 W29-W52 N48-N52
      2 1423 1649 (N37W47 L=180)   336     26        0 (1403/1624-1443/1668)  21.8 W44-W49 N35-N37
      3 1704 1448 (N18W59 L=192)   921    157        2 (1628/1416-1758/1480) -18.4 W51-W65 N15-N20
      4 1751 1347 (N11W58 L=192)  1434    230        3 (1652/1290-1824/1411)  -2.6 W47-W69 N08-N13
      5 1499 1240 (N10W34 L=167)   689    204        0 (1412/1207-1575/1279) -14.0 W28-W40 N08-N13
      6 1889 1059 (S09W66 L=199)  4777    348       11 (1815/ 972-1947/1186)  26.6 W55-W80 S14-S03
      7  912 1091 (N12E06 L=127)   411    113        2 ( 884/1030- 940/1140)  74.1 E07-E03 N08-N15
      8  442 1075 (N18E38 L= 95)   510    142        1 ( 420/1012- 479/1133) -63.4 E39-E35 N13-N21
      9 1517 1073 (N01W31 L=164)   411    144        0 (1445/1059-1580/1084)  -6.3 W26-W35 N00-N01
     10 1663  894 (S13W40 L=173)  1419    433        5 (1540/ 733-1724/1052)  43.3 W28-W46 S20-S04
     11 1565  906 (S10W32 L=165)   803    128        5 (1514/ 869-1615/ 945)   0.0 W28-W36 S13-S08
     12  928  702 (S11E11 L=122)   535    111        1 ( 904/ 655- 962/ 754)  45.0 E13-E08 S14-S08
     13  490  688 (S06E40 L= 93)   859    167        3 ( 423/ 643- 537/ 739) -40.6 E44-E37 S09-S02
     14 1734  634 (S33W47 L=180)  1510    137        2 (1687/ 579-1772/ 687)  40.6 W42-W51 S35-S29
     15  495  608 (S11E42 L= 91)   321     84        1 ( 462/ 593- 533/ 626)   0.0 E45-E39 S12-S10
     16  654  584 (S15E31 L=102)   491    108        2 ( 619/ 540- 688/ 623)  51.3 E34-E28 S17-S12
     17  733  471 (S23E30 L=103)   443     95        1 ( 713/ 424- 755/ 515)  45.0 E33-E26 S26-S20
     18  486  385 (S27E55 L= 78)  1116     81        3 ( 442/ 348- 524/ 428) -90.0 E58-E50 S29-S23
     19  871  386 (S32E23 L=110)   720    122        0 ( 824/ 355- 929/ 414)  16.7 E28-E18 S33-S30
     20 1220  258 (S51E01 L=132)   580     81        1 (1187/ 234-1263/ 278)  14.0 E05-W03 S52-S48
  

    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