Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  772 1647 (N27E30 L=148)   424     97        1 ( 750/1600- 813/1686)  81.9 E31-E28 N23-N30
      2  375 1569 (N17E58 L=119)  7669    382       14 ( 268/1398- 493/1669)  87.1 E79-E47 N05-N25
      3  838 1437 (N15E19 L=159)   208     43        0 ( 813/1422- 867/1454)   0.0 E20-E16 N13-N15
      4 1733 1323 (N26W43 L=221)  1209    197        6 (1684/1247-1811/1376) -26.6 W38-W51 N22-N29
      5 1907 1217 (N25W65 L=243)  1715    139        1 (1866/1148-1937/1270) -81.9 W58-W73 N20-N28
      6  306 1034 (S16E49 L=129)  1485    300        3 ( 266/ 909- 356/1155) -86.2 E52-E45 S23-S08
      7  578  742 (S31E25 L=153)   508    155        2 ( 504/ 722- 638/ 780)  26.6 E30-E20 S32-S27
      8  749  730 (S29E12 L=165)   672    188        0 ( 662/ 701- 839/ 764)   0.0 E18-E05 S29-S27
      9 1316  696 (S20W24 L=202)   283    159        0 (1267/ 649-1350/ 759)  90.0 W22-W26 S23-S16
     10  291  598 (S44E58 L=120)   865     88        0 ( 242/ 569- 336/ 631)  15.5 E67-E49 S46-S41
     11 1512  558 (S23W43 L=221)   782    258        0 (1409/ 515-1618/ 612)  42.3 W36-W49 S27-S17
     12 1761  562 (S17W66 L=244)   553     92        0 (1726/ 535-1800/ 577)  33.7 W62-W71 S18-S14
     13  438  422 (S56E47 L=131)  1226    121        1 ( 382/ 385- 501/ 460)  12.5 E62-E35 S59-S52
     14 1626  376 (S31W68 L=246)  4104    281        4 (1488/ 329-1734/ 447)  30.6 W55-W83 S37-S24
     15  482  285 (S69E61 L=116)   675     95        0 ( 436/ 276- 533/ 296)   1.7 E82-E44 S69-S67
  

    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