Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1678 1641 (N25W63 L=210)   664    136        1 (1662/1610-1696/1670)  45.0 W60-W66 N23-N26
      2  815 1387 (N26E06 L=140)  1165    288        3 ( 672/1307- 941/1460) -40.9 E15-W00 N19-N33
      3  835 1155 (N12E09 L=138)   473    155        1 ( 759/1117- 927/1202) -37.9 E12-E03 N08-N16
      4 1384  978 (S08W20 L=167)   220    118        1 (1329/ 945-1437/1006) -33.7 W17-W23 S10-S05
      5 1029  870 (S08E02 L=144)   476    163        1 ( 974/ 791-1064/ 951)  53.1 E06-W00 S11-S03
      6  121  921 (N10E70 L= 77)   839    231        1 (  81/ 887- 152/ 945) -15.3 E77-E65 N08-N11
      7  197  799 (N02E64 L= 83)  2462    376       11 ( 143/ 704- 242/ 886)  68.2 E70-E58 S03-N07
      8  301  780 (S00E53 L= 94)   878    248        5 ( 253/ 702- 375/ 877) -70.0 E55-E48 S06-N05
      9 1840  730 (S32W55 L=201)  1330    167        0 (1780/ 681-1872/ 803)  45.0 W48-W58 S34-S27
     10  501  713 (S08E38 L=108)   682    146        2 ( 469/ 629- 530/ 778)  83.7 E39-E36 S12-S03
     11 1308  681 (S24W11 L=158)   705    254        2 (1167/ 638-1399/ 745)   7.1 W01-W17 S25-S21
     12 1376  586 (S32W15 L=161)  1449    306        0 (1229/ 484-1498/ 696)  22.2 W02-W24 S36-S26
     13 1734  643 (S36W45 L=191)   414     85        1 (1702/ 624-1768/ 665) -15.9 W41-W48 S37-S33
     14  417  487 (S20E54 L= 93)  3213    660       11 ( 349/ 342- 516/ 590)  46.8 E68-E44 S28-S12
  

    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