:. === BEGIN Groepsfoto _FUNCBEGI(LeesGroepsfotoData) _SETDEF(groepsfoto_gelezen) [?_SETAMOU(groepsfoto_gelezen)==?]? _BEGI _SETDEF(fotonamen) _SETADD(fotonamen,"20_vader___moeder___kinderen___aangetrouwd.jpg") _SETADD(groepsfoto_gelezen,"x") SchrijfGf3 _END _FUNCEND _FUNCBEGI(SchrijfGf3) _FUNCEND _FUNCBEGI( FOTOHUIDIGPERSOON ) _PREFPHOT?_BEGI LeesGroepsfotoData _PHOTBEGI [?PHOT_NOG_NIET_GEDAAN?]?_BEGI [?_SETAMOU( CURRENT_TABLE, "0" ) < FOTOS_PER_RIJ?]?_BEGI [?_SETEXP(CURRENT_TABLE,1,_SETSTRI)==?]?_BEGI
_SETCLR(CURRENT_TABLE) _END _SETADD( FOTOSET, [:_PHOT:] ) _SETADD( CURRENT_TABLE, [:_SETORDE(FOTOSET, [:_PHOT:]) _PHOTTITL:] ) [&[?_SETAMOU( CURRENT_TABLE, "0" )==1?]&] _ELSE _SETADD( PHOT_READY, "NOG NIET KLAAR" ) _BRK _END _ELSE _SETCLR( PHOT_READY ) _END _PREFPHOT(";1;")?_BEGI _BRK _END _PHOTEND _END _FUNCEND _FUNCBEGI(SchrijfVulDivGroepsfoto) _SETDEF(div_20_vader___moeder___kinderen___aangetrouwd_jpg) [&[?_PHOT == 20_vader___moeder___kinderen___aangetrouwd.jpg?][?_SETAMOU(div_20_vader___moeder___kinderen___aangetrouwd_jpg)==?]&]? _BEGI _SETADD(div_20_vader___moeder___kinderen___aangetrouwd_jpg,"x") _END _FUNCEND _FUNCBEGI(ReplaceDot) _SETDEF(set_tmp, _SETDUPL) _SETCLR(set_tmp) _SETFILL(set_tmp, [:_PHOT:], 1) _SETBEGI(set_tmp) [?_SETSTRI == .?]? _BEGI _:. _ELSE _SETSTRI:. _END _SETEND _FUNCEND :. === EINDE Groepsfoto
_VAROUT(FOTOH)?_BEGI _VARMUL(_VARWIDTH, FOTOB, [:_PHOTWIDT("0"):]) _PHOTHEIG?_BEGI _VARDIV(_VARWIDTH, [:_PHOTHEIG:]) _END _VARIN(_VARHEIGHT, FOTOH) _ELSE[?_VAROUT(_PREFPHOTOHEIGHT)==_PREFPHOTHEIG?]?_BEGI _VARMUL(_VARHEIGHT, _PREFPHOTOHEIGHT, 100) _VARMUL(_VARWIDTH,_VARHEIGHT,[:_PHOTWIDT("0"):]) _PHOTHEIG?_BEGI _VARDIV(_VARWIDTH, [:_PHOTHEIG:]) _END _ELSE _VARMUL(_VARWIDTH, _PREFPHOTOWIDTH, 100) _VARMUL(_VARHEIGHT,_VARWIDTH, [:_PHOTHEIG("0"):]) _PHOTWIDT?_BEGI _VARDIV(_VARHEIGHT, [:_PHOTWIDT:]) _END _END _END SchrijfVulDivGroepsfoto [?_PREFWORDFORMAT?]?_BEGI _END _SETORDE(fotonamen, [:_PHOT:])? _BEGI _PHOT _ELSE _PHOT _END [&[?_PREFWORDFORMAT?]&] _SETCLR( PHOT_READY )