Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1665 (N49W10 L=183)  2092    444        5 ( 790/1615-1175/1701) -23.4 E06-W24 N40-N53
      2 1509 1633 (N34W53 L=226)  1960    263        3 (1407/1592-1640/1660) -17.7 W41-W65 N28-N36
      3  829 1527 (N41E05 L=167)   366     99        0 ( 778/1513- 878/1537) -14.0 E09-E01 N39-N42
      4  997 1498 (N36W07 L=180)   272     64        0 ( 964/1481-1032/1514)   0.0 W04-W09 N34-N37
      5 1665 1414 (N17W53 L=226)   890    133        2 (1625/1366-1712/1465) -76.0 W50-W57 N13-N21
      6 1751 1393 (N14W61 L=234)   442     42        2 (1729/1375-1773/1413) -56.3 W58-W64 N12-N15
      7  930 1296 (N24E02 L=171)   737    374        1 ( 778/1272-1107/1333)  -8.1 E11-W10 N22-N26
      8 1239 1260 (N17W17 L=190)   427    211        1 (1142/1229-1309/1285) -11.3 W11-W21 N14-N19
      9  231 1115 (N21E59 L=114)   519     95        2 ( 218/1067- 247/1164)  71.6 E60-E56 N18-N24
     10  976 1085 (N11E02 L=171)  1077    483        3 ( 807/1025-1181/1144)  -7.4 E12-W11 N08-N14
     11  302 1073 (N18E50 L=122)   359     79        1 ( 270/1058- 345/1096)   0.0 E53-E46 N16-N19
     12 1724 1062 (S04W47 L=220)   294     30        0 (1707/1040-1742/1083) -71.6 W45-W48 S05-S02
     13 1761  954 (S11W49 L=222)  1097    181        2 (1727/ 878-1788/1048)  60.9 W45-W52 S15-S05
     14 1411  987 (S02W23 L=196)   289     36        0 (1383/ 970-1441/1005) -18.4 W21-W24 S03-N00
     15 1697  946 (S10W43 L=216)   276     61        2 (1677/ 916-1725/ 970) -45.0 W41-W45 S12-S08
     16 1143  861 (S05W05 L=177)   720    254        2 (1033/ 822-1247/ 924) -36.0 E01-W10 S08-N00
     17  519  882 (N05E34 L=139)   283     66        0 ( 491/ 853- 547/ 916) -53.1 E35-E32 N02-N06
     18  890  896 (N01E10 L=163)   283    144        0 ( 824/ 882- 959/ 910)  -7.1 E13-E05 N00-N01
     19 1874  851 (S21W63 L=236)  1930    134        6 (1824/ 783-1913/ 908) -82.9 W56-W71 S25-S16
     20 1634  873 (S13W37 L=210)   255     57        1 (1610/ 855-1658/ 901)  18.4 W35-W39 S14-S11
     21  987  743 (S10E07 L=166)   932    219        4 ( 936/ 694-1081/ 820)   0.0 E10-W00 S12-S04
     22 1744  749 (S24W47 L=220)  1487    162        4 (1695/ 681-1799/ 809)  32.0 W42-W53 S27-S20
     23 1900  763 (S28W72 L=245)  1146     97        1 (1878/ 721-1917/ 809)  45.0 W68-W76 S30-S25
     24  263  610 (S11E66 L=107)  3778    326        8 ( 214/ 490- 314/ 738)  70.6 E75-E60 S19-S02
     25 1111  655 (S17E01 L=172)   318    114        2 (1080/ 611-1129/ 703)  59.0 E02-W01 S19-S14
     26  349  627 (S10E55 L=118)  1465    261        4 ( 277/ 562- 419/ 700) -56.3 E59-E46 S14-S04
     27 1003  605 (S19E08 L=165)   219     72        2 ( 976/ 581-1049/ 623) -14.0 E09-E05 S20-S17
     28  419  514 (S18E53 L=120)   739    140        7 ( 384/ 449- 444/ 575)  52.1 E55-E47 S22-S13
     29 1228  517 (S29W05 L=178)   614    126        1 (1185/ 472-1275/ 566)  39.8 W01-W08 S31-S26
     30  467  359 (S30E60 L=113)   763    103        1 ( 432/ 318- 498/ 399)  19.3 E72-E52 S33-S26
     31  849  216 (S47E35 L=137)  1042    174        1 ( 800/ 151- 904/ 267)  23.7 E51-E26 S54-S42
  

    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