Calendários

"Janeiro", 2 => "Fevereiro", 3 => "Março", 4 => "Abril", 5 => "Maio", 6 => "Junho", 7 => "Julho", 8 => "Agosto", 9 => "Setembro", 10 => "Outubro", 11 => "Novembro", 12 => "Dezembro"); #=================================================================# #================== GLOBAL SETTINGS =====================# #=================================================================# # if [TRUE:FALSE] show the name of month and the year define(WITHCAB, TRUE); define(CREATEIMG, false); #define(CREATEIMG, true); $BASE = "/vhosts/www.neyolas.com.br/html"; $IMGDIR = "cache/calendar"; #$FONTFILE = "cache/calendar/arial.gdf"; $FONTFILE = "$BASE/cache/calendar/arial_bold.ttf"; $WIDTH = 200; $CM = 0; // contador para a matriz de dias $LEGEND_WIDTH = 100; $LEGEND_HEIGHT = 35; $LEGEND_FONT = 3; $FONT_FG = array(0,0,90); #=================================================================# #================== LIBGD SETTINGS =====================# #=================================================================# $LINESPACING = 47; $BORDER = 2; #=================================================================# #================== HTML SETTINGS =====================# #=================================================================# # Define the table color, use #FFFFFF for no border $BORDERCOLOR="#000090"; # Align of table [center:left:right] $ALIGN="center"; # Define the color font of number day $DCOLOR="#000000"; # Define the size font of number day $DSIZE="2"; # Define the face font of number day $DFACE="Helvetica,Verdana,Lucida,Arial"; # Define the color font of week name$WCOLOR="#000090"; $WCOLOR="#000090"; # Define the size font of week name $WSIZE="2"; # Define the face font of week name $WFACE="Lucida,Verdana,Helvetica"; # Define as cores da fase da lua (rgb) $HTMLCOLORS = array( "minguante" => "#00FF00", "nova" => "#0000FF", "crescente" => "#FFFF00", "cheia" => "#FF0000"); $PI = 3.14159265358979323846; $EPOCH_MINUS_1970 = (20 * 365 + 5 - 1); // 20 anos, 5 saltos, volta dia 1 de janeiro de 0 $EOSILONg = 279.403303; // solar ecliptic long at EPOCH $RHOg = 282.768422; // solar ecliptic long of perigee at EPOCH $ECCEN = 0.016713; /* solar orbit eccentricity */ $lzero = 318.351648; /* lunar mean long at EPOCH */ $Pzero = 36.340410; /* lunar mean long of perigee at EPOCH */ $Nzero = 318.510107; /* lunar mean long of node at EPOCH */ $months = array("","Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro"); function legend_draw($str, $bgcolor) { global $LEGEND_WIDTH, $LEGEND_HEIGHT, $LEGEND_FONT, $IMGDIR, $FONT_FG; $bg = split(':', $bgcolor); $st = split(':', $str); $IMAGEM = "$IMGDIR/". strtolower($st[0]).".jpg"; if ( ! file_exists("$IMAGEM") or (CREATEIMG == TRUE) ) { $im = ImageCreate($LEGEND_WIDTH, $LEGEND_HEIGHT); $bg = ImageColorAllocate($im, $bg[0], $bg[1], $bg[2]); // define o fundo $fg = ImageColorAllocate($im, $FONT_FG[0], $FONT_FG[1], $FONT_FG[2]); $x0 = ($LEGEND_WIDTH/2) - (strlen($st[0]) * ImageFontWidth($LEGEND_FONT) / 2 ); $y0 = 0; $x1 = ($LEGEND_WIDTH/2) - (strlen($st[1]) * ImageFontWidth($LEGEND_FONT) / 2 ); $y1 = ImageFontHeight($LEGEND_FONT) + 1; ImageString($im, $LEGEND_FONT, $x0, $y0, $st[0], $fg); ImageString($im, $LEGEND_FONT, $x1, $y1, $st[1], $fg); ImagePNG($im, "$IMAGEM"); ImageDestroy($im); } return("$IMAGEM"); } function moon_legend() { echo("

$\"\"$

"); } function dayFev($year) { if ( ($year % 400 == 0 ) || ( $year % 4 == 0 && $year % 100 != 0) ) { return (29); } else { return (28); } } function adj360(&$deg) { while ( 1 ) { if ($deg < 0) { $deg += 360; } else if ($deg > 360) { $deg -= 360; } else { break; } } } function dtor($deg) { global $PI; return($deg * $PI / 180); } function potm($days) { global $EPSILONg; global $RHOg; global $PI; global $ECCEN; global $lzero; global $Pzero; global $Nzero; $N = (360 * $days / 365.242191); /* sec 46 #3 */ adj360($N); $Msol = $N + $EPSILONg - $RHOg; /* sec 46 #4 */ adj360($Msol); $Ec = 360 / $PI * $ECCEN * sin(dtor($Msol)); /* sec 46 #5 */ $LambdaSol = $N + $Ec + $EPSILONg; /* sec 46 #6 */ adj360($LambdaSol); $l = 13.1763966 * $days + $lzero; /* sec 65 #4 */ adj360($l); $Mm = $l - (0.1114041 * $days) - $Pzero; /* sec 65 #5 */ adj360($Mm); $Nm = $Nzero - (0.0529539 * $days); /* sec 65 #6 */ adj360($Nm); $Ev = 1.2739 * sin(dtor(2*($l - $LambdaSol) - $Mm)); /* sec 65 #7 */ $Ac = 0.1858 * sin(dtor($Msol)); /* sec 65 #8 */ $A3 = 0.37 * sin(dtor($Msol)); $Mmprime = $Mm + $Ev - $Ac - $A3; /* sec 65 #9 */ $Ec = 6.2886 * sin(dtor($Mmprime)); /* sec 65 #10 */ $A4 = 0.214 * sin(dtor(2 * $Mmprime)); /* sec 65 #11 */ $lprime = $l + $Ev + $Ec - $Ac + $A4; /* sec 65 #12 */ $V = 0.6583 * sin(dtor(2 * ($lprime - $LambdaSol))); /* sec 65 #13 */ $ldprime = $lprime + $V; /* sec 65 #14 */ $D = $ldprime - $LambdaSol; /* sec 67 #2 */ return(50.0 * (1 - cos(dtor($D)))); /* sec 67 #3 */ } // bgcolor fase_lua(dd, mm, yy) function fase_lua($day, $month, $year) { global $EPOCH_MINUS_1970; $tot_secs = mktime(0,0,0,$month,$day, $year); // total de segundos para a data corrente $dia = ($tot_secs - $EPOCH_MINUS_1970 * 86400) / 86400.0; $today = potm($dia); $tomorrow = potm($dia + 1); //echo ("dia = $dia
"); //echo ("$CHEIA, $MINGUANTE, $NOVA, $CRESCENTE

"); //echo ("today = $today e tomorrow = $tomorrow"); if ( $today < 50 ) { // pode ser crescente, nova if ( $today < $tomorrow ) { return ("crescente"); } else { return ("nova"); } } if ( $today > 50 ) { // pode ser cheia , ou minguante if ( $today < $tomorrow ) { return ("cheia"); } else { return("minguante"); } } return ("null"); } # função que imprime o calendário ( html ) function calendar($year, $month) { // Test of range $month and valid year if ( $year < 2000 ) { echo ("Year invalid!"); exit; } if ( $month < 1 || $month > 12 ) { echo("Month invalid"); exit; } // Global defines global $BORDERCOLOR, $ALIGN, $WIDTH; global $DCOLOR, $DSIZE, $DFACE; global $WCOLOR, $WSIZE, $WFACE, $months; global $HTMLCOLORS; // Define some array $week = array("DOM", "SEG", "TER", "QUA", "QUI", "SEX", "SAB"); $limitDay = array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); // Get number of week for the first day $BEGINNIG = date("w", mktime(0,0,0,$month,1,$year)); // Test if year is "bissexto" if ( $month == 2 ) { $limitDay[$month] = dayFev($year); } // Get number of week for the last day $END=date("w", mktime(0, 0, 0,$month, $limitDay[$month], $year)); echo ("

\n" ); if ( WITHCAB == TRUE ) { $amonth = $months[$month]; echo ("\n"); } # Make header for ( $i = 0; $i <= count($week) - 1 ; $i++ ) { if ( $i == 0 ) { $WWCOLOR="#FF0000"; } else { $WWCOLOR="$WCOLOR"; } echo("\n"); } echo ("\n"); # Set the begin for ( $i = 0; $i <= 6; $i++ ) { if ( $BEGINNIG == $i ) { $fase = fase_lua(1, $month, $year); $BGCOLOR = $HTMLCOLORS["$fase"]; echo (""); break; } echo(""); } $EOW=(6 - $BEGINNIG); for ( $i = 2,$c=0; $i <= $limitDay[$month]; $i++,$c++ ) { if ( $EOW == $c ) { echo(""); } if ( $c == 6 ) { $c=-1; } $fase=fase_lua($i, $month, $year); $BGCOLOR=$HTMLCOLORS["$fase"]; echo ("\n"); } # Set the end for ( $i=0; $i < (6 - $END); $i++ ) { echo(""); } echo("

$week[$i]
$amonth - $year
1
$i

"); } #===============================================================# #=================== LIBGD FUNCTIONS =========================# #===============================================================# function rec($im, $width, $height, $border, $bordercolor) { $x1 = $y1 = 0; $x2 = $width - 1; $y2 = $height - 1; while ( $border-- ) { ImageRectangle($im, $x1, $y1, $x2, $y2, $bordercolor); $x1++; $y1++; $x2--; $y2--; } } function cab($im, $x1, $x2, $y, $border, $bordercolor, $font, $fontcolor, $str="", $mini=0) { global $FONTFILE; /* $l = 0; while ( $border-- ) { ImageLine($im, $x1, ($y + $l), $x2, ($y + $l), $bordercolor); $l++; } */ #$_font = imageloadFont($FONTFILE); #ImageString($im, $_font, ($x1 + 10), 80, $str, $fontcolor); $fontsize = 18; $x = $x1 + 10; $y = 100; if ( $mini ) { $fontsize = 14; $x = $x1 + 10; $y = 60; } imagefttext($im, $fontsize, 0, $x, $y, $fontcolor, $FONTFILE, $str); } function foot($im, $x, $y, $border, $bordercolor, $font, $fontcolor, $str="") { global $HEIGHT; #ImageLine($im, 0, $y - 20, $x, $y - 20, $bordercolor); ImageString($im, $font, ($x1 + 7), $y - 18, $str, $fontcolor); } function div($im, $x, $y, $border, $bordercolor, $red, $fg, &$calma, $num, $mini=0) { global $CM; global $WIDTH; global $LINESPACING; global $FONTFILE; $week = array("DOM", "SEG", "TER", "QUA", "QUI", "SEX", "SAB"); $unit = floor(($WIDTH-15) / 7); if ( $mini ) { $unit = floor(($WIDTH-5) / 7); } $dom = ($WIDTH % 7); $x1 = $x; $x2 = ($unit + $dom); for ( $i=0; $i<7; $i++ ) { #ImageRectangle($im, $x1, $y, $x2,(2*$y), $bordercolor); //ImageRectangle($im, $x1, $y, $x2,$y+$LINESPACING, $bordercolor); $padding = 0; if ( $num == 0 ) { // dias da semana $color = ($i == 0 ) ? $red : $fg; $start_x = (($x1 + $x2)/2) - (strlen($week[$i]) * ImageFontWidth(3) / 2); #$start_y = $y+($LINESPACING/2) - ImageFontHeight(3) / 2; $start_y = $y+($LINESPACING/2); ImageString($im,3, $start_x, $start_y, $week[$i], $color); } else { $fontsize = 18; if ( $mini ) { $fontsize = 14; } $start_x = (($x1 + $x2)/2) - (strlen($calma[0][$CM]) * ImageFontWidth($fontsize) / 2); #$start_y = $y+(($LINESPACING+$padding)/2) - ImageFontHeight($fontsize) / 2; $start_y = $y+(($LINESPACING)/2); #$start_y = $y+($LINESPACING) - ImageFontHeight(3) / 2; //ImageFill($im, $x1+5, $y+5, $calma[1][$CM]); #$font = imageloadFont($FONTFILE); #ImageString($im, $font, $start_x, $start_y, $calma[0][$CM], $calma[1][$CM]); imagefttext($im, $fontsize, 0, $start_x, $start_y, $calma[1][$CM], $FONTFILE, $calma[0][$CM]); $CM++; } $x1 = $x2; $x2 += $unit; //ImageRectangle($im, ($x+$i*$unit+$aj2), $linespacing, ($x+$i*$unit+$unit+$aj+$aj2),(2*$linespacing), $bordercolor); } } // função que desenha o calendário ( libgd ) function calendar_draw($year, $month, $mini=0) { // Global defines global $BORDERCOLOR, $WIDTH, $months; global $LINESPACING, $BORDER, $CM, $IMGDIR; $limitDay = array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); if ( $mini == 0 ) { $iBase = "calendar_large_base.jpg"; $IMAGEM = "$IMGDIR/$year-$month.jpg"; } else { $iBase = "calendar_base.jpg"; $IMAGEM = "$IMGDIR/mini-$year-$month.jpg"; } //print($IMAGEM); // Test of range $month and valid year if ( $year < 2000 ) { echo ("Year invalid!"); exit; } if ( $month < 1 || $month > 12 ) { echo("Month invalid"); exit; } if ( defined("CREATEIMG") or (! file_exists("$IMAGEM")) ) { if ( file_exists("$IMAGEM") ) unlink("$IMAGEM"); // Test if year is "bissexto" if ( $month == 2 ) { $limitDay[$month] = dayFev($year); } // Get number of week for the first day $BEGINNIG = date("w", mktime(0,0,0,$month,1,$year)); // Get number of week for the last day $END=date("w", mktime(0, 0, 0,$month, $limitDay[$month], $year)); $lines = ceil(($BEGINNIG + $limitDay[$month]) / 7); $extra = ( WITHCAB == TRUE ) ? 2 : 1; $HEIGHT = (($lines + 3) * $LINESPACING); //====== Image Creation =======================// #$im = ImageCreate($WIDTH, $HEIGHT); $im = Imagecreatefromjpeg("$IMGDIR/$iBase"); if ( !$im ) { print("Failed open base image"); } //====== Color allocation =======================// $white = ImageColorAllocate($im, 255, 255, 255); /* $blue = ImageColorAllocate($im, 0, 0, 90); $red = ImageColorAllocate($im, 255, 100, 100); $green = ImageColorAllocate($im, 100, 255, 100); $darkblue = ImageColorAllocate($im, 100, 100, 255); $yellow = ImageColorAllocate($im, 255, 255, 100); */ $blue = ImageColorAllocate($im, 0, 0, 90); #$red = ImageColorAllocate($im, 223, 60, 25); $red = ImageColorAllocate($im, 255, 0, 0); $green = ImageColorAllocate($im, 2, 108, 21); $darkblue = ImageColorAllocate($im, 6, 35, 76); #$yellow = ImageColorAllocate($im, 255, 139, 0); $yellow = ImageColorAllocate($im, 255, 100, 0); $drawcolors = array("minguante" => $green, "nova" => $darkblue, "crescente" => $yellow, "cheia" => $red ); //====== Color wrappers ========================// $bordercolor = $blue; $fg = $blue; //=============== Cria a borda ================// //rec($im, $WIDTH, $HEIGHT, $BORDER, $bordercolor); $fontsize = 4; $cabtxt = "Neyolas Sport Fishing"; if ( $mini ) { $fontsize = 3; $cabtxt = "Neyolas"; } if ( WITHCAB == TRUE ) { $amonth = $months[$month]; cab($im, 0, ($WIDTH - $BORDER), $LINESPACING, ($BORDER - 1),$bordercolor, $fontsize, $white, "$amonth - $year", $mini); } //=============== Begin define MATRIZ of calendar ======// for ($l=0; $l<2; $l++ ) { for ($c=0; $c<42; $c++ ) { $calma[$l][$c] = ""; } } # Set the begin $d = 1; for ($count=0 ; $count <= 6; $count++ ) { if ( $BEGINNIG == $count ) { $fase = fase_lua(1, $month, $year); $calma[0][$count] = $d; $calma[1][$count] = $drawcolors[$fase]; break; } $calma[0][$count] = ""; // dia $calma[1][$count] = ""; // cor de fundo } $count++; for ( $d=2; $d <= $limitDay[$month]; $d++) { $fase=fase_lua($d, $month, $year); $calma[0][$count]=$d; $calma[1][$count]=$drawcolors["$fase"]; $count++; } # Set the end for ( $i=0; $i < (6 - $END); $i++ ) { $calma[0][$count] = ""; $calma[1][$count] = ""; $count++; } //foot($im, $WIDTH, $HEIGHT, $BORDER, $bordercolor, $fontsize, $blue, "http://www.neyolas.com.br"); $y = $LINESPACING + 122; // primeira vez if ( $mini ) { $LINESPACING = 27; $y = $LINESPACING + 72; // primeira vez } $CM = 0; for ($i=1; $i<=($lines); $i++ ) { div($im, 10, $y, ($BORDER - 1), $bordercolor, $red, $fg, $calma, $i, $mini); $y += $LINESPACING; } #ImagePng($im, $IMAGEM); ImageJpeg($im, $IMAGEM); ImageDestroy($im); } if ( file_exists($IMAGEM) ) { $size = GetImageSize($IMAGEM); printf(" $\"\"$ ", $IMAGEM, $size[3]); } else { echo("Não foi possível gerar a imagem."); } } ?> Calendários | Neyolas

Confira abaixo um calendário lunar para uma pesca completa!

IMPORTANTE: O uso desse calendário é exclusivo do site Neyolas Sport Fishing, sendo expressamente proibida a reprodução dessas imagens em qualquer meio de comunicação visual sem a permissão da Neyolas Sport Fishing.

Há mais de 20 anos proporcionando lazer, conforto, tranquilidade e segurança aos nossos pescadores

ENVIE SUA MENSAGEM

Nossa equipe está a disposição para lhe dar o melhor atendimento e responder todas as questões que você ainda possui.

Confira abaixo um calendário lunar para uma pesca completa!

Há mais de 20 anos proporcionando lazer, conforto, tranquilidade e segurança aos nossos pescadores

NOSSOS PARCEIROS

ENVIE SUA MENSAGEM