Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  465 1664 (N38E60 L=328)   490     34        2 ( 445/1643- 486/1688)  -6.3 E65-E56 N36-N39
      2  571 1644 (N38E46 L=342)  1319    171        2 ( 502/1600- 645/1673)   0.0 E53-E38 N35-N40
      3  731 1500 (N29E26 L=  3)   362     64        2 ( 710/1470- 758/1530)  76.0 E28-E23 N27-N31
      4 1093 1405 (N26W01 L= 30)  1196    339        2 (1010/1319-1148/1518) -63.4 E03-W05 N20-N33
      5 1748 1453 (N35W60 L= 88)  2218    314        2 (1604/1399-1858/1509)  -9.5 W43-W79 N31-N38
      6  328 1387 (N18E56 L=332)   478    141        1 ( 298/1320- 349/1427) -35.0 E61-E51 N13-N20
      7  472 1343 (N17E41 L=347)   319    100        0 ( 434/1315- 502/1359)  -9.5 E44-E38 N15-N17
      8 1814 1235 (N20W60 L= 88)   534    132        1 (1760/1192-1852/1271) -20.0 W53-W64 N17-N22
      9 1358 1215 (N16W20 L= 48)   232     38        0 (1339/1189-1376/1237) -71.6 W18-W21 N14-N17
     10 1816 1150 (N15W59 L= 87)   710    121        1 (1782/1110-1857/1202) -36.9 W55-W63 N12-N18
     11  629 1129 (N05E26 L=  2)   288    115        0 ( 588/1093- 674/1170)  45.0 E28-E23 N02-N07
     12  501  892 (S11E33 L=355)   251     57        0 ( 473/ 873- 531/ 910) -11.3 E35-E30 S11-S09
     13 1009  704 (S18W02 L= 30)   628    167        0 ( 970/ 638-1064/ 753)  63.4 W00-W04 S22-S14
  

    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