Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1480 1662 (N38W37 L=221)   413     63        2 (1454/1636-1508/1683)   0.0 W35-W40 N36-N39
      2  409 1584 (N35E47 L=137)   480     79        1 ( 369/1566- 444/1604)  18.4 E50-E43 N33-N36
      3  673 1577 (N33E24 L=159)   569    159        0 ( 600/1563- 758/1590)  -4.4 E30-E17 N31-N34
      4 1590 1370 (N18W38 L=222)   931    298        1 (1470/1314-1723/1439) -18.4 W30-W48 N14-N22
      5  378 1301 (N15E43 L=141)   587    149        3 ( 334/1256- 420/1341) -36.9 E47-E39 N12-N18
      6  955 1175 (N06E04 L=180)   712    197        1 ( 856/1103-1025/1229) -37.9 E09-W00 N01-N09
      7  946  944 (S08E05 L=179)   691    206        1 ( 891/ 845-1025/1022)  51.3 E08-W00 S13-S03
      8 1557  932 (S09W34 L=217)   388     81        2 (1518/ 897-1587/ 965)  45.0 W31-W35 S10-S06
      9 1181  887 (S11W09 L=193)   187     85        0 (1157/ 858-1223/ 906)  26.6 W07-W11 S13-S10
     10 1262  825 (S15W14 L=198)   507    249        0 (1186/ 784-1367/ 867)  22.6 W09-W21 S17-S12
     11  336  790 (S15E48 L=136)   625    113        1 ( 302/ 753- 386/ 831)  14.0 E51-E42 S17-S12
     12 1635  792 (S17W41 L=224)   269     66        0 (1618/ 765-1651/ 817)  71.6 W39-W42 S18-S15
     13  599  777 (S17E28 L=156)   285     60        0 ( 583/ 750- 622/ 810)  76.0 E29-E26 S18-S14
     14 1814  769 (S18W57 L=241)   647     79        0 (1777/ 733-1846/ 799)  38.7 W53-W60 S20-S16
     15  158  737 (S17E68 L=116)   939    205        2 ( 130/ 706- 189/ 778)  29.7 E73-E63 S18-S14
     16 1813  656 (S25W60 L=243)   538    150        2 (1774/ 639-1853/ 677)   0.0 W55-W64 S26-S23
     17  229  615 (S25E63 L=121)   576    276        0 ( 202/ 566- 266/ 662)  26.6 E67-E57 S27-S22
     18  338  513 (S32E55 L=128)  1407    308        3 ( 309/ 417- 365/ 650)  60.6 E59-E48 S39-S23
     19 1210  520 (S35W13 L=196)  1011    191        0 (1134/ 444-1287/ 596)  47.7 W07-W17 S40-S29
     20  620  439 (S39E33 L=150)  1565    397        4 ( 558/ 367- 673/ 532)  38.2 E41-E27 S44-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