Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1356 1832 (N42W66 L=171)   519     36        0 (1341/1804-1371/1858)  24.0 W61-W71 N39-N43
      2  337 1559 (N59E55 L= 50)   540     62        1 ( 301/1545- 375/1572)  -8.1 E67-E46 N57-N61
      3 1505 1535 (N20W47 L=153)   495     73        2 (1479/1494-1529/1567)  68.2 W45-W49 N17-N22
      4 1567 1497 (N16W50 L=155)   370     74        1 (1544/1457-1592/1529)  78.7 W48-W51 N13-N18
      5  618 1477 (N44E15 L= 90)   243     83        0 ( 603/1439- 637/1516)  53.1 E16-E12 N42-N46
      6  275 1295 (N41E52 L= 53)   629    135        0 ( 264/1227- 285/1358) -83.7 E54-E50 N36-N45
      7  722 1284 (N29E11 L= 94)   259    104        0 ( 675/1254- 765/1314) -51.3 E13-E08 N26-N32
      8  486 1121 (N25E31 L= 74)   658    155        0 ( 427/1076- 556/1166) -45.0 E35-E26 N21-N29
      9  247 1051 (N26E55 L= 51)  1291    152        4 ( 187/1006- 303/1113)  18.4 E62-E48 N23-N29
     10  586 1030 (N18E26 L= 79)   233     39        2 ( 562/1004- 610/1050)  33.7 E27-E24 N16-N18
     11 1651  981 (S14W37 L=142)   844    191        0 (1563/ 937-1728/1027)  -4.1 W29-W43 S15-S12
     12  282  993 (N22E51 L= 54)   344     54        0 ( 264/ 967- 303/1023)  45.0 E53-E48 N20-N23
     13 1869  994 (S21W58 L=163)   662     38        1 (1847/ 964-1890/1019)  21.8 W55-W61 S22-S19
     14  619  960 (N13E25 L= 80)   241     94        1 ( 596/ 919- 647/1005) -78.7 E26-E24 N10-N15
     15  273  911 (N17E54 L= 51)  1251    235        4 ( 214/ 806- 333/ 980) -57.5 E60-E48 N10-N22
     16 1394  636 (S26W11 L=117)   915    268        0 (1322/ 528-1442/ 754)  42.5 W04-W16 S31-S19
     17 1140  539 (S24E07 L= 98)  1480    570        0 ( 971/ 359-1322/ 714)  22.1 E24-W08 S32-S18
     18 1769  627 (S41W45 L=150)  1194    136        1 (1713/ 594-1828/ 672)   0.0 W37-W54 S42-S39
     19  502  342 (S21E60 L= 45)   827     54        0 ( 473/ 314- 530/ 373)  20.0 E66-E55 S23-S19
  

    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