logo_prg Program

  1. logo.f90
  2. logo_prg
program~~logo_prg~~UsesGraph program~logo_prg logo_prg module~kinds_mod kinds_mod module~kinds_mod->program~logo_prg module~utilities_mod utilities_mod module~kinds_mod->module~utilities_mod module~plplotlib_mod plplotlib_mod module~kinds_mod->module~plplotlib_mod module~utilities_mod->program~logo_prg module~utilities_mod->module~plplotlib_mod module~plplotlib_mod->program~logo_prg iso_fortran_env iso_fortran_env iso_fortran_env->module~utilities_mod plplot plplot plplot->module~plplotlib_mod
Help


Create the project logo

Calls

program~~logo_prg~~CallsGraph program~logo_prg logo_prg proc~show show program~logo_prg->proc~show proc~setup setup program~logo_prg->proc~setup proc~makelogo makeLogo program~logo_prg->proc~makelogo plend plend proc~show->plend plfontld plfontld proc~setup->plfontld plsetopt plsetopt proc~setup->plsetopt plinit plinit proc~setup->plinit plsdev plsdev proc~setup->plsdev plsfam plsfam proc~setup->plsfam plsfnam plsfnam proc~setup->plsfnam proc~plot plot proc~makelogo->proc~plot proc~ticks ticks proc~makelogo->proc~ticks proc~xylim xylim proc~makelogo->proc~xylim proc~labels labels proc~makelogo->proc~labels proc~linspace linspace proc~makelogo->proc~linspace interface~mixval mixval proc~makelogo->interface~mixval proc~figure figure proc~makelogo->proc~figure proc~subplot subplot proc~makelogo->proc~subplot plline plline proc~plot->plline plssym plssym proc~plot->plssym plptex plptex proc~plot->plptex plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind pllab pllab proc~labels->pllab pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop pladv pladv proc~figure->pladv plssub plssub proc~figure->plssub proc~subplot->pladv proc~subplot->plssub plvasp plvasp proc~subplot->plvasp plvsta plvsta proc~subplot->plvsta plvpor plvpor proc~subplot->plvpor
Help

Subroutines

subroutine makeLogo()

Arguments

None

Source Code

program logo_prg
	!! Create the project logo
	use kinds_mod
	use utilities_mod
	use plplotlib_mod
	implicit none
	
	call setup(device='pngqt',fileName='logo-%n.png',figSize=[128,128]) 
	call makeLogo
	call show()
	
contains

	subroutine makeLogo
		real(wp),dimension(:),allocatable::x,y1,y2,y3
		
		x  = linspace(0.0_wp,1.0_wp,100)
		y1 = x**2-1.0_wp
		y2 = 2.0_wp*x-1.0_wp
		y3 = x
		y3 = cos(2.0_wp*PI*x)
		
		call figure()
		call subplot(1,1,1)
		call xylim(mixval(x),mixval([y1,y2,y3])*1.1_wp)
		
		call plot(x,y1,lineColor='b',lineWidth=10.0_wp)
		call plot(x,y2,lineColor='r',lineWidth=10.0_wp)
		call plot(x,y3,lineColor='c',lineWidth=10.0_wp)
		
		call ticks(lineWidth=5.0_wp)
		call labels('','','')
	end subroutine makeLogo

end program logo_prg