Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1237 1762 (N56W07 L=167)   529     48        0 (1207/1737-1267/1789)  35.5 W03-W10 N52-N59
      2 1515 1709 (N56W41 L=202)   434     32        0 (1498/1686-1538/1729)  24.0 W37-W46 N53-N58
      3  656 1675 (N38E42 L=118)   347     60        1 ( 629/1646- 678/1696) -23.2 E45-E38 N35-N38
      4  342 1469 (N19E59 L=101)  2173    312        4 ( 258/1361- 431/1594)  80.0 E64-E55 N11-N28
      5  848 1524 (N30E20 L=140)   436     89        3 ( 814/1478- 868/1560) -71.6 E22-E17 N26-N32
      6  406 1486 (N21E53 L=107)   385     50        0 ( 383/1458- 425/1513)  71.6 E55-E51 N19-N22
      7  241 1469 (N17E75 L= 85)   816     66        1 ( 220/1430- 260/1493) -53.1 E79-E70 N15-N19
      8 1563 1396 (N31W34 L=194)  1174    327        0 (1443/1309-1684/1472) -20.9 W24-W45 N26-N34
      9  393 1410 (N16E51 L=109)   805     99        2 ( 358/1370- 432/1450)  51.3 E54-E47 N13-N18
     10  864  939 (S07E09 L=151)   356     79        2 ( 833/ 914- 906/ 971) -11.3 E10-E05 S08-S04
     11  183  899 (S18E65 L= 96)   768     85        1 ( 159/ 865- 209/ 945)  45.0 E68-E60 S20-S14
     12 1273  544 (S26W24 L=184)   375    127        0 (1217/ 513-1319/ 586)  50.2 W20-W26 S28-S22
     13 1545  524 (S24W46 L=206)   379     58        0 (1526/ 495-1564/ 557) -45.0 W43-W47 S25-S21
     14 1724  495 (S24W68 L=228)  1028    113        3 (1688/ 460-1754/ 538) -68.2 W62-W74 S25-S20
     15  442  445 (S47E45 L=115)   547     59        1 ( 410/ 426- 475/ 463)  22.6 E51-E39 S49-S44
  

    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