Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  856 1452 (N31E01 L=290)   240     97        0 ( 801/1435- 903/1465)  -9.5 E04-W02 N30-N32
      2 1310 1270 (N10W22 L=313)   726    192        2 (1222/1242-1411/1302) -24.4 W16-W27 N06-N12
      3  916 1209 (N15E02 L=288)  1270    320        2 ( 748/1170-1072/1241) -15.5 E12-W06 N10-N18
      4  995 1114 (N08W00 L=291)   207     84        0 ( 964/1076-1032/1152)  36.9 E02-W03 N06-N09
      5  529 1120 (N18E28 L=263)   207     87        0 ( 485/1108- 572/1141)  -8.1 E31-E24 N17-N19
      6 1651 1028 (S11W39 L=329)   391     56        1 (1636/ 992-1668/1069)  78.7 W37-W40 S13-S08
      7 1776  997 (S16W48 L=339)   586     99        0 (1754/ 945-1796/1048)  45.0 W45-W51 S18-S13
      8  154  995 (N18E63 L=228)   922    231        1 ( 103/ 959- 205/1016) -14.0 E69-E57 N15-N19
      9  448  949 (N10E37 L=254)   476    132        1 ( 395/ 882- 500/1010) -66.0 E39-E34 N05-N14
     10  306  851 (N07E50 L=240)   620     89        1 ( 286/ 806- 338/ 889)  59.0 E53-E47 N04-N09
     11 1249  855 (S12W09 L=300)   269     58        0 (1216/ 825-1281/ 877)  11.3 W06-W11 S12-S10
     12 1257  651 (S24W06 L=296)  1159    224        3 (1177/ 538-1326/ 729)  33.7 E01-W11 S29-S19
     13  606  564 (S15E37 L=254)  1708    538        6 ( 490/ 409- 678/ 677) -87.0 E41-E32 S25-S06
     14  436  610 (S09E47 L=243)   323     61        1 ( 413/ 582- 460/ 638)  45.0 E49-E45 S10-S07
     15  336  528 (S12E60 L=230)  2917    513        7 ( 275/ 461- 406/ 600) -56.3 E66-E54 S16-S07
     16  708  563 (S17E30 L=261)   375     84        2 ( 678/ 522- 733/ 598)  78.7 E31-E27 S20-S15
     17 1108  342 (S42E13 L=278)   498     98        1 (1085/ 299-1129/ 380)  74.1 E14-E10 S45-S38
     18  799  259 (S40E39 L=251)   346     69        0 ( 781/ 232- 819/ 285)  76.0 E41-E37 S42-S37
     19 1023  208 (S51E28 L=263)   844    145        2 ( 990/ 167-1062/ 248)  22.6 E33-E21 S54-S47
  

    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