Fraktalism/.gitignore

@@ -17,7 +17,6 @@ WS/*.inc
 toto
 
 *.pgm
-*.pnm
 *.gif
 *.asc
 *.png

Fraktalism/Makefile

@@ -38,15 +38,10 @@ plotcolmap:	plotcolmap.f90 Makefile $(OBJDEP)
 
 # ---------------------------------------------
 
-mkjulia:	mkjulia.f90 Makefile $(OBJDEP)
+henon:		henon.f90 Makefile $(OBJDEP)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
-xjulia.pnm:	mkjulia Makefile
+mkjulia:	mkjulia.f90 Makefile $(OBJDEP)
-	./mkjulia $@ -0.204365 0.321463
-
-# ---------------------------------------------
-
-henon:		henon.f90 Makefile $(OBJDEP)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
 pickover:	pickover.f90 Makefile $(OBJDEP) 

GrafAnim/.gitignore

@@ -6,7 +6,6 @@ trigofest
 noisepic
 geowaves
 soundscope
-readpicz
 
 *.scratch
 *.genplot
@@ -17,5 +16,4 @@ F/*.tga
 *.pgm
 *.data
 *.png
-log.txt
 

GrafAnim/Makefile

@@ -32,9 +32,6 @@ wavmetrics.o:	wavmetrics.f90 Makefile
 soundscope:	soundscope.f90 Makefile utils_ga.o
 	gfortran $(GFOPT) $< $(MYLIB) utils_ga.o -o $@
 
-readpicz:	readpicz.f90 Makefile utils_ga.o
-	gfortran $(GFOPT) $< $(MYLIB) utils_ga.o -o $@
-
 # ---- modules locaux ----
 
 usegenplot.o:	usegenplot.f90 Makefile

GrafAnim/readpicz.f90

@@ -1,52 +0,0 @@
-program readpicz
-
-  use pixrgb
-  implicit none
-
-  integer                   :: nbarg
-  integer                   :: param0 = 10
-  character(len=256)        :: arg
-
-  ! integer                   :: foo, bar
-
-  integer                   :: width  = 640
-  integer                   :: height = 480
-  integer                   :: x, y, r, g, b
-  integer                   :: errcode
-  character (len=280)       :: filename
-  type(t_pixrgb), allocatable      :: pix(:,:)
-
-  filename = "out.pnm"
-
-  nbarg = IARGC()
-  if (nbarg .GT. 0) then
-       call GETARG(1, arg)
-       ! write (0, '(A40, A5)') "argument = ",  arg
-       read (arg, *) param0
-  endif
-
-  allocate(pix(width, height))
-
-  do
-    !----- get a pixel
-    read(5, *, iostat=errcode) x, y, r, g, b
-    ! print *, x, y
-    if (0 .NE. errcode) then
-      write(0, *) "iostat", errcode
-      exit
-    endif
-    pix(x+1, y+1)%r = b * 200
-    pix(x+1, y+1)%g = b * 200
-    pix(x+1, y+1)%b = r * 200
-  enddo
-
-  call rgbpix_spit_as_pnm_16(pix, trim(filename))
-
-contains
-! ----------------------------------------------------------
-
-
-! ----------------------------------------------------------
-
-end program
-

GrafAnim/t_readpicz.sh

@@ -1,7 +0,0 @@
-#!/bin/bash
-
-tga_mires mircol0 mire.tga "Fortran Moderne"
-
-tga_to_text foo.tga | ./readpicz
-
-