Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1565 1511 (N26W48 L= 85)   589    192        2 (1522/1464-1598/1549) -74.1 W45-W49 N22-N29
      2  922 1406 (N31E01 L= 36)   381    145        1 ( 857/1388- 994/1429)  -6.3 E05-W04 N30-N32
      3 1789 1378 (N13W64 L=100)   642    178        1 (1751/1357-1825/1413)   5.7 W59-W69 N12-N14
      4 1508 1318 (N16W36 L= 73)   291    140        0 (1454/1256-1537/1368) -76.0 W33-W37 N11-N19
      5  526 1308 (N30E31 L=  6)  1897    434        7 ( 358/1258- 684/1363)   2.1 E45-E18 N27-N32
      6  222 1261 (N29E59 L=338)   813    149        2 ( 183/1226- 268/1293) -12.5 E63-E53 N26-N31
      7  297 1197 (N25E50 L=346)   368     45        1 ( 275/1171- 320/1217)  45.0 E52-E48 N23-N25
      8 1100 1167 (N14W07 L= 43)   597    132        2 (1045/1135-1173/1202) -29.7 W03-W10 N11-N16
      9  497  769 (S03E38 L=359)   932    166        0 ( 455/ 689- 536/ 858) -73.3 E39-E35 S08-N02
     10  741  750 (S07E21 L= 15)   573    162        1 ( 658/ 714- 819/ 777) -21.8 E26-E16 S09-S04
     11 1579  688 (S24W33 L= 69)   996    149        1 (1509/ 636-1638/ 737)  21.8 W26-W37 S26-S21
     12  483  624 (S12E42 L=355)  1042    229        3 ( 413/ 554- 530/ 687)  36.0 E50-E37 S16-S08
     13  663  445 (S26E35 L=  2)   348    156        1 ( 626/ 401- 686/ 498)  36.9 E39-E30 S28-S22
     14  537  301 (S36E54 L=343)  1496    254       -1 ( 486/ 250- 578/ 371)  73.3 E58-E50 S41-S30
  

    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