Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1040 1821 (N57W36 L= 99)   364     45        0 (1009/1798-1067/1841)   6.3 W30-W40 N56-N58
      2 1438 1777 (N39W63 L=126)   437     34        1 (1418/1758-1455/1798)  12.5 W59-W68 N37-N40
      3 1341 1629 (N34W41 L=104)   263     22        0 (1316/1616-1366/1643) -33.7 W38-W42 N32-N35
      4 1465 1516 (N24W43 L=106)   455    111        0 (1421/1482-1508/1547) -71.6 W40-W44 N20-N26
      5 1097 1476 (N32W16 L= 80)   495     71        2 (1064/1442-1134/1506) -59.0 W14-W18 N29-N34
      6 1469 1345 (N14W35 L= 98)   394    144        0 (1454/1272-1491/1407)  45.0 W32-W39 N10-N17
      7 1655 1308 (N07W47 L=110)  1137    186        3 (1587/1248-1726/1368) -66.0 W42-W52 N02-N11
      8  390 1316 (N37E40 L= 23)   266      1        1 ( 368/1299- 412/1332) -26.6 E42-E38 N35-N38
      9 1560 1303 (N10W40 L=103)   273     51        1 (1545/1274-1584/1331)  45.0 W38-W41 N08-N11
     10 1487 1082 (S00W29 L= 92)   445    165        0 (1477/1016-1499/1169)  69.4 W26-W30 S04-N04
     11  941 1104 (N14E03 L= 60)   605    270        0 ( 865/1038-1008/1160) -45.0 E08-W00 N08-N16
     12 1890 1011 (S17W62 L=126)  5193    363       11 (1831/ 862-1937/1151)  43.0 W53-W72 S24-S09
     13 1829 1024 (S14W55 L=118)   684    115        2 (1796/ 975-1862/1076)  56.3 W51-W58 S16-S10
     14  452 1013 (N18E37 L= 27)  1612    410        3 ( 300/ 954- 613/1060) -24.6 E49-E25 N11-N22
     15  902 1026 (N10E07 L= 56)   239     98        0 ( 853/ 995- 941/1051) -51.3 E09-E05 N07-N12
     16 1783  906 (S19W48 L=111)  1062    169        2 (1743/ 854-1823/ 971) -63.4 W44-W52 S22-S14
     17 1308  748 (S15W10 L= 74)   578    169        0 (1253/ 682-1348/ 818)  33.7 W05-W14 S18-S11
     18  236  744 (N05E62 L=  1)   654    124        1 ( 222/ 691- 257/ 804)  54.5 E65-E60 N01-N08
     19 1583  521 (S39W28 L= 91)  6778    884        9 (1186/ 302-1832/ 708)   8.7 E08-W58 S44-S32
     20 1095  625 (S18E05 L= 58)   409    132        0 (1050/ 600-1162/ 665) -39.8 E06-W00 S19-S14
     21  551  519 (S13E42 L= 21)   726    145        1 ( 492/ 468- 587/ 569) -81.9 E45-E40 S16-S09
     22  464  485 (S14E51 L= 12)   349     72        1 ( 448/ 453- 480/ 527)  51.3 E53-E48 S16-S11
     23 1401  211 (S64W08 L= 72)  1260    132        1 (1357/ 186-1454/ 250) -36.9 W02-W19 S70-S57
  

    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