17時～20時

釣果

　メバル（小）：2、（19cm）：1

　タケノコメバル：（小）：1、（25cm）：1

　カサゴ（小）：3、（中）：1

　レンコ鯛（小）：2、（中）：1

　タナゴ（小）：1

午前10時～13時ごろ

釣果

　カサゴ：5

　レンコ鯛（小）：8、（中）：1

　イワシ：3

小さいフォークで種を取り、きざむ。

果汁がたくさんでるが、これも捨てずに混ぜる。

300gに対し100gの砂糖をまぜ、耐熱ガラスボールに入れ、レンジで600W１５分

６Kgなので２０回弱、これを繰り返す。

釣果：チヌ３匹

場所：西宝伝と東宝伝の間

釣果：ギザミ５、チヌ子３

煮つけにして食べた

https://www.youtube.com/watch?v=imo_s6DMB8Y

からリンクを張っている。

以下、プログラムソース。

=====================================================

//reference
//  http://www.alterawiki.com/wiki/Spi_core
//  http://imagewriteriij.blogspot.jp/2014/01/raspberry-pi-9-lcd-1.html
//  https://www.adafruit.com/datasheets/ILI9340.pdf

//remarks
//  "%f" is not usable in atof() and printf() of small C.
//  size of pow() is too big.
//  angle unit is degree.

//TFT display pin assign
//  MAX10    <=> TFT display
//  MISO.SPI <=  SDO/MISO(9)
//  MOSI.SPI  => SDI/MOSI(6)
//  CLK.SPI   => SCK(7)
//  SS.SPI    => CS(3)
//  0.PIO1    => RESET(4)
//  1.PIO1    => DC/RS(5)
//  2.PIO1    => LED(8)

#include <math.h>
#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include "io.h"
#include "system.h"
#include "alt_types.h"
#include "altera_avalon_timer_regs.h"
#include "altera_avalon_pio_regs.h"
#include "altera_avalon_spi.h"
#include "altera_avalon_spi_regs.h"
#include "sys/alt_stdio.h"
#include "sys/alt_sys_wrappers.h"
#include "sys/alt_cache.h"
#include "sys/alt_cache.h"
#include "sys/alt_irq.h"
#include "sys/alt_alarm.h"

// previous position
double pslat=-999.0;
double pslon=-999.0;
// position from GPS module
double slat;
double slon;
// home
double mclat=34.000000; //自宅の緯度
double mclon=133.000000; //自宅の経度
// center on TFT display
double clat;
double clon;

// 2 to the power of n(=mul)
int mul=10;

// for chattering eliminate
int p_tick=0;

// grid line span (degree)
double wd[21]={0,
  0,0,0,0,1.0,
  0.5,0.5,0.1,0.05,0.05,
  0.01,0.01,0.005,0.005,0.001,
  0.0005,0.0005,0.0001,0,0};

void write_comdat(char f, unsigned char c){
 // send command or data to TFT display
 unsigned char x;
 if(f=='c') IOWR_ALTERA_AVALON_PIO_CLEAR_BITS(PIO_1_BASE, 0x02);
 alt_avalon_spi_command(SPI_MASTER_BASE,0 , 1, &c, 0, &x, 0);
 if(f=='c') IOWR_ALTERA_AVALON_PIO_SET_BITS(PIO_1_BASE, 0x02);
}

void write_dataw(unsigned char* c2){
 // send 2 bytes data to TFT display
 unsigned char x2[2];
 alt_avalon_spi_command(SPI_MASTER_BASE,0 , 2, c2, 0, x2, 0);
}

void addsetx2(unsigned int x1, unsigned int y1, unsigned int x2, unsigned int y2){
 unsigned char cx1[2],cy1[2],cx2[2],cy2[2],cw;
 cx1[0]=x1;
 cx1[1]=x1>>8;
 cw=cx1[0];
 cx1[0]=cx1[1];
 cx1[1]=cw;

 cy1[0]=y1;
 cy1[1]=y1>>8;
 cw=cy1[0];
 cy1[0]=cy1[1];
 cy1[1]=cw;

 cx2[0]=x2;
 cx2[1]=x2>>8;
 cw=cx2[0];
 cx2[0]=cx2[1];
 cx2[1]=cw;

 cy2[0]=y2;
 cy2[1]=y2>>8;
 cw=cy2[0];
 cy2[0]=cy2[1];
 cy2[1]=cw;

 write_comdat('c',0x2A); // set column(x) address
 write_dataw(cx1);
 write_dataw(cx2);
 write_comdat('c',0x2B); // set Page(y) address
 write_dataw(cy1);
 write_dataw(cy2);
 write_comdat('c',0x2C); // Memory Write
}

void datawritex(unsigned int d){
 unsigned char cd[2],cw;
 cd[0]=d;
 cd[1]=d>>8;
 cw=cd[0];
 cd[0]=cd[1];
 cd[1]=cw;

 //write_dataw(cd);
 unsigned char x2[2];
 alt_avalon_spi_command(SPI_MASTER_BASE,0 , 2, cd, 0, x2, 0);
}

// RGB565 bit image "RRRRRGGGGGGBBBBB"
unsigned int toRGB565(unsigned int r,unsigned int g,unsigned int b, unsigned char* c565){
 unsigned int rgb;
 unsigned char cw;
 rgb=((r >> 3) << 11) | ((g >> 2) << 5) | (b >> 3);

 c565[0]=rgb;
 c565[1]=rgb>>8;
 cw=c565[0];
 c565[0]=c565[1];
 c565[1]=cw;
 return rgb;
}

void plotxy(unsigned int x, unsigned int y
  , unsigned int dx,  unsigned int dy
  , unsigned int r, unsigned int g, unsigned int b){
 int i;
 unsigned char c565[2];

 addsetx2(x,y,x+dx-1,y+dy-1); // x1,y1,x2,y2
 toRGB565(r,g,b,c565);
 for(i=0;i<(dx+1)*(dy+1);i++){
  write_dataw(c565);
 }
}

void drawgrid() {
 int i,midx,midy,divx,divy;

 midx=100;
 midy=160;
 plotxy(midx,0,1,320,0,0,0);
 plotxy(0,midy,200,1,0,0,0);
 i=0;
 for(;;) {
  i=i+1;
  divx=i*wd[mul]*(1<<mul);
  if(divx>100) break;
  plotxy(midx+divx,0,1,320,0,0,0);
  plotxy(midx-divx,0,1,320,0,0,0);
 }
 i=0;
 for(;;) {
  i=i+1;
  divy=i*wd[mul]*(1<<mul);
  if(divy>160) break;
  plotxy(0,midy+divy,200,1,0,0,0);
  plotxy(0,midy-divy,200,1,0,0,0);
 }
}

void tftinit(){
 IOWR_ALTERA_AVALON_PIO_DIRECTION(PIO_1_BASE, 0x07);
 IOWR_ALTERA_AVALON_PIO_SET_BITS(PIO_1_BASE, 0x04);

 IOWR_ALTERA_AVALON_PIO_CLEAR_BITS(PIO_1_BASE, 0x01);
 usleep(1000);
 IOWR_ALTERA_AVALON_PIO_SET_BITS(PIO_1_BASE, 0x01);
 usleep(1000);

 //write_comdat('c',0xCB);
 //write_comdat('d',0x39);
 //write_comdat('d',0x2C);
 //write_comdat('d',0x00);
 //write_comdat('d',0x34);
 //write_comdat('d',0x02);
 //write_comdat('c',0xCF);
 //write_comdat('d',0x00);
 //write_comdat('d',0xC1);
 //write_comdat('d',0x30);
 //write_comdat('c',0xE8);
 //write_comdat('d',0x85);
 //write_comdat('d',0x00);
 //write_comdat('d',0x78);
 //write_comdat('c',0xEA);
 //write_comdat('d',0x00);
 //write_comdat('d',0x00);
 //write_comdat('c',0xED);
 //write_comdat('d',0x64);
 //write_comdat('d',0x03);
 //write_comdat('d',0x12);
 //write_comdat('d',0x81);
 //write_comdat('c',0xF7);
 //write_comdat('d',0x20);
// write_comdat('c',0xC0); //Power control
// write_comdat('d',0x23); //VRH[5:0]
// write_comdat('c',0xC1); //Power control
// write_comdat('d',0x10); //SAP[2:0];BT[3:0]
// write_comdat('c',0xC5); //VCM control
// write_comdat('d',0x3e);
// write_comdat('d',0x28);
// write_comdat('c',0xC7); //VCM control2
// write_comdat('d',0x86); //--

 write_comdat('c',0x36); // Memory Access Control
 write_comdat('d',0x88); // Rotation(0x28,0x48,0x88,0xE8)
       // 0x48 up=>bottom:Xaxis, right=>left:Yaxis
       // 0x88 bottom=>up:Xaxis, left=>right:Yaxis
 write_comdat('c',0x3A); //Pixel Format Set
 write_comdat('d',0x55); // 0x55:16bits/pixel, 0x66:18bits/pixel

// write_comdat('c',0xB1);
// write_comdat('d',0x00);
// write_comdat('d',0x18);
// write_comdat('c',0xB6); //Display Function Control
// write_comdat('d',0x08);
// write_comdat('d',0x82);
// write_comdat('d',0x27);

 //write_comdat('c',0xF2); //3Gamma Function Disable
 //write_comdat('d',0x00);

// write_comdat('c',0x26); //Gamma curve selected
// write_comdat('d',0x01);
// write_comdat('c',0xE0); //Set Gamma
// write_comdat('d',0x0F);
// write_comdat('d',0x31);
// write_comdat('d',0x2B);
// write_comdat('d',0x0C);
// write_comdat('d',0x0E);
// write_comdat('d',0x08);
// write_comdat('d',0x4E);
// write_comdat('d',0xF1);
// write_comdat('d',0x37);
// write_comdat('d',0x07);
// write_comdat('d',0x10);
// write_comdat('d',0x03);
// write_comdat('d',0x0E);
// write_comdat('d',0x09);
// write_comdat('d',0x00);
// write_comdat('c',0xE1); //Set Gamma
// write_comdat('d',0x00);
// write_comdat('d',0x0E);
// write_comdat('d',0x14);
// write_comdat('d',0x03);
// write_comdat('d',0x11);
// write_comdat('d',0x07);
// write_comdat('d',0x31);
// write_comdat('d',0xC1);
// write_comdat('d',0x48);
// write_comdat('d',0x08);
// write_comdat('d',0x0F);
// write_comdat('d',0x0C);
// write_comdat('d',0x31);
// write_comdat('d',0x36);
// write_comdat('d',0x0F);

 write_comdat('c',0x11); //Exit Sleep
 usleep(1000);
 write_comdat('c',0x29); //Display on

// write_comdat('c',0x2C);

//write_comdat('c',0x21); //Display Inversion ON
//write_comdat('c',0x20); //Display Inversion OFF

}

void drawbase(){
 int i,org=280;

 // scale
 plotxy(0,315,18*10,5,0,0,0);
 plotxy(0,315,mul*10,5,0,255,0);
 for(i=1;i<=18;i++) {
  if(i%5==0) {
   plotxy(i*10,315,2,5,255,0,0);
  } else {
   plotxy(i*10,315,1,5,0,0,255);
  }
 }

 if(wd[mul]==1.0) {
  plotxy(0,org,5,3,255,0,0); //1
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
 } else if(wd[mul]==0.5) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,0,0,255); //5
 } else if(wd[mul]==0.1) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,0,0); //1
 } else if(wd[mul]==0.05) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
  plotxy(0,org+15,5,3,0,0,255); //5
 } else if(wd[mul]==0.01) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
  plotxy(0,org+15,5,3,255,0,0); //1
 } else if(wd[mul]==0.005) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
  plotxy(0,org+15,5,3,255,255,0); //0
  plotxy(0,org+20,5,3,0,0,255); //5
 } else if(wd[mul]==0.001) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
  plotxy(0,org+15,5,3,255,255,0); //0
  plotxy(0,org+20,5,3,255,0,0); //1
 } else if(wd[mul]==0.0005) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
  plotxy(0,org+15,5,3,255,255,0); //0
  plotxy(0,org+20,5,3,255,255,0); //0
  plotxy(0,org+25,5,3,0,0,255); //5
 } else if(wd[mul]==0.0001) {
  plotxy(0,org,5,3,255,255,0); //0
  plotxy(0,org+5,5,3,0,0,0); //.
  plotxy(0,org+10,5,3,255,255,0); //0
  plotxy(0,org+15,5,3,255,255,0); //0
  plotxy(0,org+20,5,3,255,255,0); //0
  plotxy(0,org+25,5,3,255,0,0); //1
 }

 for(i=0;i<60;i++) {
  if(i%5==0) plotxy(205,i*5,5,2,0,0,0);
  if(i%10==0) plotxy(200,i*5,5,2,0,0,0);
  plotxy(210,i*5,10,2,0,0,0);
  plotxy(220,i*5,10,2,0,0,0);
 }
 for(i=0;i<24;i++) {
  plotxy(230,i*5,10,2,0,0,0);
 }
 for(i=0;i<3;i++) {
  plotxy(235,150+i*5,5,2,0,0,0);
 }
 for(i=0;i<20;i++) {
  plotxy(235,200+i*5,5,2,0,0,0);
 }
}
static void switch_callback(void* context, alt_u32 id) {
 int pos;
 int n_tick;
 alt_u32 irid;

 // interrupt disable
 irid= alt_irq_disable_all ();

 pos=IORD_ALTERA_AVALON_PIO_EDGE_CAP(PIO_2_BASE);
 IOWR_ALTERA_AVALON_PIO_EDGE_CAP(PIO_2_BASE,0x0); // execute immediately after IORD_
 IOWR_ALTERA_AVALON_PIO_IRQ_MASK(PIO_2_BASE,0xf);

 n_tick=alt_nticks();
 if(p_tick<=0 || n_tick - p_tick > 100) {
  p_tick=n_tick;

  if(pos==2) {
   if(slat!=999.0 && slon!=999.0) {
    clat=slat;
    clon=slon;
   }
  } else if(pos==4) {
   if(mul>=6 && mul <=18) mul=mul-1;
  } else if(pos==8) {
   if(mul>=5 && mul <=17) mul=mul+1;
  }
  tftinit();
  //plotxy(0,0,240,320,64,128,128);
  drawgrid();
  drawbase();
 }
 // interrupt enable
 alt_irq_enable_all(irid);
}

int main() {
 clat=mclat;
 clon=mclon;
 // interrupt register
 IOWR_ALTERA_AVALON_PIO_IRQ_MASK(PIO_2_BASE,0xF);
 IOWR_ALTERA_AVALON_PIO_EDGE_CAP(PIO_2_BASE,0x0);
 alt_ic_isr_register(
   PIO_2_IRQ_INTERRUPT_CONTROLLER_ID,
   PIO_2_IRQ,
   switch_callback,
   PIO_2_BASE,NULL);

 // interrupt disable
 alt_u32 irid;
 irid= alt_irq_disable_all ();

 int mul2;
 int i,j,m,n;
 // for GPS
 unsigned long regval;
 unsigned long regval0;
 int max=100;
 char buf[max]; //Receive Data
 char head[10]; //Header($GPGGA)
 char wtime[15]; //UTC time(hhmmss.sss)
 char lat[15]; //Latitude(ddmm.mmmm)
 char NS[5];  //North,South
 char lon[15]; //Longitude(dddmm.mmmm)
 char EW[5];  //East,West
 char QL[5];  //Position fix quality indicator
 char sat[5]; //Number of satellites in use

 char HH[3]; // hour
 char MM[3]; // min
 char SS[3]; //sec
 int ihh,imm,iss;
 int pihh=-1,pimm=-1,piss=-1;

 int ilat,ilon;
 int pilat=-999,pilon=-999;

 char ID3[4],IM6[7]; //latitude work
 int iid,iim;
 char KD3[4],KM6[7]; //longitude work
 int ikd,ikm;

 int iql,isat;
 int piql=-1,pisat=-1;

 int c; // item identify

 // TFT initialize
 tftinit();
 //plotxy(0,0,240,320,64,128,255);
 drawgrid();
 drawbase();

 // GPS receive initialize
 *(volatile unsigned long *)(UART_0_BASE+4*4)=10416; //4800 bps

 for(j=0;j<max;j++) {
  buf[j]='\0';
 }

 i=0;
 while(1) {
  // interrupt enable
  alt_irq_enable_all(irid);
  regval=0;
  while((regval & 0x0080) == 0) {
   regval=*(volatile unsigned long *)(UART_0_BASE+2*4);
  }
  // interrupt disable
  irid= alt_irq_disable_all ();

  regval0=*(volatile unsigned long *)(UART_0_BASE);
  buf[i]=regval0;
  if(buf[i]=='\r') buf[i]='\0';
  if(buf[i]=='\n') {
   buf[i]='\0';
   //if(memcmp(buf,"$GPRMC",6)==0) {
   // printf("buf=%s, len=%d\n",buf,strlen(buf));
   //}
   if(memcmp(buf,"$GPGGA",6)==0) {
    //printf("buf=%s, len=%d\n",buf,strlen(buf));
    c=1;
    n=0;
    for(m=0;m<strlen(buf);m++) {
     if(buf[m]==',') {
      if(c==1) memcpy(&head[n],"\0",1);
      if(c==2) memcpy(&wtime[n],"\0",1);
      if(c==3) memcpy(&lat[n],"\0",1);
      if(c==4) memcpy(&NS[n],"\0",1);
      if(c==5) memcpy(&lon[n],"\0",1);
      if(c==6) memcpy(&EW[n],"\0",1);
      if(c==7) memcpy(&QL[n],"\0",1);
      if(c==8) memcpy(&sat[n],"\0",1);
      c=c+1;
      n=0;
     } else {
      if(c==1) memcpy(&head[n],&buf[m],1);
      if(c==2) memcpy(&wtime[n],&buf[m],1);
      if(c==3) memcpy(&lat[n],&buf[m],1);
      if(c==4) memcpy(&NS[n],&buf[m],1);
      if(c==5) memcpy(&lon[n],&buf[m],1);
      if(c==6) memcpy(&EW[n],&buf[m],1);
      if(c==7) memcpy(&QL[n],&buf[m],1);
      if(c==8) memcpy(&sat[n],&buf[m],1);
      n=n+1;
     }
    }

    if(strlen(wtime)==10) {
     memcpy(HH,&wtime[0],2);
     HH[2]='\0';
     ihh=atoi(HH)+9; // UTC=>JST
     if(ihh>=24) ihh=ihh-24;
     memcpy(MM,&wtime[2],2);
     MM[2]='\0';
     imm=atoi(MM);
     memcpy(SS,&wtime[4],2);
     SS[2]='\0';
     iss=atoi(SS);

    } else {
     ihh=-1;
     imm=-1;
     iss=-1;
    }
    // latitude
    if(strlen(lat)==9) {
     memcpy(ID3,lat,2);
     ID3[2]='\0';
     memcpy(&IM6[0],&lat[2],2);
     memcpy(&IM6[2],&lat[5],4);
     IM6[6]='\0';
     iid=atoi(ID3);
     iim=atoi(IM6);
     slat=iid+iim/600000.0;
     if(NS[0]=='N') {
      // nop
     } else if(NS[0]=='S') {
      slat=-1*slat;
     } else {
      slat=999.0;
     }
    } else {
     slat=999.0;
    }
    // longitude
    if(strlen(lon)==10) {
     memcpy(KD3,lon,3);
     KD3[3]='\0';
     memcpy(&KM6[0],&lon[3],2);
     memcpy(&KM6[2],&lon[6],4);
     KM6[6]='\0';
     ikd=atoi(KD3);
     ikm=atoi(KM6);
     slon=ikd+ikm/600000.0;
     if(EW[0]=='E') {
      // nop
     } else if(EW[0]=='W') {
      slon=-1*slon;
     } else {
      slon=999.0;
     }
    } else {
     slon=999.0;
    }
    // quality
    if(strlen(QL)==1) {
     iql=atoi(QL);
    } else {
     iql=0;
    }
    // satellites
    if(strlen(sat)==2) {
     isat=atoi(sat);
    } else {
     isat=0;
    }

    // sec plot
    if(piss!=-1 && piss!=iss) {
     plotxy(210,piss*5,10,2,0,0,0);
    }
    plotxy(210,iss*5,10,2,255,0,0);
    piss=iss;

    // min plot
    if(pimm!=-1 && pimm!=imm) {
     plotxy(220,pimm*5,10,2,0,0,0);
    }
    plotxy(220,imm*5,10,2,0,255,0);
    pimm=imm;

    // hour plot
    if(pihh!=-1 && pihh!=ihh) {
     plotxy(230,pihh*5,10,2,0,0,0);
    }
    plotxy(230,ihh*5,10,2,255,255,255);
    pihh=ihh;

    //home position plot
    mul2=1 << mul;
    pilat=100+(mclat-clat)*mul2;
    pilon=160+(mclon-clon)*mul2;
    plotxy(pilat,pilon,5,5,255,255,255);

    //position plot
    if(slat!=999.0 && slon!=999.0) {
     ilat=100+(slat-clat)*mul2;
     ilon=160+(slon-clon)*mul2;
     if(pslat!=-999.0) {
      pilat=100+(pslat-clat)*mul2;
      pilon=160+(pslon-clon)*mul2;
      plotxy(pilat,pilon,5,5,0,0,0);
     }
     plotxy(ilat,ilon,5,5,255,0,0);
     pslat=slat;
     pslon=slon;
    }

    // quality
    if(piql!=-1) {
     plotxy(235,150+piql*5,5,2,0,0,0);
    }
    if(iql==0) plotxy(235,150+iql*5,5,2,255,0,0);
    if(iql==1) plotxy(235,150+iql*5,5,2,0,255,0);
    if(iql==2) plotxy(235,150+iql*5,5,2,0,0,255);
    piql=iql;

    // satellites
    if(pisat!=-1) {
     plotxy(235,200+pisat*5,5,2,0,0,0);
    }
    if(isat<5) {
     plotxy(235,200+isat*5,5,2,255,0,0);
    } else {
     plotxy(235,200+isat*5,5,2,0,255,0);
    }
    pisat=isat;

   }
   for(j=0;j<max;j++) {
    buf[j]='\0';
   }
   i=0;
  } else {
   i=i+1;
  }
 }
 return 0;
}

=====================================================

ところで、描画速度が遅いので、Signal Tap IIで信号を見てみた。

１バイトごとのデータの送出間隔が長い、ということが分かったが、

プログラム的にはこれ以上改良の余地がないような気がする。

NIOS II/eだから処理速度が遅いのかもしれない。

有償のNIOS II/f で試してみたいが、購入前のお試し方法が分からない。

・サバ（小）　５匹

・かさご（小）　１匹

東宝伝　/　２０１５年７月５日

・あいなめ（20cm程/小）　３匹/２匹

・かさご（15cm）　１匹

・ハゼ（極小）　１匹　→　猫の餌

（ふぐ、ヒトデ）

＝＝＝＝＝＝＝＝＝＝＝＝＝

私は憲法違反である安全保障関連法案に反対ですが、
どうしても採決するのであれば、党議拘束をかけないようにしてください。
多くの国民が反対している状況で自民党議員のほぼ全員が心から賛成しているとは考えられません。
議員が、「自由」に考え方を表すことができないとしたら、「民主」主義ではないと思います。
すべての意見に目をとおしているとのこと、私の意見について党の考え方をメールで回答してください。
また、マスコミを通じて党議拘束をするのかしないのか表明してください。
＝＝＝＝＝＝＝＝＝＝＝＝＝