Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  621 1722 (N63E09 L=299)   410     66        0 ( 595/1687- 649/1753)  35.5 E12-E04 N60-N65
      2 1113 1674 (N40W29 L=337)   403     32        0 (1088/1649-1140/1698)  18.4 W26-W32 N39-N41
      3  959 1612 (N42W16 L=323)   362    100        0 ( 923/1579-1004/1643)  12.5 W11-W20 N40-N42
      4  316 1574 (N60E59 L=249)   628     88        1 ( 267/1551- 357/1596)   2.7 E72-E50 N58-N61
      5 1374 1474 (N21W34 L=342)   972    308        1 (1295/1383-1436/1532)  83.7 W29-W38 N15-N24
      6  324 1120 (N28E45 L=263)  1057    230        2 ( 238/1053- 425/1177) -32.9 E53-E36 N22-N33
      7 1846 1135 (S12W57 L=  5)   579     62        1 (1829/1096-1864/1177)  36.9 W55-W60 S13-S09
      8 1651  866 (S20W34 L=341)  2116    453        3 (1538/ 715-1753/1069)  31.3 W22-W46 S26-S11
      9  190  840 (N14E64 L=244)   491     78        2 ( 149/ 817- 220/ 870) -24.0 E69-E60 N12-N16
     10 1142  777 (S10W00 L=307)   673    163        0 (1112/ 700-1166/ 858)  53.1 E03-W03 S14-S06
     11 1098  546 (S23E09 L=298)   285     85        0 (1079/ 515-1127/ 595)  80.5 E09-E07 S25-S19
     12 1261  480 (S32E01 L=306)   830    179        0 (1191/ 446-1351/ 531)   0.0 E06-W05 S33-S29
     13 1023  326 (S36E23 L=285)  1650    292        2 ( 905/ 267-1148/ 394)   5.2 E33-E11 S37-S33
     14  580  332 (S23E53 L=255)   352     67        1 ( 553/ 303- 611/ 355) -78.7 E53-E51 S26-S21
     15  750  158 (S41E59 L=248)   965     83        3 ( 719/ 132- 774/ 186)  10.0 E70-E53 S43-S38
  

    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