Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  808 1767 (N46E35 L=113)   359     74        0 ( 789/1740- 825/1796) -51.3 E37-E32 N43-N48
      2 1284 1586 (N40W10 L=157)   752    183        1 (1207/1527-1343/1634)  38.7 W04-W14 N34-N44
      3  443 1453 (N17E48 L=100)   373     85        2 ( 411/1428- 470/1494)  68.2 E49-E45 N15-N20
      4  581 1392 (N16E35 L=113)   416    151        3 ( 533/1370- 630/1417)  18.4 E38-E31 N13-N17
      5  765 1273 (N11E20 L=128)   997    212        4 ( 695/1207- 832/1330)  36.9 E24-E16 N06-N15
      6  867 1152 (N05E11 L=136)   425    141        0 ( 822/1083- 900/1213) -45.0 E15-E08 N01-N08
      7 1786 1101 (N16W53 L=200)   483    114        0 (1765/1042-1806/1146)  90.0 W50-W54 N12-N18
      8  162 1047 (S11E66 L= 82)   572     81        1 ( 146/1015- 177/1088)  90.0 E67-E63 S13-S08
      9  465 1001 (S10E36 L=112)   291    109        0 ( 416/ 979- 507/1031)  23.2 E39-E32 S11-S07
     10  788  902 (S11E13 L=135)  1249    280        6 ( 739/ 795- 832/1002) -69.0 E15-E08 S17-S04
     11 1280  977 (N01W16 L=164)   249     44        1 (1252/ 962-1306/ 999)   0.0 W14-W17 N00-N02
     12 1478  901 (S01W30 L=178)   439    102        1 (1436/ 872-1529/ 934)  33.7 W27-W33 S02-N02
     13  309  589 (S40E51 L= 97)   658    146        3 ( 277/ 568- 346/ 613)  24.0 E55-E46 S41-S37
     14 1341  418 (S33W35 L=182)   322     60        0 (1308/ 401-1375/ 438)  36.9 W32-W36 S34-S31
     15 1441  369 (S35W45 L=193)   581    118        0 (1401/ 350-1487/ 395)   0.0 W41-W49 S36-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