Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1602 1566 (N26W51 L=313)  2113    348       10 (1475/1463-1718/1666) -49.1 W43-W58 N18-N33
      2 1168 1528 (N29W16 L=278)   734    177        0 (1102/1448-1217/1586) -65.6 W12-W18 N22-N33
      3  734 1447 (N29E14 L=248)   633    188        0 ( 654/1399- 804/1507) -39.3 E20-E09 N24-N33
      4 1643 1407 (N15W47 L=309)   295     59        0 (1621/1370-1663/1434) -76.0 W45-W48 N13-N17
      5  500 1338 (N25E32 L=231)   268     79        1 ( 460/1309- 533/1375) -33.7 E35-E28 N22-N27
      6 1812 1062 (S07W55 L=317)   332     43        1 (1795/1037-1838/1084) -71.6 W53-W58 S08-S05
      7 1835  909 (S16W57 L=319)   448     74        0 (1815/ 876-1866/ 935)  26.6 W55-W61 S18-S14
      8 1724  614 (S34W50 L=312)  1060    202        1 (1631/ 589-1821/ 645)   0.0 W40-W63 S35-S31
      9 1382  556 (S34W19 L=282)   662    113        1 (1352/ 502-1400/ 618)  82.9 W17-W20 S37-S29
     10 1523  554 (S36W31 L=293)   407    123        0 (1473/ 514-1568/ 607)  35.5 W27-W34 S38-S32
     11 1312  467 (S39W14 L=276)   235     54        1 (1280/ 454-1343/ 487)   0.0 W11-W16 S40-S38
     12 1068  439 (S38E05 L=257)   384     77        0 (1032/ 410-1090/ 476)  31.0 E07-E02 S39-S35
     13  808  423 (S36E24 L=238)   358     69        0 ( 781/ 397- 838/ 453) -63.4 E25-E22 S37-S33
     14  746  162 (S57E55 L=207)   601     48        0 ( 733/ 134- 758/ 188)  15.5 E66-E47 S59-S53
  

    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