Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  703 1761 (N32E47 L= 10)  1552    289        3 ( 675/1673- 741/1842) -47.3 E53-E41 N25-N38
      2  917 1609 (N27E24 L= 32)  1725    432        5 ( 857/1474- 997/1754) -36.0 E35-E13 N20-N36
      3  550 1478 (N10E42 L= 14)   814    225        2 ( 458/1385- 636/1539)  65.2 E46-E38 N02-N15
      4  781 1376 (N09E23 L= 33)   849    217        1 ( 723/1287- 816/1474) -85.2 E26-E21 N03-N15
      5  461 1310 (S02E42 L= 14)   256     96        3 ( 435/1289- 498/1326)  -9.5 E44-E38 S02-N00
      6  712 1219 (S01E23 L= 34)   525    200        2 ( 665/1165- 796/1275)  -5.7 E26-E16 S03-N02
      7 1706 1061 (N17W42 L= 98)  1912    298        3 (1643/ 928-1737/1177) -45.0 W34-W47 N09-N22
      8  370 1146 (S13E44 L= 12)   335    110        1 ( 340/1125- 408/1172)   0.0 E47-E41 S14-S11
      9  218 1018 (S24E56 L=  1)  1338    260        1 ( 153/ 956- 259/1121)  59.7 E62-E52 S28-S16
     10  511 1049 (S15E32 L= 25)   650    217        0 ( 425/1011- 610/1089)  33.7 E37-E25 S19-S11
     11  382  725 (S38E37 L= 19)  2530    448        4 ( 245/ 670- 547/ 825)   0.0 E50-E22 S42-S34
     12 1104  769 (S16W11 L= 68)   231     84        1 (1092/ 733-1126/ 812) -53.1 W09-W13 S18-S13
     13  938  718 (S24W03 L= 60)   510    189        2 ( 845/ 703-1041/ 734)  24.4 E02-W09 S26-S21
     14 1374  450 (S27W41 L= 97)  1397    314        1 (1221/ 393-1527/ 508)  47.0 W33-W48 S34-S18
     15 1363  304 (S36W50 L=106)   372     46        1 (1336/ 286-1390/ 322)  56.3 W48-W51 S37-S33
  

    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