Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  581 1276 (N27E22 L=335)   216     65        0 ( 558/1257- 611/1304) -36.9 E23-E19 N25-N29
      2 1792 1145 (S08W52 L= 50)  2208    327        5 (1700/1015-1846/1281)  51.8 W45-W60 S15-S01
      3 1914 1232 (S07W71 L= 68)   580     60        1 (1898/1200-1930/1261)  31.0 W67-W74 S08-S05
      4 1501 1114 (S03W30 L= 27)  1595    368        1 (1396/ 949-1548/1231) -83.3 W25-W32 S12-N05
      5  555 1166 (N21E25 L=332)   522    166        1 ( 457/1142- 622/1189) -14.0 E32-E20 N18-N22
      6  896 1123 (N11E05 L=352)   434    144        1 ( 834/1100- 968/1157) -39.8 E08-E01 N08-N14
      7 1700 1048 (S11W42 L= 39)   477     92        1 (1677/1017-1734/1094)  53.1 W40-W45 S13-S08
      8 1859  854 (S27W56 L= 53)  1129    143        3 (1806/ 823-1918/ 899) -21.8 W49-W65 S29-S22
      9 1107  797 (S11E00 L=357)   739    140        5 (1052/ 758-1163/ 858) -31.0 E03-W02 S13-S08
     10 1148  646 (S21E01 L=356)   886    268        0 (1047/ 581-1202/ 757)  32.5 E09-W03 S24-S15
     11 1692  671 (S34W38 L= 35)   444     49        1 (1669/ 639-1717/ 701) -51.3 W35-W40 S36-S31
     12  657  647 (S10E30 L=327)   401    132        2 ( 588/ 614- 708/ 688)   6.3 E35-E26 S11-S08
     13 1739  564 (S44W45 L= 42)  3825    292        6 (1676/ 441-1814/ 670)  82.9 W38-W57 S52-S35
     14  767  449 (S25E31 L=326)  2334    559        7 ( 618/ 253- 971/ 603)  20.6 E53-E13 S35-S19
     15  415  423 (S19E60 L=298)   463     62        0 ( 395/ 391- 432/ 450)  53.1 E62-E57 S20-S16
  

    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