Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1275 1786 (N46W35 L=358)   673     72        1 (1241/1750-1305/1826)  21.8 W31-W41 N43-N49
      2 1381 1559 (N28W32 L=354)   627    155        0 (1340/1496-1438/1595)  36.9 W27-W36 N23-N30
      3  908 1568 (N34E01 L=322)   556    164        0 ( 835/1529- 971/1593) -12.5 E06-W03 N30-N36
      4  298 1402 (N31E51 L=272)   846    165        2 ( 260/1333- 336/1475) -39.8 E59-E45 N26-N36
      5 1496 1319 (N12W33 L=356)   421     55        2 (1466/1287-1529/1351) -90.0 W31-W35 N09-N13
      6  384 1206 (N17E40 L=282)   543    130        2 ( 342/1149- 427/1260) -53.1 E44-E36 N13-N21
      7 1928 1143 (S03W71 L= 33)  2175    200        4 (1872/1037-1971/1216) -39.8 W63-W79 S09-N01
      8  314 1004 (N06E47 L=276)  2116    362        3 ( 188/ 945- 463/1053)  -7.1 E59-E35 N01-N09
      9 1737  972 (S11W47 L= 10)   271     38        0 (1720/ 947-1756/ 998)  56.3 W45-W48 S12-S09
     10 1784  911 (S16W51 L= 14)   483     71        1 (1753/ 881-1817/ 945)  26.6 W48-W54 S17-S13
     11 1778  853 (S19W51 L= 14)   352     84        2 (1754/ 815-1800/ 882) -59.0 W48-W53 S21-S16
     12  723  824 (S09E20 L=302)   256    113        4 ( 701/ 762- 740/ 879)  66.8 E22-E18 S12-S05
     13 1327  667 (S26W15 L=338)  4293    986        6 ( 865/ 540-1714/ 829)   7.6 E16-W44 S29-S19
     14  288  650 (S14E58 L=265)  1188    183        5 ( 251/ 587- 317/ 736)  52.1 E63-E53 S18-S09
     15  391  682 (S14E47 L=276)   517    116        1 ( 341/ 652- 448/ 704)  -6.3 E50-E41 S15-S11
     16  722  586 (S23E25 L=298)   615    129        3 ( 694/ 528- 759/ 658)  45.0 E28-E21 S26-S19
     17  543  580 (S22E38 L=285)   249     88        0 ( 523/ 545- 570/ 623) -90.0 E39-E36 S24-S18
     18 1714  525 (S40W53 L= 15)   725     70        0 (1683/ 495-1748/ 563)  68.2 W48-W56 S42-S37
     19 1428  446 (S42W24 L=347)  1010    337        4 (1272/ 408-1570/ 482)   0.0 W10-W37 S44-S40
     20  366  404 (S31E67 L=256)  1439    122        3 ( 316/ 375- 429/ 444) -15.9 E80-E60 S33-S27
     21  902  256 (S50E25 L=298)   391     54        2 ( 883/ 227- 921/ 287)  68.2 E27-E22 S52-S47
  

    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