Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  271 1466 (N06E65 L=129)  1668    304        7 ( 198/1401- 336/1578)  56.3 E72-E60 N01-N13
      2  306 1446 (N05E59 L=135)   678    175        3 ( 272/1374- 360/1493)  76.0 E63-E55 N00-N08
      3  833 1385 (N10E19 L=175)   345    129        2 ( 806/1315- 856/1437) -54.5 E21-E15 N05-N12
      4  393 1393 (N03E49 L=145)   309    114        1 ( 362/1362- 422/1426) -36.9 E51-E45 N00-N04
      5  102 1138 (S15E74 L=120)  1342    175        3 (  85/1087- 120/1177) -68.2 E78-E71 S17-S12
      6  304  942 (S25E47 L=147)  2050    478        4 ( 204/ 777- 419/1098)  52.3 E56-E39 S36-S14
      7 1244  909 (S09W15 L=209)   315     81        1 (1216/ 883-1279/ 936) -11.3 W12-W17 S10-S07
      8 1219  746 (S18W18 L=212)   864    338        0 (1090/ 664-1328/ 874)  64.8 W11-W21 S25-S08
      9 1391  832 (S09W26 L=220)   303     88        3 (1353/ 806-1423/ 862) -11.3 W22-W27 S10-S08
     10  877  756 (S26E03 L=191)   624    166        1 ( 791/ 692- 934/ 816)  52.1 E07-W00 S30-S20
     11 1552  484 (S24W50 L=244)  3129    790        5 (1225/ 366-1845/ 593)  38.0 W33-W75 S40-S08
     12  525  551 (S47E27 L=167)   494     62        2 ( 493/ 526- 561/ 578) -18.4 E29-E23 S48-S44
     13 1285  528 (S29W30 L=224)   459    141        3 (1213/ 511-1346/ 550)  26.6 W25-W33 S31-S27
  

    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