Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1329 1842 (N55W38 L=285)  2427    150        2 (1275/1791-1394/1893) -85.2 W31-W44 N49-N61
      2 1474 1718 (N43W43 L=290)   428     48        0 (1443/1698-1500/1731)  -9.5 W39-W46 N41-N43
      3 1527 1574 (N31W40 L=287)  3066    467        3 (1326/1499-1730/1627) -10.0 W23-W57 N26-N35
      4 1029 1369 (N18W01 L=249)   694    216        0 ( 945/1306-1127/1427) -38.7 E04-W07 N14-N22
      5 1688 1368 (N17W48 L=295)   711    122        2 (1663/1309-1715/1416) -74.1 W45-W50 N13-N20
      6 1492 1310 (N14W31 L=278)   511    140        0 (1452/1265-1541/1373) -50.2 W28-W34 N10-N17
      7 1793 1235 (N09W55 L=303)   407     66        1 (1771/1210-1815/1261) -33.7 W52-W57 N07-N10
      8  571 1217 (N10E28 L=219)   205     72        0 ( 541/1200- 610/1236)  21.8 E30-E25 N09-N11
      9  215  777 (S14E62 L=186)  1665    266        2 ( 185/ 654- 243/ 904)  71.6 E65-E58 S21-S06
     10 1538  875 (S12W33 L=280)   231     41        0 (1521/ 852-1554/ 903)  56.3 W31-W33 S13-S10
     11 1724  734 (S21W50 L=298)   694    200        1 (1690/ 651-1766/ 824)  74.7 W48-W52 S26-S15
     12 1329  483 (S38W22 L=269)  1677    411        4 (1169/ 423-1473/ 619)  27.6 W09-W30 S42-S28
     13 1594  456 (S40W48 L=295)   500     83        1 (1575/ 423-1617/ 501) -45.0 W43-W51 S42-S36
     14  363  406 (S39E67 L=180)   667     63        1 ( 336/ 376- 388/ 431)   9.5 E79-E61 S40-S37
  

    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