Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1230 1628 (N38W32 L=297)  1192    223        3 (1161/1542-1298/1701)  85.6 W28-W34 N31-N44
      2 1676 1556 (N21W61 L=327)  1936    314        5 (1630/1502-1734/1609)   4.1 W54-W68 N17-N23
      3 1788 1459 (N12W69 L=334)   568    119        1 (1768/1425-1808/1497)  63.4 W65-W73 N10-N14
      4  786 1370 (N33E08 L=258)  1472    332        3 ( 686/1226- 861/1491) -73.3 E13-E04 N22-N42
      5 1841 1379 (N06W72 L=337)   579    103        2 (1822/1351-1860/1407)  76.0 W67-W74 N03-N07
      6 1837 1191 (S04W61 L=327)  1916    392        2 (1769/1068-1921/1335) -69.8 W56-W69 S13-N06
      7  311 1070 (N22E48 L=218)  3746    769        4 ( 140/ 917- 547/1221) -32.9 E65-E31 N09-N32
      8 1134 1162 (N13W09 L=275)   507    182        0 (1041/1103-1223/1197)   4.4 W02-W15 N10-N14
      9 1585  831 (S17W31 L=296)  1875    335        3 (1498/ 695-1635/1005)  50.9 W22-W36 S23-S07
     10  635  886 (N06E26 L=239)   477     92        0 ( 599/ 857- 665/ 928)  63.4 E28-E24 N04-N08
     11  733  826 (N01E21 L=244)   252     70        1 ( 698/ 801- 768/ 850) -45.0 E22-E18 N00-N03
     12  650  690 (S05E30 L=236)   485    174        1 ( 567/ 660- 728/ 713)   0.0 E35-E24 S06-S04
     13  475  432 (S19E53 L=213)  1977    438        6 ( 398/ 322- 583/ 528)  86.6 E59-E45 S28-S11
     14 1404  450 (S39W13 L=278)   387     38        1 (1381/ 427-1430/ 474)  14.0 W10-W14 S40-S36
  

    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