Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1376 1540 (N25W34 L=208)  1315    258        3 (1263/1496-1468/1574) -15.9 W26-W40 N21-N27
      2 1610 1522 (N19W50 L=225)   815    194        1 (1546/1488-1678/1549)   0.0 W44-W57 N17-N20
      3 1619 1379 (N11W45 L=220)   267     75        0 (1587/1340-1645/1405) -68.2 W43-W46 N07-N12
      4  244 1373 (N37E52 L=122)   715    190        0 ( 191/1355- 304/1388)  -4.8 E58-E46 N35-N38
      5  921 1369 (N24W00 L=175)   195     54        0 ( 889/1357- 948/1382)   0.0 E01-W02 N22-N24
      6 1108 1301 (N16W10 L=184)  1040    180        2 (1016/1231-1198/1359) -57.5 W05-W14 N10-N21
      7  434 1247 (N25E34 L=140)  1422    371        2 ( 312/1167- 563/1346) -39.8 E44-E25 N18-N34
      8 1925 1057 (S14W67 L=241)  1984    268        4 (1897/ 990-1961/1141)  48.8 W61-W74 S18-S09
      9  319 1032 (N15E46 L=129)   443    113        1 ( 301/ 969- 334/1091)  81.9 E47-E43 N10-N17
     10  387 1054 (N15E40 L=135)   314     86        1 ( 355/1025- 420/1089) -38.7 E42-E37 N12-N17
     11 1681 1066 (S08W42 L=216)   472    123        0 (1639/1033-1726/1088) -26.6 W38-W45 S10-S06
     12 1808  996 (S15W52 L=226)  1330    144        4 (1766/ 916-1842/1077)  66.0 W47-W56 S19-S10
     13  159 1020 (N16E62 L=112)   606    124        0 ( 131/ 981- 175/1063) -63.4 E64-E60 N13-N19
     14 1700  975 (S14W42 L=216)   357     90        0 (1659/ 927-1722/1013)  38.7 W38-W44 S16-S11
     15  593  874 (N01E28 L=146)   345    134        0 ( 580/ 796- 604/ 931)  74.1 E29-E26 S03-N04
     16  946  831 (S08E08 L=166)   284    131        2 ( 870/ 802-1012/ 848) -26.6 E12-E04 S10-S06
     17  385  690 (S06E48 L=126)   745    184        1 ( 319/ 631- 433/ 730) -35.5 E54-E45 S10-S03
     18  573  675 (S10E35 L=140)   295     69        1 ( 545/ 653- 599/ 708)  45.0 E36-E32 S11-S08
     19 1521  612 (S33W25 L=200)  1231    248        2 (1398/ 533-1593/ 708)  25.0 W15-W31 S36-S27
     20  883  556 (S23E18 L=156)   771    310        1 ( 724/ 508-1003/ 619)   2.9 E29-E09 S24-S21
     21 1028  483 (S31E11 L=163)  1268    341        0 ( 905/ 370-1162/ 610)  23.5 E23-W00 S36-S25
     22  485  503 (S19E47 L=127)   447     87        1 ( 457/ 481- 528/ 533) -36.9 E49-E44 S20-S16
     23  449  463 (S21E52 L=122)   442    106        3 ( 422/ 416- 480/ 505)  80.5 E53-E50 S24-S18
  

    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