Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1017 1527 (N28E00 L=  5)   427    100        0 ( 969/1491-1072/1553) -33.7 E03-W03 N25-N29
      2  262 1336 (N17E55 L=311)   648     88        0 ( 248/1294- 278/1380) -80.5 E57-E52 N14-N20
      3 1682 1342 (N17W45 L= 51)   450     81        1 (1644/1320-1717/1359) -11.3 W42-W48 N15-N17
      4  158 1210 (N10E65 L=300)   661    155        1 ( 122/1193- 196/1223)  -5.7 E70-E60 N08-N10
      5 1787 1136 (N05W53 L= 58)   746    132        2 (1741/1089-1827/1177) -51.3 W48-W56 N01-N06
      6 1065  973 (S06W02 L=  8)   180     48        0 (1036/ 960-1094/ 987)   0.0 W00-W04 S07-S05
      7  641  888 (S11E24 L=342)   790    202        1 ( 608/ 780- 677/ 983)  67.4 E26-E21 S17-S05
      8  213  788 (S16E60 L=306)  1210    295        4 ( 187/ 666- 259/ 898)  63.4 E64-E53 S23-S09
      9 1579  819 (S15W36 L= 42)   269    142        0 (1528/ 804-1642/ 842)  -6.3 W32-W41 S15-S13
     10 1004  686 (S24E01 L=  4)   430     80        1 ( 975/ 643-1033/ 736) -80.5 E03-W00 S26-S20
     11 1849  687 (S22W64 L= 69)   636    113        2 (1808/ 654-1877/ 724)  39.8 W59-W66 S24-S19
     12  412  619 (S27E45 L=321)  1093    157        3 ( 387/ 560- 448/ 686)  58.0 E47-E41 S31-S22
     13  202  608 (S27E66 L=300)   992    212        2 ( 180/ 579- 241/ 637) -26.6 E69-E61 S28-S24
  

    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