Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  534 1697 (N27E58 L=100)   728     98        1 ( 511/1649- 555/1742) -24.8 E64-E51 N24-N30
      2  348 1585 (N16E68 L= 90)  2538    161        3 ( 302/1503- 393/1636) -68.2 E77-E63 N10-N20
      3  486 1562 (N17E51 L=107)  1246    163        2 ( 427/1516- 555/1595)  49.4 E56-E46 N13-N20
      4  561 1514 (N16E43 L=115)   445     49        1 ( 544/1481- 580/1545) -36.9 E45-E40 N13-N18
      5 1792 1294 (N33W52 L=210)   481     18        0 (1767/1276-1813/1313) -14.0 W48-W55 N31-N34
      6  249 1218 (S08E59 L= 99)   958    116        1 ( 202/1185- 304/1252)   9.5 E64-E52 S09-S05
      7  463  978 (S17E35 L=123)   264     64        0 ( 434/ 954- 482/1007)  76.0 E36-E32 S19-S15
      8  229  918 (S26E57 L=101)   836    116        2 ( 198/ 869- 265/ 971)  45.0 E61-E52 S29-S22
      9 1330  725 (S13W25 L=183)   279    113        0 (1303/ 681-1370/ 760)  80.5 W24-W27 S15-S09
     10 1077  634 (S24W13 L=171)   210    108        0 (1027/ 611-1129/ 647)   0.0 W09-W16 S25-S23
     11  418  556 (S47E38 L=120)  1391    237        3 ( 339/ 524- 537/ 601)  14.0 E48-E24 S49-S41
     12 1433  547 (S20W39 L=197)   625    108        1 (1408/ 485-1456/ 593) -60.3 W37-W42 S24-S17
     13  915  497 (S37W07 L=165)   244     39        0 ( 891/ 478- 941/ 519)  45.0 W05-W08 S38-S35
     14  881  279 (S55W15 L=173)  1729    198        3 ( 841/ 193- 925/ 370) -59.9 W10-W23 S65-S46
  

    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