summaryrefslogtreecommitdiff
path: root/gfx/template
diff options
context:
space:
mode:
Diffstat (limited to 'gfx/template')
-rw-r--r--gfx/template/Makefile1249
-rw-r--r--gfx/template/Makefile.fpc22
-rw-r--r--gfx/template/gfx_xxx.pas435
-rw-r--r--gfx/template/gfxinterface.pas46
4 files changed, 1752 insertions, 0 deletions
diff --git a/gfx/template/Makefile b/gfx/template/Makefile
new file mode 100644
index 00000000..a89c9e5c
--- /dev/null
+++ b/gfx/template/Makefile
@@ -0,0 +1,1249 @@
+#
+# Makefile generated by fpcmake v1.00 [2000/12/14]
+#
+
+defaultrule: all
+
+#####################################################################
+# Autodetect OS (Linux or Dos or Windows NT)
+# define inUnix when running under Unix (Linux,FreeBSD)
+# define inWinNT when running under WinNT
+#####################################################################
+
+# We need only / in the path
+override PATH:=$(subst \,/,$(PATH))
+
+# Search for PWD and determine also if we are under linux
+PWD:=$(strip $(wildcard $(addsuffix /pwd.exe,$(subst ;, ,$(PATH)))))
+ifeq ($(PWD),)
+PWD:=$(strip $(wildcard $(addsuffix /pwd,$(subst :, ,$(PATH)))))
+ifeq ($(PWD),)
+nopwd:
+ @echo You need the GNU utils package to use this Makefile!
+ @echo Get ftp://ftp.freepascal.org/pub/fpc/dist/go32v2/utilgo32.zip
+ @exit
+else
+inUnix=1
+endif
+else
+PWD:=$(firstword $(PWD))
+endif
+
+# Detect NT - NT sets OS to Windows_NT
+# Detect OS/2 - OS/2 has OS2_SHELL defined
+ifndef inUnix
+ifeq ($(OS),Windows_NT)
+inWinNT=1
+else
+ifdef OS2_SHELL
+inOS2=1
+endif
+endif
+endif
+
+# The extension of executables
+ifdef inUnix
+SRCEXEEXT=
+else
+SRCEXEEXT=.exe
+endif
+
+# The path which is searched separated by spaces
+ifdef inUnix
+SEARCHPATH=$(subst :, ,$(PATH))
+else
+SEARCHPATH=$(subst ;, ,$(PATH))
+endif
+
+# Base dir
+ifdef PWD
+BASEDIR:=$(shell $(PWD))
+else
+BASEDIR=.
+endif
+
+#####################################################################
+# FPC version/target Detection
+#####################################################################
+
+# What compiler to use ?
+ifndef FPC
+# Compatibility with old makefiles
+ifdef PP
+FPC=$(PP)
+else
+FPC=ppc386
+endif
+endif
+override FPC:=$(subst $(SRCEXEEXT),,$(FPC))
+override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT)
+
+# Target OS
+ifndef OS_TARGET
+OS_TARGET:=$(shell $(FPC) -iTO)
+endif
+
+# Source OS
+ifndef OS_SOURCE
+OS_SOURCE:=$(shell $(FPC) -iSO)
+endif
+
+# Target CPU
+ifndef CPU_TARGET
+CPU_TARGET:=$(shell $(FPC) -iTP)
+endif
+
+# Source CPU
+ifndef CPU_SOURCE
+CPU_SOURCE:=$(shell $(FPC) -iSP)
+endif
+
+# FPC version
+ifndef FPC_VERSION
+FPC_VERSION:=$(shell $(FPC) -iV)
+endif
+
+export FPC OS_TARGET OS_SOURCE CPU_TARGET CPU_SOURCE FPC_VERSION FPCOPT
+
+#####################################################################
+# FPCDIR Setting
+#####################################################################
+
+# Test FPCDIR to look if the RTL dir exists
+ifdef FPCDIR
+override FPCDIR:=$(subst \,/,$(FPCDIR))
+ifeq ($(wildcard $(FPCDIR)/rtl),)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=wrong
+endif
+endif
+else
+override FPCDIR=wrong
+endif
+
+# Default FPCDIR
+ifeq ($(FPCDIR),wrong)
+override FPCDIR=../../../..
+ifeq ($(wildcard $(FPCDIR)/rtl),)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=wrong
+endif
+endif
+endif
+
+# Detect FPCDIR
+ifeq ($(FPCDIR),wrong)
+ifdef inUnix
+override FPCDIR=/usr/local/lib/fpc/$(FPC_VERSION)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=/usr/lib/fpc/$(FPC_VERSION)
+endif
+else
+override FPCDIR:=$(subst /$(FPC),,$(firstword $(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))))
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(FPCDIR)/rtl),)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR:=$(FPCDIR)/..
+ifeq ($(wildcard $(FPCDIR)/rtl),)
+ifeq ($(wildcard $(FPCDIR)/units),)
+override FPCDIR=c:/pp
+endif
+endif
+endif
+endif
+endif
+endif
+
+ifndef PACKAGESDIR
+PACKAGESDIR=$(FPCDIR)/packages
+endif
+ifndef TOOLKITSDIR
+TOOLKITSDIR=
+endif
+ifndef COMPONENTSDIR
+COMPONENTSDIR=
+endif
+
+# Create units dir
+ifneq ($(FPCDIR),.)
+UNITSDIR=$(FPCDIR)/units/$(OS_TARGET)
+endif
+
+#####################################################################
+# User Settings
+#####################################################################
+
+
+# Targets
+
+override UNITOBJECTS+=gfx_xxx
+override RSTOBJECTS+=gfx_xxx
+
+# Clean
+
+
+# Install
+
+ZIPTARGET=install
+
+# Defaults
+
+override NEEDOPT=-S2h
+
+# Directories
+
+override NEEDUNITDIR=..
+
+# Packages
+
+override PACKAGES+=rtl
+
+# Libraries
+
+LIBNAME=fpgfx_xxx
+
+# Info
+
+INFOTARGET=fpc_infocfg fpc_infoobjects fpc_infoinstall
+
+#####################################################################
+# Shell tools
+#####################################################################
+
+# echo
+ifndef ECHO
+ECHO:=$(strip $(wildcard $(addsuffix /gecho$(EXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ECHO),)
+ECHO:=echo
+ECHOE:=echo
+else
+ECHO:=$(firstword $(ECHO))
+ECHOE=$(ECHO) -E
+endif
+else
+ECHO:=$(firstword $(ECHO))
+ECHOE=$(ECHO) -E
+endif
+endif
+
+# To copy pograms
+ifndef COPY
+COPY:=cp -fp
+endif
+
+# Copy a whole tree
+ifndef COPYTREE
+COPYTREE:=cp -rfp
+endif
+
+# To move pograms
+ifndef MOVE
+MOVE:=mv -f
+endif
+
+# Check delete program
+ifndef DEL
+DEL:=rm -f
+endif
+
+# Check deltree program
+ifndef DELTREE
+DELTREE:=rm -rf
+endif
+
+# To install files
+ifndef INSTALL
+ifdef inUnix
+INSTALL:=install -c -m 644
+else
+INSTALL:=$(COPY)
+endif
+endif
+
+# To install programs
+ifndef INSTALLEXE
+ifdef inUnix
+INSTALLEXE:=install -c -m 755
+else
+INSTALLEXE:=$(COPY)
+endif
+endif
+
+# To make a directory.
+ifndef MKDIR
+ifdef inUnix
+MKDIR:=install -m 755 -d
+else
+MKDIR:=ginstall -m 755 -d
+endif
+endif
+
+export ECHO ECHOE COPY COPYTREE MOVE DEL DELTREE INSTALL INSTALLEXE MKDIR
+
+#####################################################################
+# Default Tools
+#####################################################################
+
+# assembler, redefine it if cross compiling
+ifndef AS
+AS=as
+endif
+
+# linker, but probably not used
+ifndef LD
+LD=ld
+endif
+
+# ppas.bat / ppas.sh
+ifdef inUnix
+PPAS=ppas.sh
+else
+ifdef inOS2
+PPAS=ppas.cmd
+else
+PPAS=ppas.bat
+endif
+endif
+
+# ldconfig to rebuild .so cache
+ifdef inUnix
+LDCONFIG=ldconfig
+else
+LDCONFIG=
+endif
+
+# ppumove
+ifndef PPUMOVE
+PPUMOVE:=$(strip $(wildcard $(addsuffix /ppumove$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(PPUMOVE),)
+PPUMOVE=
+else
+PPUMOVE:=$(firstword $(PPUMOVE))
+endif
+endif
+export PPUMOVE
+
+# ppufiles
+ifndef PPUFILES
+PPUFILES:=$(strip $(wildcard $(addsuffix /ppufiles$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(PPUFILES),)
+PPUFILES=
+else
+PPUFILES:=$(firstword $(PPUFILES))
+endif
+endif
+export PPUFILES
+
+# Look if UPX is found for go32v2 and win32. We can't use $UPX becuase
+# upx uses that one itself (PFV)
+ifndef UPXPROG
+ifeq ($(OS_TARGET),go32v2)
+UPXPROG:=1
+endif
+ifeq ($(OS_TARGET),win32)
+UPXPROG:=1
+endif
+ifdef UPXPROG
+UPXPROG:=$(strip $(wildcard $(addsuffix /upx$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(UPXPROG),)
+UPXPROG=
+else
+UPXPROG:=$(firstword $(UPXPROG))
+endif
+else
+UPXPROG=
+endif
+endif
+export UPXPROG
+
+# ZipProg, you can't use Zip as the var name (PFV)
+ifndef ZIPPROG
+ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(ZIPPROG),)
+ZIPPROG=
+else
+ZIPPROG:=$(firstword $(ZIPPROG))
+endif
+endif
+export ZIPPROG
+
+ZIPOPT=-9
+ZIPEXT=.zip
+
+# Tar
+ifndef TARPROG
+TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
+ifeq ($(TARPROG),)
+TARPROG=
+else
+TARPROG:=$(firstword $(TARPROG))
+endif
+endif
+export TARPROG
+
+ifeq ($(USETAR),bz2)
+TAROPT=vI
+TAREXT=.tar.bz2
+else
+TAROPT=vz
+TAREXT=.tar.gz
+endif
+
+#####################################################################
+# Default extensions
+#####################################################################
+
+# Default needed extensions (Go32v2,Linux)
+LOADEREXT=.as
+EXEEXT=.exe
+PPLEXT=.ppl
+PPUEXT=.ppu
+OEXT=.o
+ASMEXT=.s
+SMARTEXT=.sl
+STATICLIBEXT=.a
+SHAREDLIBEXT=.so
+RSTEXT=.rst
+FPCMADE=fpcmade
+
+# Go32v1
+ifeq ($(OS_TARGET),go32v1)
+PPUEXT=.pp1
+OEXT=.o1
+ASMEXT=.s1
+SMARTEXT=.sl1
+STATICLIBEXT=.a1
+SHAREDLIBEXT=.so1
+FPCMADE=fpcmade.v1
+endif
+
+# Go32v2
+ifeq ($(OS_TARGET),go32v2)
+FPCMADE=fpcmade.dos
+endif
+
+# Linux
+ifeq ($(OS_TARGET),linux)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.lnx
+endif
+
+# Linux
+ifeq ($(OS_TARGET),freebsd)
+EXEEXT=
+HASSHAREDLIB=1
+FPCMADE=fpcmade.freebsd
+endif
+
+# Win32
+ifeq ($(OS_TARGET),win32)
+PPUEXT=.ppw
+OEXT=.ow
+ASMEXT=.sw
+SMARTEXT=.slw
+STATICLIBEXT=.aw
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.w32
+endif
+
+# OS/2
+ifeq ($(OS_TARGET),os2)
+PPUEXT=.ppo
+ASMEXT=.so2
+OEXT=.oo2
+SMARTEXT=.so
+STATICLIBEXT=.ao2
+SHAREDLIBEXT=.dll
+FPCMADE=fpcmade.os2
+endif
+
+# library prefix
+LIBPREFIX=lib
+ifeq ($(OS_TARGET),go32v2)
+LIBPREFIX=
+endif
+ifeq ($(OS_TARGET),go32v1)
+LIBPREFIX=
+endif
+
+# determine which .pas extension is used
+ifndef PASEXT
+ifdef EXEOBJECTS
+override TESTPAS:=$(strip $(wildcard $(addsuffix .pas,$(firstword $(EXEOBJECTS)))))
+else
+override TESTPAS:=$(strip $(wildcard $(addsuffix .pas,$(firstword $(UNITOBJECTS)))))
+endif
+ifeq ($(TESTPAS),)
+PASEXT=.pp
+else
+PASEXT=.pas
+endif
+endif
+
+
+# Check if the dirs really exists, else turn it off
+ifeq ($(wildcard $(UNITSDIR)),)
+UNITSDIR=
+endif
+ifeq ($(wildcard $(TOOLKITSDIR)),)
+TOOLKITSDIR=
+endif
+ifeq ($(wildcard $(PACKAGESDIR)),)
+PACKAGESDIR=
+endif
+ifeq ($(wildcard $(COMPONENTSDIR)),)
+COMPONENTSDIR=
+endif
+
+
+# PACKAGESDIR packages
+
+PACKAGERTL=1
+
+ifdef PACKAGERTL
+ifneq ($(wildcard $(FPCDIR)/rtl),)
+ifneq ($(wildcard $(FPCDIR)/rtl/$(OS_TARGET)),)
+PACKAGEDIR_RTL=$(FPCDIR)/rtl/$(OS_TARGET)
+else
+PACKAGEDIR_RTL=$(FPCDIR)/rtl
+endif
+ifeq ($(wildcard $(PACKAGEDIR_RTL)/$(FPCMADE)),)
+override COMPILEPACKAGES+=package_rtl
+package_rtl:
+ $(MAKE) -C $(PACKAGEDIR_RTL) all
+endif
+UNITDIR_RTL=$(PACKAGEDIR_RTL)
+else
+PACKAGEDIR_RTL=
+ifneq ($(wildcard $(UNITSDIR)/rtl),)
+ifneq ($(wildcard $(UNITSDIR)/rtl/$(OS_TARGET)),)
+UNITDIR_RTL=$(UNITSDIR)/rtl/$(OS_TARGET)
+else
+UNITDIR_RTL=$(UNITSDIR)/rtl
+endif
+else
+UNITDIR_RTL=
+endif
+endif
+ifdef UNITDIR_RTL
+override NEEDUNITDIR+=$(UNITDIR_RTL)
+endif
+endif
+
+
+#####################################################################
+# Default Directories
+#####################################################################
+
+# Linux and freebsd use unix dirs with /usr/bin, /usr/lib
+# When zipping use the target as default, when normal install then
+# use the source os as default
+ifdef ZIPNAME
+# Zipinstall
+ifeq ($(OS_TARGET),linux)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_TARGET),freebsd)
+UNIXINSTALLDIR=1
+endif
+else
+# Normal install
+ifeq ($(OS_SOURCE),linux)
+UNIXINSTALLDIR=1
+endif
+ifeq ($(OS_SOURCE),freebsd)
+UNIXINSTALLDIR=1
+endif
+endif
+
+# set the prefix directory where to install everything
+ifndef PREFIXINSTALLDIR
+ifdef UNIXINSTALLDIR
+PREFIXINSTALLDIR=/usr
+else
+PREFIXINSTALLDIR=/pp
+endif
+endif
+export PREFIXINSTALLDIR
+
+# Where to place the resulting zip files
+ifndef DESTZIPDIR
+DESTZIPDIR:=$(BASEDIR)
+endif
+export DESTZIPDIR
+
+#####################################################################
+# Install Directories
+#####################################################################
+
+# set the base directory where to install everything
+ifndef BASEINSTALLDIR
+ifdef UNIXINSTALLDIR
+BASEINSTALLDIR=$(PREFIXINSTALLDIR)/lib/fpc/$(FPC_VERSION)
+else
+BASEINSTALLDIR=$(PREFIXINSTALLDIR)
+endif
+endif
+
+# set the directory where to install the binaries
+ifndef BININSTALLDIR
+ifdef UNIXINSTALLDIR
+BININSTALLDIR=$(PREFIXINSTALLDIR)/bin
+else
+BININSTALLDIR=$(BASEINSTALLDIR)/bin/$(OS_TARGET)
+endif
+endif
+
+# set the directory where to install the units.
+ifndef UNITINSTALLDIR
+UNITINSTALLDIR=$(BASEINSTALLDIR)/units/$(OS_TARGET)
+ifdef UNITSUBDIR
+UNITINSTALLDIR:=$(UNITINSTALLDIR)/$(UNITSUBDIR)
+endif
+endif
+
+# Where to install shared libraries
+ifndef LIBINSTALLDIR
+ifdef UNIXINSTALLDIR
+LIBINSTALLDIR=$(PREFIXINSTALLDIR)/lib
+else
+LIBINSTALLDIR=$(UNITINSTALLDIR)
+endif
+endif
+
+# Where the source files will be stored
+ifndef SOURCEINSTALLDIR
+ifdef UNIXINSTALLDIR
+SOURCEINSTALLDIR=$(PREFIXINSTALLDIR)/src/fpc-$(FPC_VERSION)
+else
+SOURCEINSTALLDIR=$(BASEINSTALLDIR)/source
+endif
+ifdef SOURCESUBDIR
+SOURCEINSTALLDIR:=$(SOURCEINSTALLDIR)/$(SOURCESUBDIR)
+endif
+endif
+
+# Where the doc files will be stored
+ifndef DOCINSTALLDIR
+ifdef UNIXINSTALLDIR
+DOCINSTALLDIR=$(PREFIXINSTALLDIR)/doc/fpc-$(FPC_VERSION)
+else
+DOCINSTALLDIR=$(BASEINSTALLDIR)/doc
+endif
+endif
+
+# Where to install the examples, under linux we use the doc dir
+# because the copytree command will create a subdir itself
+ifndef EXAMPLEINSTALLDIR
+ifdef UNIXINSTALLDIR
+EXAMPLEINSTALLDIR=$(DOCINSTALLDIR)/examples
+else
+EXAMPLEINSTALLDIR=$(BASEINSTALLDIR)/examples
+endif
+ifdef EXAMPLESUBDIR
+EXAMPLEINSTALLDIR:=$(EXAMPLEINSTALLDIR)/$(EXAMPLESUBDIR)
+endif
+endif
+
+# Where the some extra (data)files will be stored
+ifndef DATAINSTALLDIR
+DATAINSTALLDIR=$(BASEINSTALLDIR)
+endif
+
+#####################################################################
+# Redirection
+#####################################################################
+
+ifndef REDIRFILE
+REDIRFILE=log
+endif
+
+ifdef REDIR
+ifndef inUnix
+override FPC=redir -eo $(FPC)
+endif
+# set the verbosity to max
+override FPCOPT+=-va
+override REDIR:= >> $(REDIRFILE)
+endif
+
+
+#####################################################################
+# Compiler Command Line
+#####################################################################
+
+# Load commandline OPTDEF and add FPC_CPU define
+override FPCOPTDEF:=-d$(CPU_TARGET)
+
+# Load commandline OPT and add target and unit dir to be sure
+ifneq ($(OS_TARGET),$(OS_SOURCE))
+override FPCOPT+=-T$(OS_TARGET)
+endif
+
+# User dirs should be first, so they are looked at first
+ifdef UNITDIR
+override FPCOPT+=$(addprefix -Fu,$(UNITDIR))
+endif
+ifdef LIBDIR
+override FPCOPT+=$(addprefix -Fl,$(LIBDIR))
+endif
+ifdef OBJDIR
+override FPCOPT+=$(addprefix -Fo,$(OBJDIR))
+endif
+ifdef INCDIR
+override FPCOPT+=$(addprefix -Fi,$(INCDIR))
+endif
+
+# Smartlinking
+ifdef LINKSMART
+override FPCOPT+=-XX
+endif
+
+# Smartlinking creation
+ifdef CREATESMART
+override FPCOPT+=-CX
+endif
+
+# Debug
+ifdef DEBUG
+override FPCOPT+=-gl -dDEBUG
+endif
+
+# Release mode (strip, optimize and don't load ppc386.cfg)
+# 0.99.12b has a bug in the optimizer so don't use it by default
+ifdef RELEASE
+ifeq ($(FPC_VERSION),0.99.12)
+override FPCOPT+=-Xs -OGp3 -n
+else
+override FPCOPT+=-Xs -OG2p3 -n
+endif
+endif
+
+# Strip
+ifdef STRIP
+override FPCOPT+=-Xs
+endif
+
+# Optimizer
+ifdef OPTIMIZE
+override FPCOPT+=-OG2p3
+endif
+
+# Verbose settings (warning,note,info)
+ifdef VERBOSE
+override FPCOPT+=-vwni
+endif
+
+ifdef NEEDOPT
+override FPCOPT+=$(NEEDOPT)
+endif
+
+ifdef NEEDUNITDIR
+override FPCOPT+=$(addprefix -Fu,$(NEEDUNITDIR))
+endif
+
+ifdef UNITSDIR
+override FPCOPT+=-Fu$(UNITSDIR)
+endif
+
+# Target dirs and the prefix to use for clean/install
+ifdef TARGETDIR
+override FPCOPT+=-FE$(TARGETDIR)
+ifeq ($(TARGETDIR),.)
+override TARGETDIRPREFIX=
+else
+override TARGETDIRPREFIX=$(TARGETDIR)/
+endif
+endif
+ifdef UNITTARGETDIR
+override FPCOPT+=-FU$(UNITTARGETDIR)
+ifeq ($(UNITTARGETDIR),.)
+override UNITTARGETDIRPREFIX=
+else
+override UNITTARGETDIRPREFIX=$(TARGETDIR)/
+endif
+else
+ifdef TARGETDIR
+override UNITTARGETDIR=$(TARGETDIR)
+override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX)
+endif
+endif
+
+# Add commandline options last so they can override
+ifdef OPT
+override FPCOPT+=$(OPT)
+endif
+
+# Add defines from FPCOPTDEF to FPCOPT
+ifdef FPCOPTDEF
+override FPCOPT+=$(FPCOPTDEF)
+endif
+
+# Error file ?
+ifdef ERRORFILE
+override FPCOPT+=-Fr$(ERRORFILE)
+endif
+
+# Was a config file specified ?
+ifdef CFGFILE
+override FPCOPT+=@$(CFGFILE)
+endif
+
+# For win32 the options are passed using the environment FPCEXTCMD
+ifeq ($(OS_SOURCE),win32)
+override FPCEXTCMD:=$(FPCOPT)
+override FPCOPT:=!FPCEXTCMD
+export FPCEXTCMD
+endif
+
+# Compiler commandline
+override COMPILER:=$(FPC) $(FPCOPT)
+
+# also call ppas if with command option -s
+# but only if the OS_SOURCE and OS_TARGE are equal
+ifeq (,$(findstring -s ,$(COMPILER)))
+EXECPPAS=
+else
+ifeq ($(OS_SOURCE),$(OS_TARGET))
+EXECPPAS:=@$(PPAS)
+endif
+endif
+
+#####################################################################
+# Standard rules
+#####################################################################
+
+all: fpc_all
+
+debug: fpc_debug
+
+smart: fpc_smart
+
+shared: fpc_shared
+
+showinstall: fpc_showinstall
+
+install: fpc_install
+
+sourceinstall: fpc_sourceinstall
+
+exampleinstall: fpc_exampleinstall
+
+zipinstall: fpc_zipinstall
+
+zipsourceinstall: fpc_zipsourceinstall
+
+zipexampleinstall: fpc_zipexampleinstall
+
+clean: fpc_clean
+
+distclean: fpc_distclean
+
+cleanall: fpc_cleanall
+
+info: fpc_info
+
+.PHONY: all debug smart shared showinstall install sourceinstall exampleinstall zipinstall zipsourceinstall zipexampleinstall clean distclean cleanall info
+
+#####################################################################
+# Units
+#####################################################################
+
+.PHONY: fpc_units
+
+override ALLTARGET+=fpc_units
+
+override UNITPPUFILES=$(addsuffix $(PPUEXT),$(UNITOBJECTS))
+override INSTALLPPUFILES+=$(UNITPPUFILES)
+override CLEANPPUFILES+=$(UNITPPUFILES)
+
+fpc_units: $(UNITPPUFILES)
+
+#####################################################################
+# Resource strings
+#####################################################################
+
+ifdef RSTOBJECTS
+override RSTFILES=$(addsuffix $(RSTEXT),$(RSTOBJECTS))
+
+override CLEANRSTFILES+=$(RSTFILES)
+endif
+
+#####################################################################
+# General compile rules
+#####################################################################
+
+.PHONY: fpc_packages fpc_all fpc_debug
+
+$(FPCMADE): $(ALLTARGET)
+ @$(ECHO) Compiled > $(FPCMADE)
+
+fpc_packages: $(COMPILEPACKAGES)
+
+fpc_all: fpc_packages $(FPCMADE)
+
+fpc_debug:
+ $(MAKE) all DEBUG=1
+
+# Search paths for .ppu if targetdir is set
+ifdef UNITTARGETDIR
+vpath %$(PPUEXT) $(UNITTARGETDIR)
+endif
+
+# General compile rules, available for both possible PASEXT
+
+.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .pp
+
+%$(PPUEXT): %.pp
+ $(COMPILER) $< $(REDIR)
+ $(EXECPPAS)
+
+%$(PPUEXT): %.pas
+ $(COMPILER) $< $(REDIR)
+ $(EXECPPAS)
+
+%$(EXEEXT): %.pp
+ $(COMPILER) $< $(REDIR)
+ $(EXECPPAS)
+
+%$(EXEEXT): %.pas
+ $(COMPILER) $< $(REDIR)
+ $(EXECPPAS)
+
+#####################################################################
+# Library
+#####################################################################
+
+.PHONY: fpc_smart fpc_shared
+
+ifdef LIBVERSION
+LIBFULLNAME=$(LIBNAME).$(LIBVERSION)
+else
+LIBFULLNAME=$(LIBNAME)
+endif
+
+# Default sharedlib units are all unit objects
+ifndef SHAREDLIBUNITOBJECTS
+SHAREDLIBUNITOBJECTS:=$(UNITOBJECTS)
+endif
+
+fpc_smart:
+ $(MAKE) all LINKSMART=1 CREATESMART=1
+
+fpc_shared: all
+ifdef HASSHAREDLIB
+ifndef LIBNAME
+ @$(ECHO) "LIBNAME not set"
+else
+ $(PPUMOVE) $(SHAREDLIBUNITOBJECTS) -o$(LIBFULLNAME)
+endif
+else
+ @$(ECHO) "Shared Libraries not supported"
+endif
+
+#####################################################################
+# Install rules
+#####################################################################
+
+.PHONY: fpc_showinstall fpc_install
+
+ifdef EXTRAINSTALLUNITS
+override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(EXTRAINSTALLUNITS))
+endif
+
+ifdef INSTALLPPUFILES
+override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(INSTALLPPUFILES))
+ifdef PPUFILES
+INSTALLPPULINKFILES:=$(shell $(PPUFILES) -S -O $(INSTALLPPUFILES))
+else
+INSTALLPPULINKFILES:=$(wildcard $(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(LIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES))))
+endif
+override INSTALLPPULINKFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(INSTALLPPULINKFILES))
+endif
+
+ifdef INSTALLEXEFILES
+override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(INSTALLEXEFILES))
+endif
+
+fpc_showinstall: $(SHOWINSTALLTARGET)
+ifdef INSTALLEXEFILES
+ @$(ECHO) -e $(addprefix "\n"$(BININSTALLDIR)/,$(INSTALLEXEFILES))
+endif
+ifdef INSTALLPPUFILES
+ @$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPUFILES))
+ifneq ($(INSTALLPPULINKFILES),)
+ @$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPULINKFILES))
+endif
+ifneq ($(wildcard $(LIBFULLNAME)),)
+ @$(ECHO) $(LIBINSTALLDIR)/$(LIBFULLNAME)
+ifdef HASSHAREDLIB
+ @$(ECHO) $(LIBINSTALLDIR)/$(LIBNAME)
+endif
+endif
+endif
+ifdef EXTRAINSTALLFILES
+ @$(ECHO) -e $(addprefix "\n"$(DATAINSTALLDIR)/,$(EXTRAINSTALLFILES))
+endif
+
+fpc_install: $(INSTALLTARGET)
+# Create UnitInstallFiles
+ifdef INSTALLEXEFILES
+ $(MKDIR) $(BININSTALLDIR)
+# Compress the exes if upx is defined
+ifdef UPXPROG
+ -$(UPXPROG) $(INSTALLEXEFILES)
+endif
+ $(INSTALLEXE) $(INSTALLEXEFILES) $(BININSTALLDIR)
+endif
+ifdef INSTALLPPUFILES
+ $(MKDIR) $(UNITINSTALLDIR)
+ $(INSTALL) $(INSTALLPPUFILES) $(UNITINSTALLDIR)
+ifneq ($(INSTALLPPULINKFILES),)
+ $(INSTALL) $(INSTALLPPULINKFILES) $(UNITINSTALLDIR)
+endif
+ifneq ($(wildcard $(LIBFULLNAME)),)
+ $(MKDIR) $(LIBINSTALLDIR)
+ $(INSTALL) $(LIBFULLNAME) $(LIBINSTALLDIR)
+ifdef inUnix
+ ln -sf $(LIBFULLNAME) $(LIBINSTALLDIR)/$(LIBNAME)
+endif
+endif
+endif
+ifdef EXTRAINSTALLFILES
+ $(MKDIR) $(DATAINSTALLDIR)
+ $(INSTALL) $(EXTRAINSTALLFILES) $(DATAINSTALLDIR)
+endif
+
+#####################################################################
+# SourceInstall rules
+#####################################################################
+
+.PHONY: fpc_sourceinstall
+
+ifndef SOURCETOPDIR
+SOURCETOPDIR=$(BASEDIR)
+endif
+
+fpc_sourceinstall: clean
+ $(MKDIR) $(SOURCEINSTALLDIR)
+ $(COPYTREE) $(SOURCETOPDIR) $(SOURCEINSTALLDIR)
+
+#####################################################################
+# exampleinstall rules
+#####################################################################
+
+.PHONY: fpc_exampleinstall
+
+fpc_exampleinstall: $(addsuffix _clean,$(EXAMPLEDIROBJECTS))
+ifdef EXAMPLESOURCEFILES
+ $(MKDIR) $(EXAMPLEINSTALLDIR)
+ $(COPY) $(EXAMPLESOURCEFILES) $(EXAMPLEINSTALLDIR)
+endif
+ifdef EXAMPLEDIROBJECTS
+ifndef EXAMPLESOURCEFILES
+ $(MKDIR) $(EXAMPLEINSTALLDIR)
+endif
+ $(COPYTREE) $(addsuffix /*,$(EXAMPLEDIROBJECTS)) $(EXAMPLEINSTALLDIR)
+endif
+
+#####################################################################
+# Zip
+#####################################################################
+
+.PHONY: fpc_zipinstall
+
+# Create suffix to add
+ifndef PACKAGESUFFIX
+PACKAGESUFFIX=$(OS_TARGET)
+ifeq ($(OS_TARGET),go32v2)
+PACKAGESUFFIX=go32
+endif
+ifeq ($(OS_TARGET),win32)
+PACKAGESUFFIX=w32
+endif
+endif
+
+# Temporary path to pack a file
+ifndef PACKDIR
+ifndef inUnix
+PACKDIR=$(BASEDIR)/pack_tmp
+else
+PACKDIR=/tmp/fpc-pack
+endif
+endif
+
+# Maybe create default zipname from packagename
+ifndef ZIPNAME
+ifdef PACKAGENAME
+ZIPNAME=$(PACKAGEPREFIX)$(PACKAGENAME)$(PACKAGESUFFIX)
+endif
+endif
+
+# Use tar by default under linux
+ifndef USEZIP
+ifdef inUnix
+USETAR=1
+endif
+endif
+
+fpc_zipinstall:
+ifndef ZIPNAME
+ @$(ECHO) "Please specify ZIPNAME!"
+ @exit 1
+else
+ $(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR)
+ifdef USETAR
+ $(DEL) $(DESTZIPDIR)/$(ZIPNAME)$(TAREXT)
+ cd $(PACKDIR) ; $(TARPROG) cf$(TAROPT) $(DESTZIPDIR)/$(ZIPNAME)$(TAREXT) * ; cd $(BASEDIR)
+else
+ $(DEL) $(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT)
+ cd $(PACKDIR) ; $(ZIPPROG) -Dr $(ZIPOPT) $(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT) * ; cd $(BASEDIR)
+endif
+ $(DELTREE) $(PACKDIR)
+endif
+
+.PHONY: fpc_zipsourceinstall
+
+fpc_zipsourceinstall:
+ $(MAKE) fpc_zipinstall ZIPTARGET=sourceinstall PACKAGESUFFIX=src
+
+.PHONY: fpc_zipexampleinstall
+
+fpc_zipexampleinstall:
+ $(MAKE) fpc_zipinstall ZIPTARGET=exampleinstall PACKAGESUFFIX=exm
+
+#####################################################################
+# Clean rules
+#####################################################################
+
+.PHONY: fpc_clean fpc_cleanall fpc_distclean
+
+ifdef EXEFILES
+override CLEANEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(CLEANEXEFILES))
+endif
+
+ifdef EXTRACLEANUNITS
+override CLEANPPUFILES+=$(addsuffix $(PPUEXT),$(EXTRACLEANUNITS))
+endif
+
+ifdef CLEANPPUFILES
+override CLEANPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPUFILES))
+# Get the .o and .a files created for the units
+ifdef PPUFILES
+CLEANPPULINKFILES:=$(shell $(PPUFILES) $(CLEANPPUFILES))
+else
+CLEANPPULINKFILES:=$(wildcard $(subst $(PPUEXT),$(OEXT),$(CLEANPPUFILES)) $(addprefix $(LIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES))))
+endif
+override CLEANPPULINKFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPULINKFILES))
+endif
+
+fpc_clean: $(CLEANTARGET)
+ifdef CLEANEXEFILES
+ -$(DEL) $(CLEANEXEFILES)
+endif
+ifdef CLEANPPUFILES
+ -$(DEL) $(CLEANPPUFILES)
+endif
+ifneq ($(CLEANPPULINKFILES),)
+ -$(DEL) $(CLEANPPULINKFILES)
+endif
+ifdef CLEANRSTFILES
+ -$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
+endif
+ifdef EXTRACLEANFILES
+ -$(DEL) $(EXTRACLEANFILES)
+endif
+ifdef LIBNAME
+ -$(DEL) $(LIBNAME) $(LIBFULLNAME)
+endif
+ -$(DEL) $(FPCMADE) $(PPAS) link.res $(FPCEXTFILE) $(REDIRFILE)
+
+fpc_distclean: fpc_clean
+
+# Also run clean first if targetdir is set. Unittargetdir is always
+# set if targetdir or unittargetdir is specified
+ifdef UNITTARGETDIR
+TARGETDIRCLEAN=fpc_clean
+endif
+
+fpc_cleanall: $(CLEANTARGET) $(TARGETDIRCLEAN)
+ifdef CLEANEXEFILES
+ -$(DEL) $(CLEANEXEFILES)
+endif
+ -$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT)
+ -$(DELTREE) *$(SMARTEXT)
+ -$(DEL) $(FPCMADE) $(PPAS) link.res $(FPCEXTFILE) $(REDIRFILE)
+
+#####################################################################
+# Info rules
+#####################################################################
+
+.PHONY: fpc_info fpc_cfginfo fpc_objectinfo fpc_toolsinfo fpc_installinfo \
+ fpc_dirinfo
+
+fpc_info: $(INFOTARGET)
+
+fpc_infocfg:
+ @$(ECHO)
+ @$(ECHO) == Configuration info ==
+ @$(ECHO)
+ @$(ECHO) FPC....... $(FPC)
+ @$(ECHO) Version... $(FPC_VERSION)
+ @$(ECHO) CPU....... $(CPU_TARGET)
+ @$(ECHO) Source.... $(OS_SOURCE)
+ @$(ECHO) Target.... $(OS_TARGET)
+ @$(ECHO)
+
+fpc_infoobjects:
+ @$(ECHO)
+ @$(ECHO) == Object info ==
+ @$(ECHO)
+ @$(ECHO) LoaderObjects..... $(LOADEROBJECTS)
+ @$(ECHO) UnitObjects....... $(UNITOBJECTS)
+ @$(ECHO) ExeObjects........ $(EXEOBJECTS)
+ @$(ECHO)
+ @$(ECHO) ExtraCleanUnits... $(EXTRACLEANUNITS)
+ @$(ECHO) ExtraCleanFiles... $(EXTRACLEANFILES)
+ @$(ECHO)
+ @$(ECHO) ExtraInstallUnits. $(EXTRAINSTALLUNITS)
+ @$(ECHO) ExtraInstallFiles. $(EXTRAINSTALLFILES)
+ @$(ECHO)
+
+fpc_infoinstall:
+ @$(ECHO)
+ @$(ECHO) == Install info ==
+ @$(ECHO)
+ifdef DATE
+ @$(ECHO) DateStr.............. $(DATESTR)
+endif
+ifdef PACKAGEPREFIX
+ @$(ECHO) PackagePrefix........ $(PACKAGEPREFIX)
+endif
+ifdef PACKAGENAME
+ @$(ECHO) PackageName.......... $(PACKAGENAME)
+endif
+ @$(ECHO) PackageSuffix........ $(PACKAGESUFFIX)
+ @$(ECHO)
+ @$(ECHO) BaseInstallDir....... $(BASEINSTALLDIR)
+ @$(ECHO) BinInstallDir........ $(BININSTALLDIR)
+ @$(ECHO) LibInstallDir........ $(LIBINSTALLDIR)
+ @$(ECHO) UnitInstallDir....... $(UNITINSTALLDIR)
+ @$(ECHO) SourceInstallDir..... $(SOURCEINSTALLDIR)
+ @$(ECHO) DocInstallDir........ $(DOCINSTALLDIR)
+ @$(ECHO) DataInstallDir....... $(DATAINSTALLDIR)
+ @$(ECHO)
+ @$(ECHO) DestZipDir........... $(DESTZIPDIR)
+ @$(ECHO) ZipName.............. $(ZIPNAME)
+ @$(ECHO)
+
+#####################################################################
+# Local Makefile
+#####################################################################
+
+ifneq ($(wildcard fpcmake.loc),)
+include fpcmake.loc
+endif
+
diff --git a/gfx/template/Makefile.fpc b/gfx/template/Makefile.fpc
new file mode 100644
index 00000000..85bbc17e
--- /dev/null
+++ b/gfx/template/Makefile.fpc
@@ -0,0 +1,22 @@
+#
+# Makefile.fpc for fpGFX target template
+#
+
+[targets]
+units=gfx_xxx
+# do not compile gfximpl for this dummy target
+rst=gfx_xxx
+
+[require]
+options=-S2h
+packages=
+
+[libs]
+libname=fpgfx_xxx
+
+[install]
+subdir=
+
+[dirs]
+fpcdir=../../../..
+unitdir=..
diff --git a/gfx/template/gfx_xxx.pas b/gfx/template/gfx_xxx.pas
new file mode 100644
index 00000000..904c929b
--- /dev/null
+++ b/gfx/template/gfx_xxx.pas
@@ -0,0 +1,435 @@
+{
+ fpGFX - Free Pascal Graphics Library
+ Copyright (C) 2000 by
+ Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org
+ Copyright (C) 2006 by Graeme Geldenhuys
+ member of the fpGFX development team.
+
+ Template for new target implementations
+
+ See the file COPYING.fpGFX, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+
+unit GFX_xxx;
+
+interface
+
+uses
+ SysUtils, Classes, // FPC units
+ // xxx (insert target dependent units here)
+ GfxBase; // fpGUI units
+
+type
+
+ ExxxError = class(EGfxError);
+
+ TxxxDrawable = class;
+ TxxxDisplay = class;
+
+ TxxxFont = class(TGfxFont)
+ public
+ constructor Create;
+ destructor Destroy; override;
+ end;
+
+ PxxxDrawableState = ^TxxxDrawableState;
+ TxxxDrawableState = record
+ Prev: PxxxDrawableState;
+ Matrix: TGfxMatrix;
+ // xxx Region data etc.
+ end;
+
+ TxxxDrawable = class(TGfxDrawable)
+ private
+ FDisplay: TxxxDisplay;
+ FStateStackpointer: PxxxDrawableState;
+ procedure Resized(NewWidth, NewHeight: Integer);
+ public
+ constructor Create(ADisplay: TxxxDisplay); // xxx And other arguments optionally
+ destructor Destroy; override;
+
+ function CreateMemoryDrawable(AWidth, AHeight: Cardinal;
+ const APixelFormat: TGfxPixelFormat;
+ AStride: LongWord; AData: Pointer): TGfxDrawable; override;
+
+ procedure SaveState; override;
+ procedure RestoreState; override;
+ function ExcludeClipRect(const ARect: TRect): Boolean; override;
+ function IntersectClipRect(const ARect: TRect): Boolean; override;
+ function GetClipRect: TRect; override;
+ function MapColor(const AColor: TGfxColor): TGfxPixel; override;
+ procedure SetColor(AColor: TGfxPixel); override;
+ procedure SetFont(AFont: TGfxFont); override;
+ procedure SetLineStyle(ALineStyle: TGfxLineStyle); override;
+
+ procedure DrawArc(const Rect: TRect; StartAngle, EndAngle: Single); override;
+ procedure DrawCircle(const Rect: TRect); override;
+ procedure DrawLine(x1, y1, x2, y2: Integer); override;
+ procedure FillRect(const Rect: TRect); override;
+ function FontCellHeight: Integer; override;
+ function TextWidth(const AText: String): Cardinal; override;
+ procedure TextOut(x, y: Integer; const AText: String); override;
+
+ procedure CopyRect(ASource: TGfxDrawable; const ASourceRect: TRect;
+ ADestX, ADestY: Integer); override;
+
+
+ property Display: TxxxDisplay read FDisplay;
+ end;
+
+
+ TxxxWindow = class;
+
+ TxxxDisplay = class(TGfxDisplay)
+ public
+ destructor Destroy; override;
+ function CreateFont(const Descriptor: String): TGfxFont; override;
+ function CreateWindow: TGfxWindow; override;
+ procedure Run; override;
+ end;
+
+
+ xxxSomeHandleType = Pointer; // !!!: Remove this in your implementation
+
+ TxxxWindow = class(TGfxWindow)
+ private
+ FHandle: xxxSomeHandleType;
+ protected
+ function GetTitle: String; override;
+ procedure SetTitle(const ATitle: String); override;
+ private
+ constructor Create(ADisplay: TxxxDisplay);
+ public
+ destructor Destroy; override;
+
+ procedure SetSize(AWidth, AHeight: Cardinal); override;
+ procedure SetMinMaxSize(AMinWidth, AMinHeight,
+ AMaxWidth, AMaxHeight: Cardinal); override;
+ procedure Show; override;
+ procedure Invalidate(const ARect: TRect); override;
+ procedure CaptureMouse; override;
+ procedure ReleaseMouse; override;
+
+ property Handle: xxxSomeHandleType read FHandle;
+ end;
+
+
+// ===================================================================
+// ===================================================================
+
+implementation
+
+
+// -------------------------------------------------------------------
+// TxxxFont
+// -------------------------------------------------------------------
+
+constructor TxxxFont.Create;
+begin
+ inherited Create;
+ // !!!: Implement this
+end;
+
+destructor TxxxFont.Destroy;
+begin
+ // !!!: Implement this
+ inherited Destroy;
+end;
+
+
+// -------------------------------------------------------------------
+// TxxxDrawable
+// -------------------------------------------------------------------
+
+
+
+// -------------------------------------------------------------------
+// TxxxDrawable
+// -------------------------------------------------------------------
+
+constructor TxxxDrawable.Create(ADisplay: TxxxDisplay);
+begin
+ inherited Create;
+ FDisplay := ADisplay;
+ // !!!: Create handle, init graphics state (line attributes, font etc.)
+end;
+
+destructor TxxxDrawable.Destroy;
+begin
+ // !!!: Implement this
+ inherited Destroy;
+end;
+
+function TxxxDrawable.CreateMemoryDrawable(AWidth, AHeight: Cardinal;
+ const APixelFormat: TGfxPixelFormat;
+ AStride: LongWord; AData: Pointer): TGfxDrawable;
+begin
+ // !!!: Implement this
+ raise EGfxError.Create(SUnsupportedPixelFormat);
+ Result := nil;
+end;
+
+procedure TxxxDrawable.SaveState;
+var
+ SavedState: PxxxDrawableState;
+begin
+ New(SavedState);
+ SavedState^.Prev := FStateStackpointer;
+ SavedState^.Matrix := Matrix;
+ // !!!: Save additional state informations
+ FStateStackpointer := SavedState;
+end;
+
+procedure TxxxDrawable.RestoreState;
+var
+ SavedState: PxxxDrawableState;
+begin
+ SavedState := FStateStackpointer;
+ FStateStackpointer := SavedState^.Prev;
+ Matrix := SavedState^.Matrix;
+ // !!!: Restore additional state informations
+ Dispose(SavedState);
+end;
+
+function TxxxDrawable.ExcludeClipRect(const ARect: TRect): Boolean;
+var
+ x1, y1, x2, y2: Integer;
+begin
+ Transform(ARect.Left, ARect.Top, x1, y1);
+ Transform(ARect.Right, ARect.Bottom, x2, y2);
+
+ if (x2 > x1) and (y2 > y1) then
+ begin
+ // !!!: Implement this
+ Result := True; // !!!: Return False if region is empty
+ end else
+ Result := False;
+end;
+
+function TxxxDrawable.IntersectClipRect(const ARect: TRect): Boolean;
+var
+ x1, y1, x2, y2: Integer;
+begin
+ Transform(ARect.Left, ARect.Top, x1, y1);
+ Transform(ARect.Right, ARect.Bottom, x2, y2);
+
+ if (x2 > x1) and (y2 > y1) then
+ begin
+ // !!!: Implement this
+ Result := True; // !!!: Return False if region is empty
+ end else
+ Result := False;
+end;
+
+function TxxxDrawable.GetClipRect: TRect;
+begin
+ // !!!: Implement this
+ Result.Left := 0;
+ Result.Top := 0;
+ Result.Right := 0;
+ Result.Bottom := 0;
+end;
+
+function TxxxDrawable.MapColor(const AColor: TGfxColor): TGfxPixel;
+begin
+ // !!!: Implement this
+ Result := 0;
+end;
+
+procedure TxxxDrawable.SetColor(AColor: TGfxPixel);
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.SetFont(AFont: TGfxFont);
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.SetLineStyle(ALineStyle: TGfxLineStyle);
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.DrawArc(const Rect: TRect; StartAngle, EndAngle: Single);
+var
+ x1, y1, x2, y2: Integer;
+begin
+ Transform(Rect.Left, Rect.Top, x1, y1);
+ Transform(Rect.Right, Rect.Bottom, x2, y2);
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.DrawCircle(const Rect: TRect);
+var
+ x1, y1, x2, y2: Integer;
+begin
+ Transform(Rect.Left, Rect.Top, x1, y1);
+ Transform(Rect.Right, Rect.Bottom, x2, y2);
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.DrawLine(x1, y1, x2, y2: Integer);
+begin
+ Transform(x1, y1, x1, y1);
+ Transform(x2, y2, x2, y2);
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.FillRect(const Rect: TRect);
+var
+ r: TRect;
+begin
+ Transform(Rect.Left, Rect.Top, r.Left, r.Top);
+ Transform(Rect.Right, Rect.Bottom, r.Right, r.Bottom);
+ // !!!: Implement this
+end;
+
+function TxxxDrawable.FontCellHeight: Integer;
+begin
+ // !!!: Implement this
+ Result := 16;
+end;
+
+function TxxxDrawable.TextWidth(const AText: String): Cardinal;
+begin
+ // !!!: Implement this
+ Result := 16 * Length(AText);
+end;
+
+procedure TxxxDrawable.TextOut(x, y: Integer; const AText: String);
+begin
+ Transform(x, y, x, y);
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.CopyRect(ASource: TGfxDrawable; const ASourceRect: TRect;
+ DestX, DestY: Integer);
+begin
+ Transform(DestX, DestY, DestX, DestY);
+ // !!!: Implement this
+end;
+
+procedure TxxxDrawable.Resized(NewWidth, NewHeight: Integer);
+begin
+ FWidth := NewWidth;
+ FHeight := NewHeight;
+end;
+
+
+// -------------------------------------------------------------------
+// TxxxDisplay
+// -------------------------------------------------------------------
+
+destructor TxxxDisplay.Destroy;
+begin
+ // !!!: Implement this
+ inherited Destroy;
+end;
+
+function TxxxDisplay.CreateFont(const Descriptor: String): TGfxFont;
+begin
+ Result := TxxxFont.Create;
+end;
+
+function TxxxDisplay.CreateWindow: TGfxWindow;
+begin
+ Result := TxxxWindow.Create(Self);
+ // !!!: Implement this
+end;
+
+procedure TxxxDisplay.Run;
+begin
+ // !!!: Implement this
+end;
+
+
+// -------------------------------------------------------------------
+// TxxxWindow
+// -------------------------------------------------------------------
+
+function TxxxWindow.GetTitle: String;
+begin
+ // !!!: Implement this
+ Result := inherited;
+end;
+
+procedure TxxxWindow.SetTitle(const ATitle: String);
+begin
+ // !!!: Implement this
+end;
+
+constructor TxxxWindow.Create(ADisplay: TxxxDisplay);
+begin
+ inherited Create;
+ FDisplay := ADisplay;
+ // !!!: Implement this
+ FDrawable := TxxxDrawable.Create(ADisplay); // !!!: Create a suitable drawable
+end;
+
+destructor TxxxWindow.Destroy;
+begin
+ if Assigned(OnClose) then
+ OnClose(Self);
+
+ Drawable.Free;
+
+ // !!!: Clean up
+
+ inherited Destroy;
+end;
+
+procedure TxxxWindow.SetSize(AWidth, AHeight: Cardinal);
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxWindow.SetMinMaxSize(AMinWidth, AMinHeight,
+ AMaxWidth, AMaxHeight: Cardinal);
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxWindow.Show;
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxWindow.Invalidate(const ARect: TRect);
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxWindow.CaptureMouse;
+begin
+ // !!!: Implement this
+end;
+
+procedure TxxxWindow.ReleaseMouse;
+begin
+ // !!!: Implement this
+end;
+
+
+end.
+
+
+{
+ $Log: gfx_xxx.pp,v $
+ Revision 1.3 2000/12/23 23:07:24 sg
+ *** empty log message ***
+
+ Revision 1.2 2000/10/28 20:28:27 sg
+ * First version
+
+ Revision 1.1 2000/08/04 21:05:53 sg
+ * First version in CVS
+
+}
diff --git a/gfx/template/gfxinterface.pas b/gfx/template/gfxinterface.pas
new file mode 100644
index 00000000..189b772c
--- /dev/null
+++ b/gfx/template/gfxinterface.pas
@@ -0,0 +1,46 @@
+{
+ fpGFX - Free Pascal Graphics Library
+ Copyright (C) 2000 by
+ Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org
+ Copyright (C) 2006 by Graeme Geldenhuys
+ member of the fpGFX development team.
+
+ Default target selection unit for template unit
+
+ See the file COPYING.fpGFX, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+
+unit GFXImpl;
+
+interface
+
+uses GFX_xxx;
+
+
+type
+
+ TDefDisplay = TxxxDisplay;
+ TDefWindow = TxxxWindow;
+
+
+implementation
+
+end.
+
+
+{
+ $Log: gfximpl.pp,v $
+ Revision 1.2 2000/10/28 20:28:27 sg
+ * First version
+
+ Revision 1.1 2000/08/04 21:05:53 sg
+ * First version in CVS
+
+}
generated by cgit v1.2.3-70-g09d2 (git 2.47.1) at 2024-12-27 09:36:49 +0000