Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1631 1573 (N29W61 L= 61)  1004    218        0 (1589/1505-1691/1612)  18.4 W52-W68 N25-N31
      2 1729 1446 (N19W62 L= 63)  2446    232        3 (1668/1358-1786/1528) -90.0 W57-W67 N13-N25
      3 1333 1449 (N27W28 L= 29)   394    170        0 (1309/1395-1383/1526)  83.7 W27-W30 N23-N32
      4 1510 1510 (N28W45 L= 45)   330     91        0 (1464/1490-1549/1523) -15.9 W40-W47 N25-N29
      5  575 1336 (N31E28 L=333)  1501    275        4 ( 536/1211- 640/1456) -64.8 E31-E22 N22-N39
      6 1527 1107 (N04W33 L= 33)   517    100        1 (1491/1074-1548/1158)  45.0 W30-W35 N01-N06
      7 1704 1033 (S04W46 L= 46)   478    114        0 (1687/ 974-1723/1079)  71.6 W44-W48 S07-S01
      8 1572  927 (S08W34 L= 34)   248     71        0 (1543/ 905-1591/ 962)  26.6 W31-W35 S09-S06
      9 1748  855 (S16W48 L= 49)   519     49        1 (1717/ 829-1773/ 882) -18.4 W45-W51 S17-S14
     10  264  717 (S05E61 L=300)   591     92        1 ( 248/ 674- 282/ 760)  40.6 E64-E57 S08-S02
     11  961  636 (S17E09 L=351)   375    163        0 ( 894/ 592-1025/ 682)  21.8 E14-E04 S19-S14
     12 1196  536 (S27W04 L=  5)   242     95        1 (1155/ 522-1243/ 559)   0.0 W01-W07 S28-S26
  

    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