Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1377 1722 (N46W19 L=259)  1605    206        3 (1283/1667-1473/1756)  -6.7 W10-W27 N43-N49
      2  282 1523 (N19E66 L=174)  2683    152        3 ( 247/1443- 317/1599) -54.0 E72-E60 N13-N25
      3 1206 1412 (N20W07 L=247)  1300    347        1 (1079/1294-1323/1508) -32.0 E02-W15 N14-N25
      4 1759 1384 (N27W50 L=290)  1077    149        1 (1715/1321-1801/1449) -54.5 W46-W54 N23-N31
      5 1851 1307 (N24W60 L=301)   860    146        0 (1833/1231-1865/1373)  71.6 W58-W63 N19-N28
      6 1631 1315 (N20W37 L=277)   634    110        1 (1592/1282-1679/1348) -26.6 W33-W41 N18-N22
      7 1752 1309 (N22W48 L=288)   395     53        1 (1723/1289-1780/1341) -33.7 W45-W51 N20-N24
      8  139 1048 (S11E69 L=172)   926    114        3 ( 114/1001- 166/1101)  50.2 E72-E64 S13-S07
      9  316 1017 (S12E48 L=192)   394     84        0 ( 289/ 977- 349/1062)  51.3 E50-E45 S14-S09
     10  641  854 (S20E22 L=218)   381    135        0 ( 580/ 818- 699/ 882)  26.6 E26-E18 S22-S17
     11  208  844 (S23E61 L=179)   394     52        0 ( 176/ 828- 236/ 864)  12.5 E65-E56 S23-S21
     12  485  706 (S30E35 L=205)   523    118        0 ( 446/ 663- 530/ 756)  41.2 E38-E30 S33-S26
     13 1347  580 (S28W28 L=268)  1668    396        2 (1196/ 469-1507/ 679)  48.4 W20-W36 S37-S19
     14  385  530 (S43E50 L=190)   327     23        1 ( 368/ 506- 399/ 553)  36.9 E52-E47 S44-S41
  

    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