Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  811 1679 (N48W03 L=220)   281     53        0 ( 782/1659- 837/1697) -36.9 W00-W04 N46-N50
      2 1584 1582 (N21W53 L=271)  1554    213        7 (1516/1497-1629/1679)  45.0 W45-W61 N16-N27
      3  612 1632 (N51E16 L=201)   540     82        0 ( 569/1603- 643/1666)  20.6 E20-E12 N48-N53
      4 1284 1613 (N31W33 L=250)  2209    432        3 (1088/1551-1463/1652) -29.5 W19-W43 N22-N35
      5 1640 1606 (N21W60 L=278)   448     50        2 (1606/1587-1666/1624) -21.8 W57-W64 N20-N22
      6 1697 1545 (N16W61 L=279)  1100    168        2 (1644/1485-1755/1595)   9.0 W53-W72 N14-N17
      7 1675 1352 (N07W49 L=266)  1320    252        6 (1556/1292-1760/1415) -34.7 W42-W57 N03-N12
      8 1531 1362 (N10W39 L=256)   239     36        0 (1508/1346-1556/1377)   0.0 W36-W40 N09-N11
      9  204 1254 (N33E58 L=159)   643     91        0 ( 163/1214- 242/1287) -21.0 E65-E52 N30-N35
     10  635 1181 (N20E20 L=198)  1390    409        6 ( 437/1122- 799/1244) -31.3 E33-E10 N13-N27
     11  232 1137 (N25E54 L=164)   404     45        0 ( 207/1117- 254/1162)  26.6 E56-E50 N24-N26
     12  150 1111 (N25E64 L=153)   699     63        2 ( 116/1090- 190/1134) -14.0 E70-E58 N23-N27
     13  994  995 (N02E02 L=215)   199     67        1 ( 967/ 960-1011/1026)  71.6 E03-E01 N00-N03
     14  341  952 (N13E45 L=173)   474    127        3 ( 313/ 889- 363/1007) -82.9 E46-E42 N08-N16
     15 1495  954 (S11W26 L=243)   289     68        1 (1477/ 925-1522/ 998) -90.0 W24-W27 S13-S08
     16 1060  784 (S11E03 L=214)   187     68        0 (1030/ 757-1090/ 809)  21.8 E05-W00 S12-S10
     17  905  728 (S11E13 L=204)   430    122        0 ( 883/ 679- 945/ 783)  45.0 E14-E09 S14-S08
     18 1903  756 (S35W66 L=284)   873     66        0 (1867/ 744-1944/ 772)  -5.4 W59-W80 S36-S32
     19 1516  651 (S30W23 L=240)   814    226        0 (1410/ 596-1576/ 724)  12.1 W14-W28 S32-S26
     20  878  447 (S28E23 L=194)  1784    465        1 ( 701/ 370-1085/ 561)   5.5 E38-E07 S29-S24
     21  466  473 (S17E51 L=166)   711    128        1 ( 439/ 411- 497/ 527)  63.4 E54-E48 S21-S13
     22 1232  335 (S45E04 L=213)  1695    330        2 (1085/ 295-1364/ 426)   4.8 E16-W08 S48-S41
  

    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