Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1551 1693 (N58W29 L=212)   760     84        1 (1518/1657-1580/1719)  36.0 W24-W36 N53-N61
      2  357 1596 (N17E68 L=115)  4987    333       11 ( 269/1488- 442/1697)  71.6 E81-E60 N09-N24
      3  709 1611 (N25E37 L=146)   523     75        0 ( 675/1568- 738/1651)  90.0 E38-E35 N21-N28
      4 1418 1571 (N42W13 L=196)   479    105        0 (1380/1525-1460/1607) -20.6 W09-W17 N39-N43
      5 1582 1329 (N29W30 L=213)   355     69        1 (1562/1308-1613/1360) -26.6 W27-W32 N27-N30
      6  207 1032 (S20E60 L=123)   453     84        2 ( 188/ 997- 223/1071)  59.0 E62-E57 S22-S17
      7  665  802 (S24E17 L=166)   237     43        2 ( 641/ 778- 691/ 826)  45.0 E18-E15 S25-S22
      8 1257  713 (S15W21 L=204)   222     85        0 (1227/ 681-1279/ 757)  78.7 W20-W22 S17-S12
      9  605  740 (S29E20 L=163)   234     95        1 ( 562/ 726- 654/ 754)  15.9 E23-E16 S30-S28
     10 1116  700 (S19W13 L=196)   277     53        0 (1098/ 665-1130/ 732) -53.1 W12-W15 S21-S17
     11  641  630 (S36E16 L=167)   312     67        2 ( 617/ 598- 665/ 663)  90.0 E18-E13 S37-S32
     12  632  507 (S45E15 L=168)   266     37        1 ( 607/ 485- 653/ 524) -14.0 E17-E13 S46-S43
     13  644  429 (S51E13 L=170)  1128    172        3 ( 604/ 358- 679/ 489)  85.2 E17-E09 S56-S44
     14  988  466 (S37W14 L=196)   246     36        0 ( 966/ 447-1006/ 486)  71.6 W11-W14 S38-S35
     15  692  313 (S60E05 L=178)   554     69        1 ( 662/ 279- 724/ 346)  82.9 E08-E02 S63-S55
  

    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