Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  463 1544 (N29E51 L=212)  2129    348        3 ( 415/1430- 547/1650) -32.5 E64-E39 N22-N36
      2 1438 1520 (N38W28 L=290)   728    153        0 (1384/1460-1492/1568) -41.2 W23-W31 N33-N40
      3 1139 1206 (N14W06 L=269)   259    128        0 (1075/1171-1180/1222)  -8.1 W01-W08 N11-N14
      4 1678  952 (N02W45 L=308)   690    121        2 (1640/ 908-1713/1002)  51.3 W41-W48 N00-N05
      5 1237  953 (S01W14 L=277)   597    151        1 (1174/ 920-1305/ 983)  23.2 W09-W17 S03-N01
      6  258  817 (S19E56 L=207)  1861    189        3 ( 226/ 735- 295/ 891)  61.4 E60-E51 S24-S13
      7 1122  788 (S12W08 L=271)   384     96        1 (1072/ 767-1172/ 811)   0.0 W04-W11 S13-S10
      8  992  731 (S17W00 L=263)   302    109        0 ( 943/ 712-1042/ 745)   0.0 E02-W03 S18-S15
      9 1287  696 (S17W20 L=283)   474    117        2 (1231/ 673-1335/ 723) -14.0 W15-W23 S17-S14
     10  478  679 (S25E36 L=227)   813    222        0 ( 387/ 660- 581/ 700)  10.0 E44-E27 S27-S23
     11 1804  619 (S18W70 L=332)  1140    100        0 (1775/ 573-1841/ 663)  54.5 W65-W74 S21-S14
     12 1246  523 (S28W21 L=283)   286     95        1 (1207/ 496-1278/ 561)  51.3 W18-W22 S30-S25
     13 1098  469 (S34W11 L=274)   238     20        0 (1074/ 453-1120/ 482)  18.4 W09-W12 S34-S32
  

    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