Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1493 1570 (N24W48 L= 92)   305     64        0 (1467/1540-1521/1596) -90.0 W47-W49 N21-N25
      2 1657 1438 (N12W53 L= 97)   488     74        0 (1628/1413-1705/1457) -14.0 W50-W58 N10-N12
      3  177 1223 (N37E66 L=338)  1101    149        0 ( 118/1194- 239/1257)   2.3 E81-E56 N35-N38
      4  320 1135 (N29E46 L=358)   300     71        0 ( 294/1115- 354/1160) -33.7 E48-E42 N27-N31
      5 1638  970 (S13W35 L= 79)   236     50        0 (1610/ 957-1666/ 984)   0.0 W33-W37 S13-S11
      6  703  883 (N07E22 L= 22)   842    220        2 ( 664/ 791- 781/ 950)  31.0 E25-E15 N01-N09
      7 1661  784 (S24W34 L= 78)   469     93        2 (1625/ 762-1714/ 808) -29.7 W31-W38 S26-S22
      8 1464  758 (S20W19 L= 63)   462     83        2 (1438/ 719-1487/ 797)  53.1 W17-W20 S21-S17
      9  552  600 (S06E40 L=  4)   322     77        0 ( 521/ 568- 584/ 626)  18.4 E42-E36 S07-S05
     10  632  551 (S11E36 L=  8)   687    227        3 ( 559/ 485- 718/ 587)  -4.8 E41-E29 S14-S08
     11  662  521 (S13E35 L=  8)   261     63        0 ( 627/ 503- 698/ 537) -36.9 E37-E33 S15-S11
     12  422  482 (S11E56 L=348)   498     95        0 ( 393/ 451- 453/ 534)  21.8 E60-E50 S12-S08
     13  718  484 (S17E33 L= 10)   429    117        3 ( 671/ 461- 755/ 530)  15.9 E36-E29 S18-S14
     14  339  422 (S14E71 L=332)   914     61        2 ( 318/ 383- 362/ 449)  35.5 E77-E66 S17-S12
     15  458  300 (S25E71 L=333)   953     52        1 ( 427/ 278- 492/ 323) -53.1 E75-E66 S26-S22
  

    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