Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1085 1855 (N50E24 L=195)   400     47        0 (1058/1833-1110/1876) -15.9 E27-E20 N48-N52
      2  756 1779 (N34E42 L=177)   328     60        1 ( 730/1758- 778/1797)  56.3 E43-E39 N32-N35
      3  524 1434 (N07E40 L=179)   665    148        2 ( 473/1385- 580/1482)  50.2 E42-E37 N03-N10
      4  684 1423 (N09E29 L=190)   489    146        0 ( 620/1372- 739/1455) -11.3 E34-E24 N06-N10
      5 1268 1320 (N15W08 L=227)   801    245        5 (1194/1218-1332/1408) -45.0 W02-W12 N10-N19
      6 1645 1192 (N18W35 L=254)  1130    303        1 (1542/1114-1745/1306) -14.7 W25-W44 N14-N22
      7  168 1125 (S16E66 L=153)   452    112        0 ( 156/1068- 182/1179)  74.1 E67-E64 S19-S12
      8  238  979 (S24E56 L=163)   357     63        0 ( 227/ 939- 248/1016)  78.7 E56-E54 S26-S21
      9  938  825 (S20E01 L=218)   468    215        1 ( 840/ 800-1044/ 861)  35.0 E06-W05 S23-S15
     10  259  736 (S39E56 L=163)  1038    187        3 ( 219/ 665- 279/ 807)  51.3 E64-E51 S44-S34
     11  440  664 (S41E35 L=184)   710    102        0 ( 397/ 622- 484/ 703)  37.9 E40-E30 S44-S37
     12 1736  565 (S14W64 L=283)   718     63        1 (1705/ 530-1764/ 595) -36.9 W59-W67 S15-S12
     13 1402  319 (S38W54 L=273)   331     34        1 (1381/ 301-1424/ 342)   0.0 W50-W57 S38-S36
     14 1557  305 (S33W71 L=290)   738     83        0 (1527/ 278-1586/ 340)   0.0 W62-W80 S33-S31
  

    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