home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume18 / xmandel / part01 < prev    next >
Encoding:
Text File  |  1992-07-12  |  50.5 KB  |  1,730 lines
  1. Newsgroups: comp.sources.x
  2. Path: uunet!darwin.sura.net!mips!msi!dcmartin
  3. From: tony@ajfcal.cuc.ab.ca (Tony Field)
  4. Subject: v18i015: Xmandelbrot, Part01/03
  5. Message-ID: <csx-18i015-xmandel@uunet.UU.NET>
  6. Originator: dcmartin@fascet
  7. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  8. Organization: Molecular Simulations, Inc.
  9. Date: Mon, 13 Jul 1992 15:46:10 GMT
  10. Approved: dcmartin@msi.com
  11. Lines: 1717
  12.  
  13. Submitted-by: tony@ajfcal.cuc.ab.ca (Tony Field)
  14. Posting-number: Volume 18, Issue 15
  15. Archive-name: xmandel/part01
  16.  
  17. This is a revised version of the old xmandel programme.  Enhancements include:
  18.  
  19.     1. Athena or Motif widgets for the GUI
  20.     2. gif output files
  21.     3. support for 1, 2, 4, or 8 bit displays
  22.     4. zooming on both the Mandelbrot or Julia sets
  23.     5. honouring of exposure events.
  24.  
  25. This version of xmandel works with the following systems:
  26.     SysV-386 Interactive Unix, X11R4  (Athena and Motif)
  27.     Sun Sparc (Athena tested only) 
  28.     HP9000s720 (Athena and Motif)
  29.     
  30. #!/bin/sh
  31. # This is a shell archive (produced by shar 3.50)
  32. # To extract the files from this archive, save it to a file, remove
  33. # everything above the "!/bin/sh" line above, and type "sh file_name".
  34. #
  35. # made 07/13/1992 15:40 UTC by dcmartin@fascet
  36. # Source directory /home/fascet/dcmartin/csx/src/tmp
  37. #
  38. # existing files will NOT be overwritten unless -c is specified
  39. #
  40. # This is part 1 of a multipart archive                                    
  41. # do not concatenate these parts, unpack them in order with /bin/sh        
  42. #
  43. # This shar contains:
  44. # length  mode       name
  45. # ------ ---------- ------------------------------------------
  46. #   1130 -rw-r--r-- Imakefile
  47. #    548 -rw-r--r-- MANIFEST
  48. #  11508 -rw-r--r-- Makefile.std
  49. #   2547 -rw-r--r-- README
  50. #   9512 -rw-r--r-- julia.c
  51. #    276 -rw-r--r-- main.c
  52. #  27742 -rw-r--r-- mainaw.c
  53. #  30806 -rw-r--r-- mainmotif.c
  54. #   7543 -rw-r--r-- mandel.bit
  55. #  15435 -rw-r--r-- mandel.c
  56. #   4079 -rw-r--r-- mandel.h
  57. #  17660 -rw-r--r-- writegif.c
  58. #   8293 -rw-r--r-- xmandel.man
  59. #    929 -rw-r--r-- xmandel.mot.ad
  60. #
  61. if test -r _shar_seq_.tmp; then
  62.     echo 'Must unpack archives in sequence!'
  63.     echo Please unpack part `cat _shar_seq_.tmp` next
  64.     exit 1
  65. fi
  66. # ============= Imakefile ==============
  67. if test -f 'Imakefile' -a X"$1" != X"-c"; then
  68.     echo 'x - skipping Imakefile (File already exists)'
  69.     rm -f _shar_wnt_.tmp
  70. else
  71. > _shar_wnt_.tmp
  72. echo 'x - extracting Imakefile (Text)'
  73. sed 's/^X//' << 'SHAR_EOF' > 'Imakefile' &&
  74. #  xmandel - Mandelbrot set and Julia generator
  75. # 
  76. # CC=gcc
  77. X
  78. # If you want ATHENA widgets, uncomment the following line
  79. MYLIBS = $(XAWLIB)
  80. X
  81. # If you want MOTIF rather than Athena widgets uncomment 2 lines
  82. # MOTIF = -DMOTIF
  83. # MYLIBS = $(MRMLIB) $(XMLIB)
  84. X
  85. # If your version of Motif needs X11/VaSimple.h
  86. # Interactive Unix X11R4 does with cc, not with gcc
  87. # VASIMPLE = -DVASIMPLE
  88. X
  89. # If you have bcopy() but not memcpy
  90. # BCOPY=-DHAVEBCOPY
  91. X
  92. # If you don't have bcopy() or memcpy()
  93. # MEMCPY=-DNEEDMEMCPY
  94. X
  95. # --- end config ---
  96. X
  97. LOCAL_LIBRARIES = $(MYLIBS) $(XTOOLLIB) $(XMULIB) $(XLIB) 
  98. DEFINES = $(MOTIF) $(BCOPY) $(MEMCPY) $(VASIMPLE)
  99. SRCS = main.c mandel.c julia.c writegif.c
  100. OBJS = main.o mandel.o julia.o writegif.o
  101. X
  102. ComplexProgramTarget(xmandel)
  103. X
  104. main.o:    mainaw.c mainmotif.c
  105. X
  106. tar:
  107. X    tar cvf mandel.tar README Imakefile Makefile Makefile.unix main.c mainaw.c mainmotif.c mandel.h mandel.c julia.c writegif.c xmandel.man xmandel.mot.ad mandel.bit
  108. X
  109. shar:
  110. X    makekit -m  README Imakefile Makefile.unix main.c mainaw.c mainmotif.c mandel.h mandel.c julia.c writegif.c xmandel.man xmandel.mot.ad mandel.bit
  111. X
  112. InstallAppDefaults(XMandel)
  113. X
  114. X
  115. SHAR_EOF
  116. chmod 0644 Imakefile ||
  117. echo 'restore of Imakefile failed'
  118. Wc_c="`wc -c < 'Imakefile'`"
  119. test 1130 -eq "$Wc_c" ||
  120.     echo 'Imakefile: original size 1130, current size' "$Wc_c"
  121. rm -f _shar_wnt_.tmp
  122. fi
  123. # ============= MANIFEST ==============
  124. if test -f 'MANIFEST' -a X"$1" != X"-c"; then
  125.     echo 'x - skipping MANIFEST (File already exists)'
  126.     rm -f _shar_wnt_.tmp
  127. else
  128. > _shar_wnt_.tmp
  129. echo 'x - extracting MANIFEST (Text)'
  130. sed 's/^X//' << 'SHAR_EOF' > 'MANIFEST' &&
  131. X   File Name        Archive #    Description
  132. -----------------------------------------------------------
  133. X Imakefile                  1    
  134. X MANIFEST                   1    This shipping list
  135. X Makefile.unix              1    
  136. X README                     1    
  137. X julia.c                    1    
  138. X main.c                     1    
  139. X mainaw.c                   3    
  140. X mainmotif.c                4    
  141. X mandel.bit                 1    
  142. X mandel.c                   2    
  143. X mandel.h                   1    
  144. X writegif.c                 2    
  145. X xmandel.man                1    
  146. X xmandel.mot.ad             1    
  147. SHAR_EOF
  148. chmod 0644 MANIFEST ||
  149. echo 'restore of MANIFEST failed'
  150. Wc_c="`wc -c < 'MANIFEST'`"
  151. test 548 -eq "$Wc_c" ||
  152.     echo 'MANIFEST: original size 548, current size' "$Wc_c"
  153. rm -f _shar_wnt_.tmp
  154. fi
  155. # ============= Makefile.std ==============
  156. if test -f 'Makefile.std' -a X"$1" != X"-c"; then
  157.     echo 'x - skipping Makefile.std (File already exists)'
  158.     rm -f _shar_wnt_.tmp
  159. else
  160. > _shar_wnt_.tmp
  161. echo 'x - extracting Makefile.std (Text)'
  162. sed 's/^X//' << 'SHAR_EOF' > 'Makefile.std' &&
  163. # Makefile generated by imake - do not edit!
  164. # $XConsortium: imake.c,v 1.65 91/07/25 17:50:17 rws Exp $
  165. #
  166. # The cpp used on this machine replaces all newlines and multiple tabs and
  167. # spaces in a macro expansion with a single space.  Imake tries to compensate
  168. # for this, but is not always successful.
  169. #
  170. X
  171. # -------------------------------------------------------------------------
  172. # Makefile generated from "Imake.tmpl" and </tmp/IIf.a03033>
  173. # $XConsortium: Imake.tmpl,v 1.139 91/09/16 08:52:48 rws Exp $
  174. #
  175. # Platform-specific parameters may be set in the appropriate <vendor>.cf
  176. # configuration files.  Site-specific parameters should be set in the file
  177. # site.def.  Full rebuilds are recommended if any parameters are changed.
  178. #
  179. # If your C preprocessor does not define any unique symbols, you will need
  180. # to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing
  181. # "make World" the first time).
  182. #
  183. X
  184. # -------------------------------------------------------------------------
  185. # site-specific configuration parameters that need to come before
  186. # the platform-specific parameters - edit site.def to change
  187. X
  188. # site:  $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $
  189. X
  190. # -------------------------------------------------------------------------
  191. # platform-specific configuration parameters - edit sun.cf to change
  192. X
  193. # platform:  $XConsortium: sun.cf,v 1.68 91/07/30 11:34:39 rws Exp $
  194. X
  195. # operating system:  SunOS 4.1.1
  196. X
  197. # $XConsortium: sunLib.rules,v 1.6 91/03/24 17:55:58 rws Exp $
  198. X
  199. # -------------------------------------------------------------------------
  200. # site-specific configuration parameters that go after
  201. # the platform-specific parameters - edit site.def to change
  202. X
  203. # site:  $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $
  204. X
  205. X            SHELL = /bin/sh
  206. X
  207. X              TOP = .
  208. X      CURRENT_DIR = .
  209. X
  210. X               AR = ar clq
  211. X  BOOTSTRAPCFLAGS =
  212. X               CC = cc
  213. X               AS = as
  214. X
  215. X         COMPRESS = compress
  216. X              CPP = /lib/cpp $(STD_CPP_DEFINES)
  217. X    PREPROCESSCMD = cc -E $(STD_CPP_DEFINES)
  218. X          INSTALL = install
  219. X               LD = ld
  220. X             LINT = lint
  221. X      LINTLIBFLAG = -C
  222. X         LINTOPTS = -axz
  223. X               LN = ln -s
  224. X             MAKE = make
  225. X               MV = mv
  226. X               CP = cp
  227. X
  228. X           RANLIB = ranlib
  229. X  RANLIBINSTFLAGS =
  230. X
  231. X               RM = rm -f
  232. X            TROFF = psroff
  233. X         MSMACROS = -ms
  234. X              TBL = tbl
  235. X              EQN = eqn
  236. X     STD_INCLUDES =
  237. X  STD_CPP_DEFINES =
  238. X      STD_DEFINES =
  239. X EXTRA_LOAD_FLAGS =
  240. X  EXTRA_LIBRARIES =
  241. X             TAGS = ctags
  242. X
  243. X    SHAREDCODEDEF = -DSHAREDCODE
  244. X         SHLIBDEF = -DSUNSHLIB
  245. X
  246. X    PROTO_DEFINES =
  247. X
  248. X     INSTPGMFLAGS =
  249. X
  250. X     INSTBINFLAGS = -m 0755
  251. X     INSTUIDFLAGS = -m 4755
  252. X     INSTLIBFLAGS = -m 0644
  253. X     INSTINCFLAGS = -m 0444
  254. X     INSTMANFLAGS = -m 0444
  255. X     INSTDATFLAGS = -m 0444
  256. X    INSTKMEMFLAGS = -m 4755
  257. X
  258. X      PROJECTROOT = /usr/X11/R5
  259. X
  260. X     TOP_INCLUDES = -I$(INCROOT)
  261. X
  262. X      CDEBUGFLAGS = -O
  263. X        CCOPTIONS = -pipe
  264. X
  265. X      ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES)
  266. X       ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(DEFINES)
  267. X           CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES)
  268. X        LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES)
  269. X
  270. X           LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES)
  271. X
  272. X        LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(LOCAL_LDFLAGS) -L$(USRLIBDIR)
  273. X
  274. X   LDCOMBINEFLAGS = -X -r
  275. X      DEPENDFLAGS =
  276. X
  277. X        MACROFILE = sun.cf
  278. X           RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut
  279. X
  280. X    IMAKE_DEFINES =
  281. X
  282. X         IRULESRC = $(CONFIGDIR)
  283. X        IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES)
  284. X
  285. X     ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/Imake.rules \
  286. X            $(IRULESRC)/Project.tmpl $(IRULESRC)/site.def \
  287. X            $(IRULESRC)/$(MACROFILE) $(EXTRA_ICONFIGFILES)
  288. X
  289. # -------------------------------------------------------------------------
  290. # X Window System Build Parameters
  291. # $XConsortium: Project.tmpl,v 1.138 91/09/10 09:02:12 rws Exp $
  292. X
  293. # -------------------------------------------------------------------------
  294. # X Window System make variables; this need to be coordinated with rules
  295. X
  296. X          PATHSEP = /
  297. X        USRLIBDIR = /usr/X11/R5/lib
  298. X           BINDIR = /usr/X11/R5/bin
  299. X          INCROOT = /usr/X11/R5/include
  300. X     BUILDINCROOT = $(TOP)
  301. X      BUILDINCDIR = $(BUILDINCROOT)/X11
  302. X      BUILDINCTOP = ..
  303. X           INCDIR = $(INCROOT)/X11
  304. X           ADMDIR = /usr/adm
  305. X           LIBDIR = $(USRLIBDIR)/X11
  306. X        CONFIGDIR = $(LIBDIR)/config
  307. X       LINTLIBDIR = $(USRLIBDIR)/lint
  308. X
  309. X          FONTDIR = $(LIBDIR)/fonts
  310. X         XINITDIR = $(LIBDIR)/xinit
  311. X           XDMDIR = $(LIBDIR)/xdm
  312. X           TWMDIR = $(LIBDIR)/twm
  313. X          MANPATH = /usr/X11/R5/man
  314. X    MANSOURCEPATH = $(MANPATH)/man
  315. X        MANSUFFIX = n
  316. X     LIBMANSUFFIX = 3
  317. X           MANDIR = $(MANSOURCEPATH)$(MANSUFFIX)
  318. X        LIBMANDIR = $(MANSOURCEPATH)$(LIBMANSUFFIX)
  319. X           NLSDIR = $(LIBDIR)/nls
  320. X        PEXAPIDIR = $(LIBDIR)/PEX
  321. X      XAPPLOADDIR = $(LIBDIR)/app-defaults
  322. X       FONTCFLAGS = -t
  323. X
  324. X     INSTAPPFLAGS = $(INSTDATFLAGS)
  325. X
  326. X            IMAKE = imake
  327. X           DEPEND = makedepend
  328. X              RGB = rgb
  329. X
  330. X            FONTC = bdftopcf
  331. X
  332. X        MKFONTDIR = mkfontdir
  333. X        MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier
  334. X
  335. X        CONFIGSRC = $(TOP)/config
  336. X       DOCUTILSRC = $(TOP)/doc/util
  337. X        CLIENTSRC = $(TOP)/clients
  338. X          DEMOSRC = $(TOP)/demos
  339. X           LIBSRC = $(TOP)/lib
  340. X          FONTSRC = $(TOP)/fonts
  341. X       INCLUDESRC = $(TOP)/X11
  342. X        SERVERSRC = $(TOP)/server
  343. X          UTILSRC = $(TOP)/util
  344. X        SCRIPTSRC = $(UTILSRC)/scripts
  345. X       EXAMPLESRC = $(TOP)/examples
  346. X       CONTRIBSRC = $(TOP)/../contrib
  347. X           DOCSRC = $(TOP)/doc
  348. X           RGBSRC = $(TOP)/rgb
  349. X        DEPENDSRC = $(UTILSRC)/makedepend
  350. X         IMAKESRC = $(CONFIGSRC)
  351. X         XAUTHSRC = $(LIBSRC)/Xau
  352. X          XLIBSRC = $(LIBSRC)/X
  353. X           XMUSRC = $(LIBSRC)/Xmu
  354. X       TOOLKITSRC = $(LIBSRC)/Xt
  355. X       AWIDGETSRC = $(LIBSRC)/Xaw
  356. X       OLDXLIBSRC = $(LIBSRC)/oldX
  357. X      XDMCPLIBSRC = $(LIBSRC)/Xdmcp
  358. X      BDFTOSNFSRC = $(FONTSRC)/bdftosnf
  359. X      BDFTOSNFSRC = $(FONTSRC)/clients/bdftosnf
  360. X      BDFTOPCFSRC = $(FONTSRC)/clients/bdftopcf
  361. X     MKFONTDIRSRC = $(FONTSRC)/clients/mkfontdir
  362. X         FSLIBSRC = $(FONTSRC)/lib/fs
  363. X    FONTSERVERSRC = $(FONTSRC)/server
  364. X     EXTENSIONSRC = $(TOP)/extensions
  365. X         XILIBSRC = $(EXTENSIONSRC)/lib/xinput
  366. X      PHIGSLIBSRC = $(EXTENSIONSRC)/lib/PEX
  367. X
  368. # $XConsortium: sunLib.tmpl,v 1.11 91/07/31 11:32:08 rws Exp $
  369. X
  370. SHLIBLDFLAGS = -assert pure-text
  371. PICFLAGS = -pic
  372. X
  373. X  DEPEXTENSIONLIB =
  374. X     EXTENSIONLIB = -lXext
  375. X
  376. X          DEPXLIB = $(DEPEXTENSIONLIB)
  377. X             XLIB = $(EXTENSIONLIB) -lX11
  378. X
  379. X        DEPXMULIB = $(USRLIBDIR)/libXmu.sa.$(SOXMUREV)
  380. X           XMULIB = -lXmu
  381. X
  382. X       DEPOLDXLIB =
  383. X          OLDXLIB = -loldX
  384. X
  385. X      DEPXTOOLLIB = $(USRLIBDIR)/libXt.sa.$(SOXTREV)
  386. X         XTOOLLIB = -lXt
  387. X
  388. X        DEPXAWLIB = $(USRLIBDIR)/libXaw.sa.$(SOXAWREV)
  389. X           XAWLIB = -lXaw
  390. X
  391. X        DEPXILIB =
  392. X           XILIB = -lXi
  393. X
  394. X        SOXLIBREV = 4.10
  395. X          SOXTREV = 4.10
  396. X         SOXAWREV = 5.0
  397. X        SOOLDXREV = 4.10
  398. X         SOXMUREV = 4.10
  399. X        SOXEXTREV = 4.10
  400. X      SOXINPUTREV = 4.10
  401. X
  402. X      DEPXAUTHLIB = $(USRLIBDIR)/libXau.a
  403. X         XAUTHLIB =  -lXau
  404. X      DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a
  405. X         XDMCPLIB =  -lXdmcp
  406. X
  407. X        DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a
  408. X           PHIGSLIB =  -lphigs
  409. X
  410. X       DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a
  411. X          XBSDLIB =  -lXbsd
  412. X
  413. X LINTEXTENSIONLIB = $(LINTLIBDIR)/llib-lXext.ln
  414. X         LINTXLIB = $(LINTLIBDIR)/llib-lX11.ln
  415. X          LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln
  416. X        LINTXTOOL = $(LINTLIBDIR)/llib-lXt.ln
  417. X          LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln
  418. X           LINTXI = $(LINTLIBDIR)/llib-lXi.ln
  419. X        LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln
  420. X
  421. X          DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB)
  422. X
  423. X         DEPLIBS1 = $(DEPLIBS)
  424. X         DEPLIBS2 = $(DEPLIBS)
  425. X         DEPLIBS3 = $(DEPLIBS)
  426. X
  427. # -------------------------------------------------------------------------
  428. # Imake rules for building libraries, programs, scripts, and data files
  429. # rules:  $XConsortium: Imake.rules,v 1.123 91/09/16 20:12:16 rws Exp $
  430. X
  431. # -------------------------------------------------------------------------
  432. # start of Imakefile
  433. X
  434. #  xmandel - Mandelbrot set and Julia generator
  435. #
  436. # CC=gcc
  437. X
  438. # If you want ATHENA widgets, uncomment the following line
  439. MYLIBS = $(XAWLIB)
  440. X
  441. # If you want MOTIF rather than Athena widgets uncomment 2 lines
  442. # MOTIF = -DMOTIF
  443. # MYLIBS = $(MRMLIB) $(XMLIB)
  444. X
  445. # If your version of Motif needs X11/VaSimple.h
  446. # Interactive Unix X11R4 does with cc, not with gcc
  447. # VASIMPLE = -DVASIMPLE
  448. X
  449. # If you have bcopy() but not memcpy
  450. # BCOPY=-DHAVEBCOPY
  451. X
  452. # If you don't have bcopy() or memcpy()
  453. # MEMCPY=-DNEEDMEMCPY
  454. X
  455. # --- end config ---
  456. X
  457. LOCAL_LIBRARIES = $(MYLIBS) $(XTOOLLIB) $(XMULIB) $(XLIB)
  458. DEFINES = $(MOTIF) $(BCOPY) $(MEMCPY) $(VASIMPLE)
  459. SRCS = main.c mandel.c julia.c writegif.c
  460. OBJS = main.o mandel.o julia.o writegif.o
  461. X
  462. X PROGRAM = xmandel
  463. X
  464. all:: xmandel
  465. X
  466. xmandel: $(OBJS) $(DEPLIBS)
  467. X    $(RM) $@
  468. X    $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LOCAL_LIBRARIES) $(LDLIBS) $(EXTRA_LOAD_FLAGS)
  469. X
  470. saber_xmandel:: $(SRCS)
  471. X    # load $(ALLDEFINES) $(SRCS) $(LOCAL_LIBRARIES) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES)
  472. X
  473. osaber_xmandel:: $(OBJS)
  474. X    # load $(ALLDEFINES) $(OBJS) $(LOCAL_LIBRARIES) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES)
  475. X
  476. install:: xmandel
  477. X    @if [ -d $(DESTDIR)$(BINDIR) ]; then set +x; \
  478. X    else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi
  479. X    $(INSTALL) -c $(INSTPGMFLAGS)  xmandel $(DESTDIR)$(BINDIR)
  480. X
  481. install.man:: xmandel.man
  482. X    @if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \
  483. X    else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi
  484. X    $(INSTALL) -c $(INSTMANFLAGS) xmandel.man $(DESTDIR)$(MANDIR)/xmandel.$(MANSUFFIX)
  485. X
  486. depend::
  487. X    $(DEPEND) $(DEPENDFLAGS) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS)
  488. X
  489. lint:
  490. X    $(LINT) $(LINTFLAGS) $(SRCS) $(LINTLIBS)
  491. lint1:
  492. X    $(LINT) $(LINTFLAGS) $(FILE) $(LINTLIBS)
  493. X
  494. clean::
  495. X    $(RM) $(PROGRAM)
  496. X
  497. main.o:    mainaw.c mainmotif.c
  498. X
  499. tar:
  500. X    tar cvf mandel.tar README Imakefile Makefile Makefile.unix main.c mainaw.c mainmotif.c mandel.h mandel.c julia.c writegif.c xmandel.man xmandel.mot.ad mandel.bit
  501. X
  502. shar:
  503. X    makekit -m  README Imakefile Makefile.unix main.c mainaw.c mainmotif.c mandel.h mandel.c julia.c writegif.c xmandel.man xmandel.mot.ad mandel.bit
  504. X
  505. install:: XMandel.ad
  506. X    @if [ -d $(DESTDIR)$(XAPPLOADDIR) ]; then set +x; \
  507. X    else (set -x; $(MKDIRHIER) $(DESTDIR)$(XAPPLOADDIR)); fi
  508. X    $(INSTALL) -c $(INSTAPPFLAGS) XMandel.ad $(DESTDIR)$(XAPPLOADDIR)/XMandel
  509. X
  510. # -------------------------------------------------------------------------
  511. # common rules for all Makefiles - do not edit
  512. X
  513. emptyrule::
  514. X
  515. clean::
  516. X    $(RM_CMD) "#"*
  517. X
  518. Makefile::
  519. X    -@if [ -f Makefile ]; then set -x; \
  520. X    $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \
  521. X    else exit 0; fi
  522. X    $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR)
  523. X
  524. tags::
  525. X    $(TAGS) -w *.[ch]
  526. X    $(TAGS) -xw *.[ch] > TAGS
  527. X
  528. saber:
  529. X    # load $(ALLDEFINES) $(SRCS)
  530. X
  531. osaber:
  532. X    # load $(ALLDEFINES) $(OBJS)
  533. X
  534. # -------------------------------------------------------------------------
  535. # empty rules for directories that do not have SUBDIRS - do not edit
  536. X
  537. install::
  538. X    @echo "install in $(CURRENT_DIR) done"
  539. X
  540. install.man::
  541. X    @echo "install.man in $(CURRENT_DIR) done"
  542. X
  543. Makefiles::
  544. X
  545. includes::
  546. X
  547. # -------------------------------------------------------------------------
  548. # dependencies generated by makedepend
  549. X
  550. SHAR_EOF
  551. chmod 0644 Makefile.std ||
  552. echo 'restore of Makefile.std failed'
  553. Wc_c="`wc -c < 'Makefile.std'`"
  554. test 11508 -eq "$Wc_c" ||
  555.     echo 'Makefile.std: original size 11508, current size' "$Wc_c"
  556. rm -f _shar_wnt_.tmp
  557. fi
  558. # ============= README ==============
  559. if test -f 'README' -a X"$1" != X"-c"; then
  560.     echo 'x - skipping README (File already exists)'
  561.     rm -f _shar_wnt_.tmp
  562. else
  563. > _shar_wnt_.tmp
  564. echo 'x - extracting README (Text)'
  565. sed 's/^X//' << 'SHAR_EOF' > 'README' &&
  566. X        XMANDEL          May, 1992
  567. X
  568. This is a modified version of XMANDEL written originally by John L
  569. Freedman (jlf@cray.com). It has been suitably hacked and added to make it
  570. run on Interactive Unix X11R4 as well as SunOS.
  571. X
  572. The following enhacements to the original code have been made:
  573. X
  574. X    1. Athena or Motif GUI
  575. X    2. zooming on both the Mandelbrot or Julia sets
  576. X    3. support for 1,2,4 or 8 bit display systems
  577. X    4. GIF file output of images.
  578. X    5. exposure events are honoured
  579. X    6. the images may be rotated through the default colour map
  580. X
  581. GIF code was borrowed from the John Bradley's (bradley@cis.upenn.edu)
  582. XXV.2.11 sources.
  583. X
  584. The "quality" of the images is almost completely dependent upon the
  585. choice of the colour map! (It is unfortunate that this edition of xmandel
  586. cannot alter the colour map).  Usually, a decent default colour map
  587. may be installed with "xcolors".  Detailed editing of the color may
  588. may be done with xcoloredit, cpicker/pixedit or other color editors.
  589. X
  590. Still missing from this version:
  591. X    1. a GOOD method to colour the mandelbrot/julia images
  592. X    2. a history file of "pretty image" coordinates with
  593. X       the associated colour map.
  594. X    3. an XView3 implementation of the GUI.
  595. X
  596. TIMINGS: (full, unzoomed Mandelbrot set generation)
  597. ========
  598. On a 33mHz 386 with a 1024x768 image, display time = 13min 28 seconds
  599. On an HP9000s720 with 1024x768 image, display time = 24 seconds.
  600. X
  601. INSTALLATION
  602. ============
  603. An Imakefile is provided for use with imake/xmkmf.
  604. A Makefile.unix is useful if imake/xmkmf is not available.
  605. X
  606. Mofify the Imakefile or Makefile.unix to select the Athena or the Motif
  607. widget set. You may also need to specify the use of bcopy().
  608. X
  609. Follow normal make proceedures with "make", imake" or "xmkmf".
  610. X
  611. MOTIF RESOURCE FILE
  612. ===================
  613. If the MOTIF version of xmandel is created the "xmandel.mot.ad" file
  614. should be used to set reasonable mouse actions for the buttons. I
  615. attempted to hard code these translations into my Interactive Unix X11R4
  616. version of Motif, however it failed miserably. Thus, the application
  617. resource file should be created in the appropriate directory, eg:
  618. X
  619. X    cp xmandel.mot.ad /usr/lib/X11/app-defaults/XMandel
  620. X
  621. This file is NOT needed for the Athena widget version of xmandel.
  622. X
  623. BUGS
  624. ====
  625. Some event processing might not be done in the proper way in
  626. mandel.c and julia.c.
  627. X
  628. XXmandel does NOT run on an Apollo!  It fails on a call to XtDisplay:
  629. X
  630. X    display = XtDisplay(toplevel);
  631. X
  632. for "no reason".
  633. X
  634. X
  635. ===================================================
  636. Tony Field      tony@ajfcal.cuc.ab.ca             May, 1992
  637. SHAR_EOF
  638. chmod 0644 README ||
  639. echo 'restore of README failed'
  640. Wc_c="`wc -c < 'README'`"
  641. test 2547 -eq "$Wc_c" ||
  642.     echo 'README: original size 2547, current size' "$Wc_c"
  643. rm -f _shar_wnt_.tmp
  644. fi
  645. # ============= julia.c ==============
  646. if test -f 'julia.c' -a X"$1" != X"-c"; then
  647.     echo 'x - skipping julia.c (File already exists)'
  648.     rm -f _shar_wnt_.tmp
  649. else
  650. > _shar_wnt_.tmp
  651. echo 'x - extracting julia.c (Text)'
  652. sed 's/^X//' << 'SHAR_EOF' > 'julia.c' &&
  653. /* ta=4 */
  654. X
  655. #include <stdio.h>
  656. #include <X11/Intrinsic.h>
  657. #include "mandel.h"
  658. X
  659. struct imageparm juliaparm = { 0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0, 0, 0, 0, 0, 0, NULL, NULL, "\0", "\0", "\0", "\0" };
  660. static struct zoomd *zoomtmp;
  661. extern struct imageparm manparm;
  662. X
  663. void julia ();
  664. X
  665. int     julia_in_progress = 0;
  666. X
  667. extern Display *display;
  668. extern Screen *screen;
  669. extern int depth;
  670. extern int dots_per_byte;
  671. X
  672. static int scanline = -1;
  673. static int bottomscan = 0;
  674. X
  675. static GC draw_gc;
  676. static XImage *ximage = NULL;
  677. static char *image_data = NULL;
  678. static XWindowAttributes draw_wattr;
  679. static double a = 1.2;
  680. static double b = 1.2;
  681. X
  682. /************************************************************************
  683. *    do_mandel()            button: mandel,     compute mandelbort set        *
  684. ************************************************************************/
  685. X
  686. void start_julia (destroy_pixmap, newimage)
  687. int        destroy_pixmap;
  688. int        newimage;
  689. {
  690. X    if (juliaparm.window == 0)
  691. X        return;
  692. X    if (juliaparm.zoom)
  693. X    {    while (zoomtmp = juliaparm.zoom->zp) 
  694. X        {    free(juliaparm.zoom);
  695. X            juliaparm.zoom = zoomtmp;
  696. X        }
  697. X    } 
  698. X    else 
  699. X    {    juliaparm.zoom = (struct zoomd *) malloc(sizeof (struct zoomd));
  700. X        juliaparm.zoom->zp = NULL;    /* NULL means last in stack - don't pop */
  701. X    }
  702. X    juliaparm.zoom->lx = juliaparm.lx;
  703. X    juliaparm.zoom->ux = juliaparm.ux;
  704. X    juliaparm.zoom->ly = juliaparm.ly;
  705. X    juliaparm.zoom->uy = juliaparm.uy;
  706. X
  707. X    julia (destroy_pixmap, 1);
  708. }
  709. X
  710. X
  711. /************************************************************************
  712. *    do_julia()            button:    julia        compute julia set.            *
  713. ************************************************************************/
  714. X
  715. void julia (destroy_pixmap, newimage)
  716. int        destroy_pixmap;
  717. int        newimage;
  718. {
  719. X    XEvent ev;
  720. X    double wx, wy, oldwx;
  721. X    double sx, x, y;
  722. X    double incrx, incry;
  723. X    int ix, iy;
  724. X    long    save_event_mask;
  725. X    int        shift, mirror;
  726. X    Visual *draw_v;
  727. X
  728. X    if (manparm.zoom == NULL  ||  juliaparm.window == 0)
  729. X        return;
  730. X    juliaparm.lx = juliaparm.zoom->lx;
  731. X    juliaparm.ly = juliaparm.zoom->ly;
  732. X    juliaparm.ux = juliaparm.zoom->ux;
  733. X    juliaparm.uy = juliaparm.zoom->uy;
  734. X    update_coordinates (&juliaparm, 1);
  735. X
  736. X    scanline = -1;
  737. X    julia_in_progress = 1;
  738. X
  739. X    draw_gc = screen->default_gc;
  740. X    draw_v = screen->root_visual;
  741. X    XGetWindowAttributes(display, manparm.window, &draw_wattr);
  742. X    save_event_mask = draw_wattr.your_event_mask;
  743. X
  744. X    if (newimage)
  745. X    {
  746. X        /*    user must provide a point in the Mandelbrot window */
  747. X
  748. X        a = b = 0;
  749. X        XSelectInput (display, manparm.window, ButtonPressMask | ButtonReleaseMask
  750. X                    | PointerMotionHintMask | PointerMotionMask | ExposureMask);
  751. X        while (1) 
  752. X        {    XEvent report;
  753. X
  754. X            XNextEvent (display, &report);
  755. X            if (report.type == ButtonRelease  &&  report.xmotion.window == manparm.window)
  756. X            {    a = ( (double) report.xbutton.x / (double) draw_wattr.width);
  757. X                b = ( (double) report.xbutton.y / (double) draw_wattr.height);
  758. X                a = (a * (manparm.zoom->ux - manparm.zoom->lx)) + manparm.zoom->lx;
  759. X                b = manparm.zoom->uy - (b * (manparm.zoom->uy - manparm.zoom->ly));
  760. X                juliaparm.px = a;
  761. X                juliaparm.py = b;
  762. X                update_point (&juliaparm);
  763. X                break;
  764. X            }
  765. X            else if (report.type == MotionNotify)
  766. X            {    Window    root,  child;
  767. X                int        pos_x, pos_y;
  768. X                unsigned int keys_buttons;
  769. X                int        root_x, root_y;
  770. X                if (XQueryPointer (display, report.xmotion.window,
  771. X                        &root, &child, &root_x, &root_y,
  772. X                        &pos_x, &pos_y, &keys_buttons)  &&  report.xmotion.window  == manparm.window)
  773. X                {
  774. X                    a = ( (double) pos_x / (double) draw_wattr.width);
  775. X                    b = ( (double) pos_y / (double) draw_wattr.height);
  776. X                    a = (a * (manparm.zoom->ux - manparm.zoom->lx)) + manparm.zoom->lx;
  777. X                    b = manparm.zoom->uy - (b * (manparm.zoom->uy - manparm.zoom->ly));
  778. X                    juliaparm.px = a;
  779. X                    juliaparm.py = b;
  780. X                    juliaparm.pcolour = pixel_colour (&manparm, pos_x, pos_y);
  781. X                    update_point (&juliaparm);
  782. X                }
  783. X            }
  784. X            else
  785. X                XtDispatchEvent (&report);
  786. X            continue;
  787. X        }
  788. X    }
  789. X    XSelectInput (display, manparm.window, save_event_mask);
  790. X
  791. X    XGetWindowAttributes (display, juliaparm.window, &draw_wattr);
  792. X    if (destroy_pixmap)
  793. X    {    if (ximage)
  794. X            XDestroyImage(ximage);             /* also deallocated image_data */
  795. X        if (juliaparm.pix)
  796. X            free (juliaparm.pix);
  797. X        image_data         = NULL;  
  798. X        juliaparm.pix     = NULL; 
  799. X        ximage             = NULL;
  800. X        juliaparm.pixwidth = juliaparm.pixheight = -9999;
  801. X
  802. X    }
  803. X
  804. X    XClearWindow (display, juliaparm.window);
  805. X    XSelectInput(display, juliaparm.window, ExposureMask | ButtonPressMask | ButtonReleaseMask);
  806. X    if (juliaparm.pixwidth != draw_wattr.width  ||  juliaparm.pixheight != draw_wattr.height)
  807. X    {
  808. X        /*    if window changes size, rebuild the image information */
  809. X    
  810. X        juliaparm.pixwidth = draw_wattr.width;
  811. X        juliaparm.bytewidth = (juliaparm.pixwidth + dots_per_byte - 1) / dots_per_byte;
  812. X
  813. X        if (ximage)
  814. X            XDestroyImage (ximage); 
  815. X        if (juliaparm.pix)
  816. X            free (juliaparm.pix);
  817. X
  818. X        image_data = malloc (juliaparm.bytewidth + 1);
  819. X        juliaparm.pix = (unsigned char *) malloc (draw_wattr.height * juliaparm.bytewidth);
  820. X        if (image_data == NULL  ||  juliaparm.pix == NULL) 
  821. X        {    printf ("malloc failed\n"); 
  822. X            return; 
  823. X        }
  824. X        ximage = XCreateImage (display, draw_v, depth, ZPixmap, 0, image_data, juliaparm.pixwidth, 1, 8, juliaparm.bytewidth);
  825. X        ximage->byte_order = MSBFirst;
  826. X        ximage->bitmap_bit_order = MSBFirst;
  827. X    }
  828. X    juliaparm.pixheight = draw_wattr.height;
  829. X
  830. X
  831. X    /*    compute julia set for given coordinates */
  832. X
  833. X    sx = x = juliaparm.lx;
  834. X    y = juliaparm.uy;
  835. X    incrx = (juliaparm.ux - juliaparm.lx)  / draw_wattr.width;
  836. X    incry = (juliaparm.ly - juliaparm.uy)  / draw_wattr.height;
  837. X    scanline = -1;
  838. X    bottomscan = draw_wattr.height;
  839. X    for (iy = 0; iy < draw_wattr.height;  iy++, y+=incry) 
  840. X    {    int i;
  841. X
  842. X        x = sx;
  843. X        if (depth < 8) 
  844. X        {    for (i = 0 ; i < juliaparm.bytewidth; i++) 
  845. X                *(image_data + i) = 0;
  846. X        }
  847. X
  848. X        /*    build all points for one scan line of output */
  849. X
  850. X        for (ix = 0; ix < draw_wattr.width; ix++, x+=incrx) 
  851. X        {
  852. X            /*    compute the colour of a single pixel */
  853. X
  854. X            wx = x; wy = y;
  855. X            for (i = 0; i < ITERATION_DEPTH; i++) 
  856. X            {    oldwx = wx;
  857. X                wx = wx * wx - wy * wy + a;
  858. X                wy = 2 * oldwx * wy + b;
  859. X                if (wx * wx + wy * wy > 4) 
  860. X                    goto useit;
  861. X            }
  862. X            if (depth == 8)
  863. X            {    if (INFINITY_COLOR >= 0)
  864. X                    i = INFINITY_COLOR - COLOR_BIAS;
  865. X            }
  866. X            else
  867. X            {    if (INFINITY_COLOR >= 0)
  868. X                    i = INFINITY_COLOR;
  869. X            }
  870. X
  871. useit:        /*    assign colour to point based on screen depth */
  872. X
  873. X            switch (depth)
  874. X            {
  875. X            case 8:
  876. X                *(image_data + ix) = i + COLOR_BIAS;
  877. X                break;
  878. X
  879. X            case 4:
  880. X                if (ix % 2)
  881. X                    image_data[ix >> 1] |= (i % 16);
  882. X                else
  883. X                    image_data[ix >> 1] |= ((i % 16) << 4);
  884. X                break;
  885. X
  886. X            case 2:
  887. X                switch (ix % 4)
  888. X                {
  889. X                case 0:        shift = 6;    break;
  890. X                case 1:        shift = 4;    break;
  891. X                case 2:        shift = 2;    break;
  892. X                case 3:        shift = 0;    break;
  893. X                }
  894. X                image_data[ix >> 2] |= (i % 4) << shift;
  895. X                break;
  896. X            case 1:
  897. X                if (i % 2)
  898. X                    image_data[ix >> 3] |= 1 << (7 - ix%8);
  899. X            }
  900. X        }
  901. X
  902. X        /*    save a copy of the scan line for exposure events or gif output */
  903. X
  904. X        memcpy (juliaparm.pix + iy * juliaparm.bytewidth, image_data, juliaparm.bytewidth);
  905. X        scanline = iy;
  906. X        /*    send the image line to the screen */
  907. X
  908. X        XPutImage (display, juliaparm.window, draw_gc, ximage, 0,0, 0, iy, juliaparm.pixwidth, 1);
  909. X
  910. X        /*    handle exposure or button pressed events */
  911. X
  912. X        if (iy % EXPOSURE_TEST == 0)
  913. X        {    XSync (display, False);
  914. X            while (XCheckTypedEvent (display, Expose, &ev) == True)
  915. X                XtDispatchEvent (&ev);
  916. X            while (XCheckWindowEvent (display, juliaparm.window, ButtonPressMask | ButtonReleaseMask, &ev) == True)
  917. X            {    if (ev.type == ButtonRelease)
  918. X                    goto escape;
  919. X            }
  920. X        }
  921. X    }
  922. escape:
  923. X    XSync (display, False);
  924. X    julia_in_progress = 0;
  925. }
  926. X
  927. X
  928. /************************************************************************
  929. *    expose_julia()        handle exposure event on julia window.            *
  930. ************************************************************************/
  931. X
  932. void expose_julia (w, unused, event)
  933. Widget w;
  934. caddr_t unused;
  935. XXExposeEvent *event;
  936. {
  937. X    if (juliaparm.window == 0)
  938. X        return;
  939. X    if (event  &&  juliaparm.pix  && scanline >= 0)
  940. X        redraw_julia (event);
  941. }
  942. X
  943. /************************************************************************
  944. *    redraw_julia()        send julia from image bit vectors                *
  945. ************************************************************************/
  946. X
  947. void redraw_julia (event)
  948. XXExposeEvent *event;
  949. {
  950. X    int  iy;
  951. X    XWindowAttributes draw_wattr;
  952. X    int        jump;
  953. X    int    maxy;
  954. X
  955. X    if (juliaparm.window == 0)
  956. X        return;
  957. X    if (juliaparm.pix == NULL  ||  scanline < 0)
  958. X        return;
  959. X
  960. X    XGetWindowAttributes (display, juliaparm.window, &draw_wattr);
  961. X    jump = 1;
  962. X    if (event == NULL)
  963. X    {
  964. X        /*    refresh entire image */
  965. X
  966. X        maxy = MIN (draw_wattr.height, juliaparm.pixheight);
  967. X        for (iy = 0; iy <= scanline; iy++) 
  968. X        {    memcpy (image_data, juliaparm.pix + iy * juliaparm.bytewidth, juliaparm.bytewidth);
  969. X            XPutImage (display, juliaparm.window, draw_gc, ximage, 0,0, 0, iy, juliaparm.pixwidth, 1);
  970. X        }
  971. X    }
  972. X    else
  973. X    {    /*    refresh only exposed area */
  974. X
  975. X        int    first_byte, last_byte, nbytes, first_dot, last_dot, ndots;
  976. X
  977. X        if (event->x < juliaparm.pixwidth)
  978. X        {    first_byte = event->x / dots_per_byte;
  979. X            first_dot  = first_byte * dots_per_byte;
  980. X            last_dot   = MIN (juliaparm.pixwidth - 1, event->x + event->width - 1);
  981. X            last_byte  = (last_dot + dots_per_byte - 1) / dots_per_byte;
  982. X            nbytes     = last_byte - first_byte + 1;
  983. X            ndots      = last_dot - first_dot + 1;
  984. X            maxy       = MIN (event->y + event->height, juliaparm.pixheight);
  985. X            for (iy = event->y; iy <= scanline; iy++) 
  986. X            {    memcpy (image_data, juliaparm.pix + iy * juliaparm.bytewidth + first_byte , nbytes);
  987. X                XPutImage (display, juliaparm.window, draw_gc, ximage, 0,0, event->x, iy, ndots, 1);
  988. X            }
  989. X        }
  990. X    }
  991. X    XFlush(display);
  992. }
  993. X
  994. SHAR_EOF
  995. chmod 0644 julia.c ||
  996. echo 'restore of julia.c failed'
  997. Wc_c="`wc -c < 'julia.c'`"
  998. test 9512 -eq "$Wc_c" ||
  999.     echo 'julia.c: original size 9512, current size' "$Wc_c"
  1000. rm -f _shar_wnt_.tmp
  1001. fi
  1002. # ============= main.c ==============
  1003. if test -f 'main.c' -a X"$1" != X"-c"; then
  1004.     echo 'x - skipping main.c (File already exists)'
  1005.     rm -f _shar_wnt_.tmp
  1006. else
  1007. > _shar_wnt_.tmp
  1008. echo 'x - extracting main.c (Text)'
  1009. sed 's/^X//' << 'SHAR_EOF' > 'main.c' &&
  1010. /* ta=4 */
  1011. /************************************************************************
  1012. *            mandebrot and julia set generator                            *
  1013. ************************************************************************/
  1014. X
  1015. #ifdef MOTIF
  1016. #include "mainmotif.c"
  1017. #else
  1018. #include "mainaw.c"
  1019. #endif
  1020. X
  1021. SHAR_EOF
  1022. chmod 0644 main.c ||
  1023. echo 'restore of main.c failed'
  1024. Wc_c="`wc -c < 'main.c'`"
  1025. test 276 -eq "$Wc_c" ||
  1026.     echo 'main.c: original size 276, current size' "$Wc_c"
  1027. rm -f _shar_wnt_.tmp
  1028. fi
  1029. # ============= mainaw.c ==============
  1030. if test -f 'mainaw.c' -a X"$1" != X"-c"; then
  1031.     echo 'x - skipping mainaw.c (File already exists)'
  1032.     rm -f _shar_wnt_.tmp
  1033. else
  1034. > _shar_wnt_.tmp
  1035. echo 'x - extracting mainaw.c (Text)'
  1036. sed 's/^X//' << 'SHAR_EOF' > 'mainaw.c' &&
  1037. /* ta=4     (tabstop=4)
  1038. X *
  1039. X * Xmandel - written by John Freeman at Cray Research
  1040. X *
  1041. X *    modified to work on Interactive Unix X11 R4 and added gif output.
  1042. X *      Tony Field (tony@ajfcal.cuc.ab.ca)
  1043. X *
  1044. X * This file contains the main routine for driving the mandelbrot generator
  1045. X */
  1046. X
  1047. #include <X11/IntrinsicP.h>
  1048. #include <X11/Shell.h>
  1049. #include <X11/StringDefs.h>
  1050. #include <X11/Xaw/Cardinals.h>
  1051. #include <X11/Xaw/Box.h>
  1052. #include <X11/Xaw/Form.h>
  1053. #include <X11/Xaw/Command.h>
  1054. #include <X11/Xaw/Paned.h>
  1055. #include <X11/Xaw/Dialog.h>
  1056. X
  1057. #include <stdio.h>
  1058. #include "mandel.h"
  1059. #include "mandel.bit"
  1060. X
  1061. #ifdef __STDC__
  1062. static void do_mandel(Widget w, caddr_t client_data, caddr_t call_data);
  1063. static void do_julia(Widget w, caddr_t client_data, caddr_t call_data);
  1064. static void do_remove(Widget w, caddr_t client_data, caddr_t call_data);
  1065. static void do_quit(Widget w, caddr_t client_data, caddr_t call_data);
  1066. static void do_toggle(Widget w, caddr_t client_data, caddr_t call_data);
  1067. static void do_recalc(Widget w, caddr_t client_data, caddr_t call_data);
  1068. static void set_image(char *s);
  1069. static void do_gif(Widget w, caddr_t client_data, caddr_t call_data);
  1070. static String tidy(String s);
  1071. static void MandelFname(Widget w, caddr_t client_data, caddr_t call_data);
  1072. static void JuliaFname(Widget w, caddr_t client_data, caddr_t call_data);
  1073. static void FnameCancel(Widget w, caddr_t client_data, caddr_t call_data);
  1074. static void do_colour(Widget w, caddr_t client_data, caddr_t call_data);
  1075. static void MandelRotate(Widget w, caddr_t client_data, caddr_t call_data);
  1076. static void JuliaRotate(Widget w, caddr_t client_data, caddr_t call_data);
  1077. static void rotate_selected(void);
  1078. static void rotateplus(Widget w, caddr_t client_data, caddr_t call_data);
  1079. static void rotateminus(Widget w, caddr_t client_data, caddr_t call_data);
  1080. static void CancelRotate(Widget w, caddr_t client_data, caddr_t call_data);
  1081. static void rotate(struct imageparm *parm, int val);
  1082. static XtActionProc nothing(Widget w, XButtonEvent *event, String *params, Cardinal *num_params);
  1083. static void reshape_widgets(Widget parent, char **full_size, char **small_size);
  1084. static Widget *ConvertNamesToWidgets(Widget parent, char **names);
  1085. #else
  1086. static void do_mandel();
  1087. static void do_julia();
  1088. static void do_remove();
  1089. static void do_quit();
  1090. static void do_toggle();
  1091. static void do_recalc();
  1092. static void set_image();
  1093. static void do_gif();
  1094. static String tidy();
  1095. static void MandelFname();
  1096. static void JuliaFname();
  1097. static void FnameCancel();
  1098. static void do_colour();
  1099. static void MandelRotate();
  1100. static void JuliaRotate();
  1101. static void rotate_selected();
  1102. static void rotateplus();
  1103. static void rotateminus();
  1104. static void CancelRotate();
  1105. static void rotate();
  1106. static XtActionProc nothing();
  1107. static void reshape_widgets();
  1108. static Widget *ConvertNamesToWidgets();
  1109. #endif
  1110. X
  1111. Display *display;
  1112. Screen    *screen;
  1113. Widget drawform;
  1114. Window root;
  1115. int depth;                            /*    bits per pixel (colour depth)     */
  1116. int dots_per_byte;                    /*    pixel dots in a byte            */
  1117. X
  1118. extern struct imageparm manparm;
  1119. extern struct imageparm juliaparm;
  1120. struct imageparm *activeimage = &manparm;
  1121. static Widget toplevel, juliashell = NULL;
  1122. extern int julia_in_progress;
  1123. X
  1124. static Pixmap         mandel_pixmap, julim_pixmap;
  1125. X
  1126. Widget pshell, pressme, fnameDialog, dialogDone, dialogCancel, juliaFname;
  1127. Widget jshell, cshell, colourit, rotate_mandel, rotate_julia, rotate_cancel;
  1128. Widget toggle;
  1129. X
  1130. /*    kill use of the carriage return */
  1131. X
  1132. char *kset = "#override \n\
  1133. X    Ctrl<Key>M:     nothing() \n\
  1134. X    <Key>Return:    nothing()";
  1135. X
  1136. XXtActionsRec gif_actions[] =
  1137. {    { (String) "nothing", (XtActionProc) nothing }
  1138. } ;
  1139. X
  1140. X
  1141. /*    buttons name, callback, parent for basic user buttons    */
  1142. X
  1143. struct button_list button[] = 
  1144. {    { "mandel",        do_mandel     },
  1145. X    { "julia",        do_julia     },
  1146. X    { "toggle",        do_toggle     },
  1147. X    { "zoom",        do_zoom         },
  1148. X    { "unzoom",        do_unzoom     },
  1149. X    { "colour",        do_colour     },
  1150. X    { "+colour",    rotateplus     },
  1151. X    { "-colour",    rotateminus     },
  1152. X    { "recalc",        do_recalc    },
  1153. X    { "gif",        do_gif         },
  1154. X    { "remove",        do_remove     },
  1155. X    { "quit",        do_quit         },
  1156. X    { NULL,            NULL         }
  1157. };
  1158. X
  1159. char *is_mandel = "Image: Mandel ";
  1160. char *is_julia  = "Image: Julia  ";
  1161. int    mandel_window_high;
  1162. X
  1163. main (argc, argv)
  1164. int argc;
  1165. char **argv;
  1166. {
  1167. X    Widget pane, box, form, new;
  1168. X    Arg av[10];
  1169. X    Cardinal i;
  1170. X    int    n;
  1171. X    int    wide, high;
  1172. X    double dx, dy;
  1173. X    char depth_str[10];
  1174. X    XtTranslations mytranslations;
  1175. X    static char *on_separate_lines[] = { "label", "value", NULL };
  1176. X    static char *on_single_line[] = { "Mandelbrot", "Julia", "Cancel", NULL };
  1177. X
  1178. X    toplevel = XtInitialize (argv[0], "XMandel", NULL, 0, &argc, argv);
  1179. X
  1180. X    display = XtDisplay(toplevel);
  1181. X    root = RootWindow (display, DefaultScreen(display));
  1182. X    depth = DefaultDepthOfScreen (XtScreen(toplevel));
  1183. X    screen  = XtScreen (toplevel);
  1184. X    switch (depth)
  1185. X    {
  1186. X    case 8:        dots_per_byte = 1;  break;
  1187. X    case 4:        dots_per_byte = 2;  break;
  1188. X    case 2:        dots_per_byte = 4;    break;
  1189. X    case 1:        dots_per_byte = 8;    break;
  1190. X    default:    printf ("Cannot handle %d bit colour\n", depth);
  1191. X                exit (1);
  1192. X    }
  1193. X    sprintf (depth_str, "%d", depth);        /*    default for "colour" button */
  1194. X    manparm.rotation = juliaparm.rotation = depth;
  1195. X    printf ("%d bit color\n", depth);
  1196. X    manparm.totrot   = 0;
  1197. X    manparm.window   = 0;
  1198. X    manparm.pix      = NULL;
  1199. X    juliaparm.totrot = 0;
  1200. X    juliaparm.window = 0;
  1201. X    juliaparm.pix    = NULL;
  1202. X
  1203. X    /*    create a resizable container for user buttons and graphics */
  1204. X
  1205. X    pane = XtCreateManagedWidget ("pane", panedWidgetClass, toplevel, NULL, ZERO);
  1206. X
  1207. X    /*    create a button box within the pane for user selection */
  1208. X
  1209. X    box = XtCreateManagedWidget ("box", boxWidgetClass, pane, NULL, ZERO);
  1210. X
  1211. X    /*    create all user button widgets + associated callbacks, add to "box" */
  1212. X
  1213. X    for (n = 0;  button[n].ident;  n++)
  1214. X    {    new =  XtCreateManagedWidget (button[n].ident, commandWidgetClass, box, NULL, ZERO);
  1215. X        XtAddCallback (new, XtNcallback, button[n].bcall , 0);
  1216. X    }
  1217. X
  1218. X    new = XtNameToWidget (box, "mandel");
  1219. X    i = 0;    
  1220. X    XtSetArg (av[i], XtNlabel, "  Mandelbrot  "); i++;
  1221. X    XtSetValues(new, av, i);
  1222. X
  1223. X    new = XtNameToWidget (box, "julia");
  1224. X    i = 0;    
  1225. X    XtSetArg (av[i], XtNlabel, "    Julia     "); i++;
  1226. X    XtSetValues(new, av, i);
  1227. X
  1228. X    toggle = XtNameToWidget (box, "toggle");
  1229. X    set_image (is_mandel);
  1230. X
  1231. X    /*    create a form widget within the pane to hold the graphics. */
  1232. X
  1233. X    form = XtCreateManagedWidget ("form", formWidgetClass, pane, NULL, ZERO);
  1234. X
  1235. X    dx = START_UX - START_LX;
  1236. X    dx = ABS (dx);
  1237. X    dy = START_UY - START_LY;
  1238. X    dy = ABS (dy);
  1239. X    wide = 225;
  1240. X    high = (double) wide * (dy / dx);
  1241. X    mandel_window_high = high;
  1242. X
  1243. X    /*    add the drawing area to the form widget */
  1244. X
  1245. X    i = 0;
  1246. X    XtSetArg (av[i], XtNtop, XtChainTop); i++;
  1247. X    XtSetArg (av[i], XtNbottom, XtChainBottom); i++;
  1248. X    XtSetArg (av[i], XtNleft, XtChainLeft); i++;
  1249. X    XtSetArg (av[i], XtNright, XtChainRight); i++;
  1250. X    XtSetArg (av[i], XtNwidth, wide); i++;
  1251. X    XtSetArg (av[i], XtNheight, high); i++;
  1252. X    drawform = XtCreateManagedWidget ("mandelbrot", widgetClass, form, av, i);
  1253. X
  1254. X    /*    popup to request gif output file name */
  1255. X
  1256. X    i = 0;
  1257. X    pshell = XtCreatePopupShell("Write Gif", transientShellWidgetClass, toplevel, av, i);
  1258. X
  1259. X    i = 0;
  1260. X    XtSetArg (av[i], XtNvalue, ""); i++;
  1261. X    XtSetArg (av[i], XtNlabel, "Output GIF file name. Select Mandelbrot or Julia.");  i++;
  1262. X    fnameDialog = XtCreateManagedWidget("fname", dialogWidgetClass, pshell, av, i);
  1263. X
  1264. X    i = 0;
  1265. X    dialogDone = XtCreateManagedWidget("Mandelbrot", commandWidgetClass, fnameDialog, av, i);
  1266. X
  1267. X    i = 0;
  1268. X    juliaFname = XtCreateManagedWidget("Julia", commandWidgetClass, fnameDialog, av, i);
  1269. X
  1270. X    i = 0;
  1271. X    dialogCancel = XtCreateManagedWidget("Cancel", commandWidgetClass, fnameDialog, av, i);
  1272. X
  1273. X    XtAddCallback(dialogDone, XtNcallback, MandelFname, fnameDialog);
  1274. X    XtAddCallback(juliaFname, XtNcallback, JuliaFname, fnameDialog);
  1275. X    XtAddCallback(dialogCancel, XtNcallback, FnameCancel, fnameDialog);
  1276. X
  1277. X    /*    popup to request colour rotate */
  1278. X
  1279. X    i = 0;
  1280. X    cshell = XtCreatePopupShell("Colour Rotate", transientShellWidgetClass, toplevel, av, i);
  1281. X
  1282. X    i = 0;
  1283. X    XtSetArg (av[i], XtNvalue, ""); i++;
  1284. X    XtSetArg (av[i], XtNlabel, "Rotate current colour values by:");  i++;
  1285. X    XtSetArg (av[i], XtNvalue, depth_str);  i++;
  1286. X    colourit = XtCreateManagedWidget("colour", dialogWidgetClass, cshell, av, i);
  1287. X
  1288. X    i = 0;
  1289. X    rotate_mandel = XtCreateManagedWidget("Mandelbrot", commandWidgetClass, colourit, av, i);
  1290. X
  1291. X    i = 0;
  1292. X    rotate_julia = XtCreateManagedWidget("Julia", commandWidgetClass, colourit, av, i);
  1293. X
  1294. X    i = 0;
  1295. X    rotate_cancel = XtCreateManagedWidget("Cancel", commandWidgetClass, colourit, av, i);
  1296. X
  1297. X    XtAddCallback(rotate_mandel, XtNcallback, MandelRotate, colourit);
  1298. X    XtAddCallback(rotate_julia, XtNcallback, JuliaRotate, colourit);
  1299. X    XtAddCallback(rotate_cancel, XtNcallback, CancelRotate, colourit);
  1300. X
  1301. X    /*    disable <enter> in fnameDialog box */
  1302. X
  1303. X    XtAddActions (gif_actions, XtNumber (gif_actions));
  1304. X
  1305. X    /*    create julia window as a popup shell */
  1306. X
  1307. X    i = 0;
  1308. X    jshell = XtCreatePopupShell("Julia Set", transientShellWidgetClass, toplevel, av, i);
  1309. X    XtAddEventHandler (jshell, ExposureMask, FALSE,  expose_julia, NULL);
  1310. X
  1311. X    /*    setup function to handle exposure events    */
  1312. X
  1313. X    XtAddEventHandler (drawform, ExposureMask, FALSE,  expose_mandel, NULL);
  1314. X    reshape_widgets (fnameDialog, on_separate_lines, on_single_line);
  1315. X    reshape_widgets (colourit, on_separate_lines, on_single_line);
  1316. X
  1317. X    /*    kill use of the carriage return */
  1318. X
  1319. X    new = XtNameToWidget (fnameDialog, "value");
  1320. X    mytranslations = XtParseTranslationTable (kset);
  1321. X    XtOverrideTranslations (new,   mytranslations);
  1322. X
  1323. X    new = XtNameToWidget (colourit, "value");
  1324. X    mytranslations = XtParseTranslationTable (kset);
  1325. X    XtOverrideTranslations (new,   mytranslations);
  1326. X
  1327. X    mandel_pixmap = XCreateBitmapFromData (XtDisplay (toplevel),
  1328. X                        RootWindowOfScreen (XtScreen (toplevel)),
  1329. X                        mandel_bits,
  1330. X                        mandel_width,
  1331. X                        mandel_height);
  1332. X    XtSetArg (av[0], XtNiconPixmap, mandel_pixmap);
  1333. X    XtSetValues (toplevel, av, 1);
  1334. X
  1335. X    XtRealizeWidget (toplevel);
  1336. X    juliaparm.pix = NULL;
  1337. X    manparm.pix = NULL;
  1338. X    XtMainLoop ();
  1339. }
  1340. X
  1341. /*    callbacks    /
  1342. X
  1343. /************************************************************************
  1344. *    do_mandel()        button = mandel:    create/use mandelbrot window    *
  1345. ************************************************************************/
  1346. X
  1347. static void do_mandel (w, client_data, call_data)
  1348. Widget w;
  1349. caddr_t client_data;
  1350. caddr_t call_data;
  1351. {    unsigned int    high, wide;
  1352. X    double            dx, dy;
  1353. X
  1354. X    manparm.lx = START_LX;
  1355. X    manparm.ly = START_LY;
  1356. X    manparm.ux = START_UX;
  1357. X    manparm.uy = START_UY;
  1358. X    dx = START_UX - START_LX;
  1359. X    dx = ABS (dx);
  1360. X    dy = START_UY - START_LY;
  1361. X    dy = ABS (dy);
  1362. X    wide = 225;
  1363. X    high = (double) wide * (dy / dx);
  1364. X    manparm.window = XtWindow (drawform);
  1365. X    manparm.totrot = 0;
  1366. X    start_mandel ();
  1367. }
  1368. X
  1369. /************************************************************************
  1370. *    do_julia()        button = julia:        create/use julia window            *
  1371. ************************************************************************/
  1372. X
  1373. static void do_julia (w, client_data, call_data)
  1374. Widget w;
  1375. caddr_t client_data;
  1376. caddr_t call_data;
  1377. {    int        i;
  1378. X    Arg        av[10];
  1379. X
  1380. X    if (manparm.window == 0)
  1381. X        return;
  1382. X
  1383. X    juliaparm.lx = -1.5;
  1384. X    juliaparm.ly = -1.5;
  1385. X    juliaparm.ux = 1.5;
  1386. X    juliaparm.uy = 1.5;
  1387. X    if (juliaparm.window == 0)
  1388. X    {
  1389. X        if (juliashell == NULL)
  1390. X        {    i = 0;
  1391. X            XtSetArg (av[i], XtNwidth,       mandel_window_high);        i++;
  1392. X            XtSetArg (av[i], XtNheight,      mandel_window_high);        i++;
  1393. X            XtSetArg (av[i], XtNtitle,        "Julia");                    i++;
  1394. X            XtSetArg (av[i], XtNiconName,    "Julia");                    i++;
  1395. X            juliashell = XtCreateApplicationShell ("Juliashell", topLevelShellWidgetClass, av, i);
  1396. X            XtAddEventHandler (juliashell, ExposureMask, FALSE,  expose_julia, NULL);
  1397. X
  1398. X            julim_pixmap = XCreateBitmapFromData (XtDisplay (juliashell),
  1399. X                        RootWindowOfScreen (XtScreen (juliashell)),
  1400. X                        julim_bits,
  1401. X                        julim_width,
  1402. X                        julim_height);
  1403. X            XtSetArg (av[0], XtNiconPixmap, julim_pixmap);
  1404. X            XtSetValues (juliashell, av, 1);
  1405. X
  1406. X            XtRealizeWidget (juliashell);
  1407. X        }
  1408. X        else
  1409. X            XtMapWidget (juliashell);
  1410. X        juliaparm.window = XtWindow (juliashell);
  1411. X    }
  1412. X    juliaparm.window = XtWindow (juliashell);
  1413. X    juliaparm.totrot = 0;
  1414. X    start_julia (1, 1);
  1415. X    printf ("\n");
  1416. }
  1417. X
  1418. /************************************************************************
  1419. *    do_recalc            button = recalc.    recalculate current set.    *
  1420. ************************************************************************/
  1421. X
  1422. static void do_recalc (w, client_data, call_data)
  1423. Widget w;
  1424. caddr_t client_data;
  1425. caddr_t call_data;
  1426. {
  1427. X    if (activeimage == &manparm)
  1428. X        redo_mandel();
  1429. X    else
  1430. X        julia (1,0);
  1431. }
  1432. X
  1433. X
  1434. /************************************************************************
  1435. *    do_remove():        button = remove.  unmap julia widget            *
  1436. ************************************************************************/
  1437. X
  1438. static void do_remove (w, client_data, call_data)
  1439. Widget w;
  1440. caddr_t client_data;
  1441. caddr_t call_data;
  1442. {
  1443. X    if (julia_in_progress)
  1444. X        return;
  1445. X
  1446. X    if (juliaparm.window)
  1447. X        XtUnmapWidget (juliashell);
  1448. X
  1449. X    juliaparm.window = 0;
  1450. X    activeimage = &manparm;
  1451. X    set_image (is_mandel);
  1452. }
  1453. X
  1454. /************************************************************************
  1455. *    do_quit():        button = quit,   leave xmandel.                        *
  1456. ************************************************************************/
  1457. X
  1458. static void do_quit (w, client_data, call_data)
  1459. Widget w;
  1460. caddr_t client_data;
  1461. caddr_t call_data;
  1462. {
  1463. X    printf ("\n");
  1464. X    exit (0);
  1465. }
  1466. X
  1467. /************************************************************************
  1468. *    do_toggle():        button = quit,   leave xmandel.                        *
  1469. ************************************************************************/
  1470. X
  1471. static void do_toggle (w, client_data, call_data)
  1472. Widget w;
  1473. caddr_t client_data;
  1474. caddr_t call_data;
  1475. {    char    *which;
  1476. X
  1477. X    if (juliaparm.window == 0)
  1478. X        return;
  1479. X    if (activeimage == &manparm)
  1480. X    {    activeimage = &juliaparm;
  1481. X        which = is_julia;
  1482. X    }
  1483. X    else
  1484. X    {    activeimage = &manparm;
  1485. X        which = is_mandel;
  1486. X    }
  1487. X    set_image (which);
  1488. X        
  1489. }
  1490. X
  1491. static void set_image (s)
  1492. char *s;
  1493. {    int        i;
  1494. X    Arg        av[10];
  1495. X
  1496. X    i = 0;    
  1497. X    XtSetArg (av[i], XtNlabel, s); i++;
  1498. X    XtSetValues(toggle, av, i);
  1499. }
  1500. X
  1501. /************************************************************************
  1502. *    do_gif ()        button = gif,   ask user for file name                *
  1503. ************************************************************************/
  1504. X
  1505. static void do_gif (w, client_data, call_data)
  1506. Widget w;
  1507. caddr_t client_data;
  1508. caddr_t call_data;
  1509. {
  1510. X    Position x, y;
  1511. X    Dimension width, height;
  1512. X    Arg arg[2];
  1513. X    int i;
  1514. X
  1515. X    /*     get the coordinates of the middle of toplevel widget.    */
  1516. X
  1517. X    i = 0;
  1518. X    XtSetArg(arg[i], XtNwidth, &width);    i++;
  1519. X    XtSetArg(arg[i], XtNheight, &height);  i++;
  1520. X    XtGetValues(toplevel, arg, i);
  1521. X    
  1522. X    /*    translate coordinates in application top-level window
  1523. X        into coordinates from root window origin.
  1524. X    */
  1525. X    XtTranslateCoords(toplevel,                /* Widget */
  1526. X                (Position) width/2,            /* x */
  1527. X                (Position) height/2,        /* y */
  1528. X                &x, &y);                    /* coords on root window */
  1529. X
  1530. X    /* move popup shell to this position (it's not visible yet) */
  1531. X
  1532. X    i = 0;
  1533. X    XtSetArg(arg[i], XtNx, x);          i++;
  1534. X    XtSetArg(arg[i], XtNy, y);          i++;
  1535. X    XtSetValues(pshell, arg, i);
  1536. X
  1537. X    /*    Indicate to user that no other application functions are
  1538. X        valid while fnameDialog is popped up...
  1539. X    */
  1540. X    XtPopup(pshell, XtGrabNonexclusive);
  1541. }
  1542. X
  1543. /************************************************************************
  1544. *    tidy()        return the first non-blank word (ascii dependent!)        *
  1545. ************************************************************************/
  1546. X
  1547. static String tidy (s)
  1548. String s;
  1549. {    String cs;
  1550. X
  1551. X    while (*s  &&  *s == ' ')
  1552. X        s++;
  1553. X    cs = s;
  1554. X    while (*s  &&  *s > ' '  &&  *s <= 'z')
  1555. X        s++;
  1556. X    *s = 0;
  1557. X    return (cs);
  1558. }
  1559. X
  1560. /************************************************************************
  1561. *    MandelFname ()    button = gif/accept   write image to gif file        *
  1562. ************************************************************************/
  1563. X
  1564. static void MandelFname (w, client_data, call_data)
  1565. Widget w;
  1566. caddr_t client_data;
  1567. caddr_t call_data;
  1568. {
  1569. X    String string, s;
  1570. X
  1571. X    string = XawDialogGetValueString(fnameDialog);
  1572. X    s = tidy (string);
  1573. X    if (*s  && manparm.pix)
  1574. X    {    activeimage = &manparm;
  1575. X        printf ("Mandelbrot gif file = %s\n", s);
  1576. X        write_gif_image (s, activeimage);
  1577. X    }
  1578. X    XtPopdown(pshell);
  1579. X    set_image (is_mandel);
  1580. X    XFlush (display);
  1581. }
  1582. X
  1583. /************************************************************************
  1584. *    JuliaFname ()    button = gif/accept   write image to gif file        *
  1585. ************************************************************************/
  1586. X
  1587. static void JuliaFname (w, client_data, call_data)
  1588. Widget w;
  1589. caddr_t client_data;
  1590. caddr_t call_data;
  1591. {
  1592. X    String string, s;
  1593. X
  1594. X    string = XawDialogGetValueString(fnameDialog);
  1595. X    s = tidy (string);
  1596. X    if (*s  &&  juliaparm.pix)
  1597. X    {    activeimage = &juliaparm;
  1598. X        printf ("Julia gif file = %s\n", s);
  1599. X        write_gif_image (s, activeimage);
  1600. X    }
  1601. X    XtPopdown(pshell);
  1602. X    set_image (is_julia);
  1603. X    XFlush (display);
  1604. }
  1605. X
  1606. /************************************************************************
  1607. *    FnameCancel()        button = gif/cancel        ignore file write rq.    *
  1608. ************************************************************************/
  1609. X
  1610. static void FnameCancel (w, client_data, call_data)
  1611. Widget w;
  1612. caddr_t client_data;
  1613. caddr_t call_data;
  1614. {
  1615. X    XtPopdown(pshell);
  1616. X    XFlush (display);
  1617. }
  1618. X
  1619. X
  1620. /************************************************************************
  1621. *    do_colour()        button = gif,   ask user for file name                *
  1622. ************************************************************************/
  1623. X
  1624. static void do_colour (w, client_data, call_data)
  1625. Widget w;
  1626. caddr_t client_data;
  1627. caddr_t call_data;
  1628. {
  1629. X    Position x, y;
  1630. X    Dimension width, height;
  1631. X    Arg arg[2];
  1632. X    int i;
  1633. X
  1634. X    /*     get the coordinates of the middle of toplevel widget.    */
  1635. X
  1636. X    i = 0;
  1637. X    XtSetArg(arg[i], XtNwidth, &width);    i++;
  1638. X    XtSetArg(arg[i], XtNheight, &height);  i++;
  1639. X    XtGetValues(w, arg, i);
  1640. X
  1641. X    XtTranslateCoords(w,                    /* Widget */
  1642. X                (Position) 0,            /* x */
  1643. X                (Position) height+2,        /* y */
  1644. X                &x, &y);                    /* coords on root window */
  1645. X
  1646. X    /* move popup shell to this position (it's not visible yet) */
  1647. X
  1648. X    i = 0;
  1649. X    XtSetArg(arg[i], XtNx, x);          i++;
  1650. X    XtSetArg(arg[i], XtNy, y);          i++;
  1651. X    XtSetValues(cshell, arg, i);
  1652. X
  1653. X    /*    Indicate to user that no other application functions are
  1654. X        valid while fnameDialog is popped up...
  1655. X    */
  1656. X    XtPopup(cshell, XtGrabNonexclusive);
  1657. }
  1658. X
  1659. /************************************************************************
  1660. *    MandelRotate             button = colour/mandelbort:    rotate colour    *
  1661. ************************************************************************/
  1662. X
  1663. static void MandelRotate (w, client_data, call_data)
  1664. Widget w;
  1665. caddr_t client_data;
  1666. caddr_t call_data;
  1667. {
  1668. X    if (manparm.window)
  1669. X    {    activeimage = &manparm;
  1670. X        set_image (is_mandel);
  1671. X        rotate_selected ();
  1672. X    }
  1673. }
  1674. X
  1675. /************************************************************************
  1676. *    JuliaRotate()            button = colour/julia    rotate julia colour    *
  1677. ************************************************************************/
  1678. X
  1679. static void JuliaRotate (w, client_data, call_data)
  1680. Widget w;
  1681. caddr_t client_data;
  1682. caddr_t call_data;
  1683. {
  1684. X    if (juliaparm.window)
  1685. X    {    activeimage = &juliaparm;
  1686. X        set_image (is_julia);
  1687. X        rotate_selected ();
  1688. X    }
  1689. }
  1690. X
  1691. /************************************************************************
  1692. *    JuliaRotate()            button = colour/julia    rotate julia colour    *
  1693. ************************************************************************/
  1694. X
  1695. static void rotate_selected ()
  1696. {    String string, s;
  1697. X    int        atoi();
  1698. X
  1699. X    XtPopdown(cshell);
  1700. X    XFlush (display);
  1701. X    string = XawDialogGetValueString(colourit);
  1702. X    s = tidy (string);
  1703. X    if (*s  && manparm.pix)
  1704. X    {    activeimage->rotation = atoi (s);
  1705. X    }
  1706. }
  1707. X
  1708. /************************************************************************
  1709. *    rotateplus            button = +colour    rotate colour positive        *
  1710. ************************************************************************/
  1711. X
  1712. static void rotateplus (w, client_data, call_data)
  1713. Widget w;
  1714. caddr_t client_data;
  1715. caddr_t call_data;
  1716. {
  1717. X    rotate (activeimage,  activeimage->rotation);
  1718. SHAR_EOF
  1719. true || echo 'restore of mainaw.c failed'
  1720. fi
  1721. echo 'End of  part 1'
  1722. echo 'File mainaw.c is continued in part 2'
  1723. echo 2 > _shar_seq_.tmp
  1724. exit 0
  1725. -- 
  1726. --
  1727. Molecular Simulations, Inc.            mail: dcmartin@msi.com
  1728. 796 N. Pastoria Avenue                uucp: uunet!dcmartin
  1729. Sunnyvale, California 94086            at&t: 408/522-9236
  1730.