Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  886 1811 (N39E36 L=211)   542    105        1 ( 863/1759- 906/1855) -41.6 E41-E32 N34-N42
      2  800 1695 (N28E34 L=214)   295     59        0 ( 768/1676- 834/1710)   0.0 E36-E30 N26-N28
      3  996 1635 (N28E19 L=229)  1149    340        2 ( 912/1593-1112/1710)  26.6 E25-E11 N24-N32
      4  465 1620 (N16E55 L=193)   836    115        2 ( 415/1580- 510/1667)  66.8 E57-E52 N12-N19
      5  587 1533 (N12E40 L=207)   642    203        2 ( 525/1490- 658/1583)   0.0 E45-E33 N10-N15
      6 1713 1352 (N31W38 L=286)  2282    446        1 (1575/1203-1862/1526) -21.8 W24-W55 N26-N39
      7  696 1038 (S14E19 L=228)   674    214        0 ( 623/ 958- 781/1091)  55.0 E22-E15 S19-S09
      8  262  993 (S25E53 L=195)   490     89        1 ( 238/ 957- 298/1031) -53.1 E55-E48 S26-S22
      9  405  854 (S31E38 L=210)   307     87        1 ( 361/ 836- 456/ 865)  14.0 E41-E33 S31-S29
     10 1364  782 (S12W26 L=273)   549    143        0 (1294/ 748-1428/ 803)  40.6 W22-W29 S15-S09
     11  805  747 (S28E06 L=241)  1112    292        2 ( 670/ 724- 952/ 777)  18.4 E15-W03 S32-S24
     12  547  646 (S41E24 L=224)   797    168        3 ( 483/ 606- 612/ 703)  42.3 E29-E18 S45-S35
     13 1661  423 (S21W68 L=316)   795    143        0 (1599/ 392-1718/ 465)  45.0 W63-W71 S24-S17
     14 1446  446 (S28W47 L=294)   342    101        0 (1390/ 437-1495/ 456)  29.7 W42-W49 S29-S25
     15 1437  274 (S37W63 L=310)   690     44        2 (1410/ 253-1464/ 304)  90.0 W58-W67 S38-S35
  

    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