Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1178 1856 (N65E07 L= 81)  5465    419        7 ( 996/1770-1350/1925)  -4.3 E40-W17 N58-N72
      2 1095 1690 (N45E08 L= 80)  2114    410        4 ( 896/1627-1234/1740)  -3.7 E26-W05 N42-N47
      3  555 1664 (N33E51 L= 36)  1270    264        2 ( 486/1579- 663/1708)  33.7 E56-E42 N26-N37
      4  348 1408 (N13E56 L= 32)  1828    325        7 ( 294/1276- 399/1541) -48.8 E64-E47 N05-N21
      5 1535 1194 (N18W31 L=119)  1172    300        1 (1441/1075-1618/1302) -36.3 W23-W38 N11-N23
      6 1872 1057 (N15W65 L=152)   854    112        2 (1856/1014-1898/1111) -51.3 W62-W69 N12-N17
      7  376  986 (S12E43 L= 45)   357    126        0 ( 335/ 938- 426/1027)  49.4 E46-E39 S15-S08
      8  164  878 (S22E68 L= 20)   947    102        2 ( 144/ 836- 183/ 934)  45.0 E72-E64 S24-S18
      9  279  781 (S26E53 L= 35)   446    106        0 ( 256/ 735- 301/ 827)  50.2 E56-E49 S29-S23
     10  649  724 (S24E20 L= 68)  1178    330        3 ( 512/ 688- 787/ 775)  19.3 E30-E10 S27-S18
     11 1152  654 (S21W14 L=102)   749    320        0 (1026/ 549-1262/ 750)  58.0 W08-W19 S29-S13
     12 1236  600 (S23W21 L=109)   314    146        0 (1193/ 544-1283/ 657) -33.7 W16-W25 S25-S19
     13  688  212 (S69E24 L= 64)   864     81        2 ( 661/ 179- 720/ 254)  84.3 E30-E18 S74-S63
     14  949  179 (S64W19 L=106)   612     70        0 ( 918/ 154- 983/ 210) -15.9 W12-W26 S67-S60
  

    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