Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  916 1675 (N32E27 L= 27)   419     98        1 ( 893/1634- 943/1712) -45.0 E29-E23 N29-N34
      2  949 1584 (N27E21 L= 33)   327     90        0 ( 922/1548- 983/1604)  63.4 E22-E18 N23-N28
      3 1074 1422 (N20E08 L= 47)   695    294        2 ( 945/1316-1199/1499)  -9.0 E17-W02 N16-N21
      4  532 1440 (N07E42 L= 13)   414    170        1 ( 474/1375- 607/1490)  63.4 E44-E38 N02-N12
      5  807 1357 (N09E21 L= 33)   625    168        1 ( 761/1287- 841/1454) -84.8 E23-E19 N04-N15
      6  749 1184 (S02E20 L= 35)   310    104        1 ( 704/1157- 802/1226)   0.0 E23-E16 S03-N00
      7 1730 1025 (N15W45 L= 99)  1869    334        5 (1663/ 872-1761/1163) -45.0 W36-W51 N07-N22
      8  235 1021 (S23E54 L=  0)  1184    259        1 ( 168/ 949- 275/1116)  59.7 E60-E51 S28-S16
      9  542 1039 (S15E29 L= 25)   641    223        0 ( 457/1000- 646/1078)  33.7 E34-E22 S19-S11
     10  768 1012 (S11E14 L= 40)   231     71        1 ( 726/ 998- 802/1034)  36.9 E16-E12 S13-S09
     11  580  869 (S24E23 L= 31)   210     82        0 ( 547/ 853- 628/ 890)   9.5 E25-E19 S24-S23
     12 1061  739 (S19W10 L= 64)  1012    437        1 ( 873/ 686-1205/ 844)  48.6 W00-W16 S26-S09
     13  364  729 (S39E39 L= 15)  2237    479        6 ( 230/ 664- 516/ 826)  -4.1 E52-E24 S42-S34
     14 1446  465 (S24W45 L= 99)  1538    434        3 (1246/ 385-1627/ 592)  56.9 W34-W52 S34-S11
  

    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