Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  398 1630 (N23E60 L=170)  1198     96        4 ( 363/1583- 426/1676) -49.4 E66-E55 N19-N26
      2  775 1650 (N29E29 L=202)   288     59        0 ( 743/1629- 801/1672)  53.1 E30-E27 N26-N30
      3 1361 1624 (N38W13 L=243)   811    245        0 (1259/1565-1460/1670) -14.0 W04-W20 N35-N40
      4  545  897 (S21E29 L=202)   553    194        0 ( 497/ 834- 573/ 966)  77.5 E31-E26 S25-S16
      5  919  867 (S17E04 L=227)   190     78        0 ( 897/ 827- 934/ 903)  78.7 E04-E02 S19-S14
      6  148  827 (S28E71 L=160)  1085    103        1 ( 107/ 782- 190/ 853)   7.8 E85-E63 S30-S26
      7 1321  786 (S15W22 L=253)   489    134        1 (1256/ 747-1377/ 831)  49.4 W18-W24 S18-S11
      8  743  752 (S27E13 L=217)   312    139        1 ( 695/ 725- 800/ 804)  49.4 E16-E10 S29-S22
      9 1599  760 (S11W42 L=272)   722    179        0 (1522/ 720-1681/ 797)  31.0 W36-W47 S14-S07
     10 1725  644 (S14W57 L=287)   940    139        2 (1692/ 588-1760/ 712) -82.9 W53-W59 S18-S10
     11 1192  613 (S28W19 L=249)  1917    558        2 ( 976/ 540-1466/ 671)  29.5 W05-W35 S35-S18
     12  848  574 (S37E04 L=227)   359     99        0 ( 804/ 537- 886/ 615) -29.7 E07-W00 S38-S34
     13 1794  572 (S16W70 L=300)   609     77        1 (1767/ 542-1826/ 603)  90.0 W67-W75 S18-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