tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

obscure bug fixed

Browse Source
This commit is contained in:
tTh 2022-12-24 22:11:31 +01:00
parent a1c0bf6e34
commit ab601629e5
3 changed files with 268 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Fraktalism/mods/fractcolmap.f90
View File

@ -58,17 +58,20 @@ subroutine fcolm_plot_mapfile(fname)
write(0, *) ' -> fractcolmap plot map to [', fname, ']' write(0, *) ' -> fractcolmap plot map to [', fname, ']'
allocate(prgb(512, 128), stat=errcode) allocate(prgb(512, 128), stat=errcode)
! Please, add a molly-guard
if (0 .NE. errcode) then if (0 .NE. errcode) then
write(0, *) "errcode allocate in plot_map: ", errcode write(0, *) "errcode allocate in plot_map: ", errcode
STOP 'ABEND' STOP 'ABEND'
endif endif
print *, ' FILE ', fname call rgbpix_set_to_zero(prgb)
! print *, ' FILE ', fname
do ix = 1, 255 do ix = 1, 255
call fcolm_get_rgb(ix-1, rgb) call fcolm_get_rgb(ix, rgb)
xx = ix * 2 xx = ix * 2
! print *, ix, xx, " => ", rgb ! print *, ix, xx, " => ", rgb
do iy=1, 128 do iy=1, 128
prgb( xx, iy)%r = rgb(1) prgb( xx, iy)%r = rgb(1)
prgb(1+xx, iy)%r = rgb(1) prgb(1+xx, iy)%r = rgb(1)
@ -79,7 +82,9 @@ subroutine fcolm_plot_mapfile(fname)
enddo enddo
enddo enddo
! push all the colred dats to disk ! write(0, *) 'first pixel', prgb(1, 1)
!- push all the colred dats to disk
call rgbpix_spit_as_pnm_8(prgb, fname) call rgbpix_spit_as_pnm_8(prgb, fname)
deallocate(prgb) deallocate(prgb)

256
Fraktalism/mods/headache.map Normal file
View File

@ -0,0 +1,256 @@
0 0 0 headache.map contributed by Daniel Egnor
240 0 0
0 252 0
240 0 0
0 252 0
240 0 0
0 248 4
240 4 0
0 248 4
240 4 0
0 244 8
240 8 0
0 244 8
240 8 0
0 240 12
240 12 0
0 240 12
240 12 0
0 236 16
240 16 0
0 236 16
240 16 0
0 232 20
240 20 0
0 232 20
240 20 0
0 228 24
240 24 0
0 228 24
240 24 0
0 224 28
240 28 0
0 224 28
240 28 0
0 220 32
240 32 0
0 220 32
240 32 0
0 216 36
240 36 0
0 216 36
240 36 0
0 212 40
240 40 0
0 212 40
240 40 0
0 208 44
240 44 0
0 208 44
240 44 0
0 204 48
240 48 0
0 204 48
240 48 0
0 200 52
240 52 0
0 200 52
240 52 0
0 196 56
240 56 0
0 196 56
240 56 0
0 192 60
240 60 0
0 192 60
240 60 0
0 188 64
240 64 0
0 188 64
240 64 0
0 184 68
240 68 0
0 184 68
240 68 0
0 180 72
240 72 0
0 180 72
240 72 0
0 176 76
240 76 0
0 176 76
240 76 0
0 172 80
240 80 0
0 172 80
240 80 0
0 168 84
244 84 0
0 168 84
244 84 0
0 164 88
244 88 0
0 164 88
244 88 0
0 160 92
244 92 0
0 160 92
244 92 0
0 156 96
244 96 0
0 156 96
244 96 0
0 152 100
244 100 0
0 152 100
244 100 0
0 148 104
244 104 0
0 148 104
244 104 0
0 144 108
244 108 0
0 144 108
244 108 0
0 140 112
244 112 0
0 140 112
244 112 0
0 136 116
244 116 0
0 136 116
244 116 0
0 132 120
244 120 0
0 132 120
244 120 0
0 128 124
244 124 0
0 128 124
244 124 0
0 124 128
244 128 0
0 124 128
244 128 0
0 120 132
244 132 0
0 120 132
244 132 0
0 116 136
244 136 0
0 116 136
244 136 0
0 112 140
244 140 0
0 112 140
244 140 0
0 108 144
244 144 0
0 108 144
244 144 0
0 104 148
244 148 0
0 104 148
244 148 0
0 100 152
244 152 0
0 100 152
244 152 0
0 96 156
244 156 0
0 96 156
244 156 0
0 92 160
244 160 0
0 92 160
244 160 0
0 88 164
244 164 0
0 88 164
244 164 0
0 84 168
248 168 0
0 84 168
248 168 0
0 80 172
248 172 0
0 80 172
248 172 0
0 76 176
248 176 0
0 76 176
248 176 0
0 72 180
248 180 0
0 72 180
248 180 0
0 68 184
248 184 0
0 68 184
248 184 0
0 64 188
248 188 0
0 64 188
248 188 0
0 60 192
248 192 0
0 60 192
248 192 0
0 56 196
248 196 0
0 56 196
248 196 0
0 52 200
248 200 0
0 52 200
248 200 0
0 48 204
248 204 0
0 48 204
248 204 0
0 44 208
248 208 0
0 44 208
248 208 0
0 40 212
248 212 0
0 40 212
248 212 0
0 36 216
248 216 0
0 36 216
248 216 0
0 32 220
248 220 0
0 32 220
248 220 0
0 28 224
248 224 0
0 28 224
248 224 0
0 24 228
248 228 0
0 24 228
248 228 0
0 20 232
248 232 0
0 20 232
248 232 0
0 16 236
248 236 0
0 16 236
248 236 0
0 12 240
248 240 0
0 12 240
248 240 0
0 8 244
248 244 0
0 8 244
248 244 0
0 4 248
248 248 0
0 4 248
252 252 0
252 128 0
0 128 128

3
Fraktalism/mods/t.f90
View File

@ -14,6 +14,9 @@ program t
call fcolm_load_mapfile('chroma.map') call fcolm_load_mapfile('chroma.map')
call fcolm_plot_mapfile('chroma.pnm') call fcolm_plot_mapfile('chroma.pnm')
call fcolm_load_mapfile('headache.map')
call fcolm_plot_mapfile('headache.pnm')
STOP 'BECAUSE YOU WAS OUMPFED.' STOP 'BECAUSE YOU WAS OUMPFED.'
contains contains