koreth%panarthea.ebay@sun.com (Steven Grimm) (07/21/89)
Submitted-by: uunet!unido!sbsvax!roeder (Edgar Roeder)
Posting-number: Volume 2, Issue 60
Archive-name: gccgem/part05
#!/bin/sh
# this is part 5 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file vdi_110.c continued
#
CurArch=5
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
exit 1; fi
( read Scheck
if test "$Scheck" != $CurArch
then echo "Please unpack part $Scheck next!"
exit 1;
else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file vdi_110.c"
sed 's/^X//' << 'SHAR_EOF' >> vdi_110.c
X
XVOID vr_trnfm(WORD handle, FDB *psrcMFDB, FDB *pdesMFDB)
X{
X LONG *tmp = (LONG *) &contrl[7];
X *tmp++ = (LONG) psrcMFDB;
X *tmp = (LONG) pdesMFDB;
X contrl[0] = 110;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
echo "File vdi_110.c is complete"
chmod 0644 vdi_110.c || echo "restore of vdi_110.c fails"
echo "x - extracting vdi_111.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_111.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vsc_form(WORD handle, WORD pcur_form[])
X{
X pblock[1] = pcur_form;
X contrl[0] = 111;
X contrl[1] = 0;
X contrl[3] = 37;
X contrl[6] = handle;
X VDI_CALL();
X pblock[1] = intin;
X}
SHAR_EOF
chmod 0644 vdi_111.c || echo "restore of vdi_111.c fails"
echo "x - extracting vdi_112.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_112.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vsf_updat(WORD handle, WORD pfill_pat[], WORD planes)
X{
X pblock[1] = pfill_pat;
X contrl[0] = 112;
X contrl[1] = 0;
X contrl[3] = planes<<4; /* mal 16 */
X contrl[6] = handle;
X VDI_CALL();
X pblock[1] = intin;
X}
SHAR_EOF
chmod 0644 vdi_112.c || echo "restore of vdi_112.c fails"
echo "x - extracting vdi_113.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_113.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vsl_udsty(WORD handle, WORD pattern)
X{ vdi_macro_d(113, handle, pattern); }
SHAR_EOF
chmod 0644 vdi_113.c || echo "restore of vdi_113.c fails"
echo "x - extracting vdi_114.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_114.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vr_recfl(WORD handle, WORD pxyarray[])
X{
X pblock[2] = pxyarray;
X contrl[0] = 114;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_114.c || echo "restore of vdi_114.c fails"
echo "x - extracting vdi_115.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_115.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vqin_mode( WORD handle, WORD dev_type, WORD *input_mode)
X{
X vdi_macro_d(115, handle, dev_type);
X *input_mode = intout[0];
X}
SHAR_EOF
chmod 0644 vdi_115.c || echo "restore of vdi_115.c fails"
echo "x - extracting vdi_116.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_116.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vqt_extent(WORD handle, char *string, WORD extent[])
X{
X int i = 0;
X while (intin[i] = *string++) i++;
X pblock[4] = extent;
X contrl[0] = 116;
X contrl[1] = 0;
X contrl[3] = i;
X contrl[6] = handle;
X VDI_CALL();
X pblock[4] = ptsout;
X}
SHAR_EOF
chmod 0644 vdi_116.c || echo "restore of vdi_116.c fails"
echo "x - extracting vdi_117.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_117.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vqt_width(WORD handle, WORD character, WORD *cell_width, WORD *left_delta, WORD *right_delta)
X{
X intin[0] = character;
X contrl[0] = 117;
X contrl[0] = 0;
X contrl[0] = 1;
X contrl[0] = handle;
X VDICALL();
X *cell_width = ptsout[0];
X *left_delta = ptsout[2];
X *right_delta = ptsout[4];
X return intout[0];
X}
SHAR_EOF
chmod 0644 vdi_117.c || echo "restore of vdi_117.c fails"
echo "x - extracting vdi_118.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_118.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vex_timv(WORD handle, LONG tim_addr, LONG *otim_addr, WORD *tim_conv)
X{
X *((LONG *) &contrl[7]) = tim_addr;
X contrl[0] = 118;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *otim_addr = *((LONG *) &contrl[9]);
X *tim_conv = intout[0];
X}
SHAR_EOF
chmod 0644 vdi_118.c || echo "restore of vdi_118.c fails"
echo "x - extracting vdi_119.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_119.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vst_load_fonts(WORD handle, WORD select)
X{ return vdi_macro_b(119, handle, select); }
SHAR_EOF
chmod 0644 vdi_119.c || echo "restore of vdi_119.c fails"
echo "x - extracting vdi_11_1.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_1.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_bar(WORD handle, WORD pxyarray[])
X{
X pblock[2] = pxyarray;
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[5] = 1;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_11_1.c || echo "restore of vdi_11_1.c fails"
echo "x - extracting vdi_11_2.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_2.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_arc(WORD handle, WORD x, WORD y, WORD radius, WORD begang, WORD endang)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = 0;
X ptsin[3] = 0;
X ptsin[4] = 0;
X ptsin[5] = 0;
X ptsin[6] = radius;
X ptsin[7] = 0;
X intin[0] = begang;
X intin[1] = endang;
X contrl[0] = 11;
X contrl[1] = 4;
X contrl[3] = 2;
X contrl[5] = 2;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_11_2.c || echo "restore of vdi_11_2.c fails"
echo "x - extracting vdi_11_3.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_3.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_pie(WORD handle, WORD x, WORD y, WORD radius, WORD begang, WORD endang)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = 0;
X ptsin[3] = 0;
X ptsin[4] = 0;
X ptsin[5] = 0;
X ptsin[6] = radius;
X ptsin[7] = 0;
X intin[0] = begang;
X intin[1] = endang;
X contrl[0] = 11;
X contrl[1] = 4;
X contrl[3] = 2;
X contrl[5] = 3;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_11_3.c || echo "restore of vdi_11_3.c fails"
echo "x - extracting vdi_11_4.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_4.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_circle(WORD handle, WORD x, WORD y, WORD radius)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = 0;
X ptsin[3] = 0;
X ptsin[4] = radius;
X ptsin[5] = 0;
X contrl[0] = 11;
X contrl[1] = 3;
X contrl[3] = 0;
X contrl[5] = 4;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_11_4.c || echo "restore of vdi_11_4.c fails"
echo "x - extracting vdi_11_5.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_5.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_ellipse(WORD handle, WORD x, WORD y, WORD xradius, WORD yradius)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = xradius;
X ptsin[3] = yradius;
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[5] = 5;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_11_5.c || echo "restore of vdi_11_5.c fails"
echo "x - extracting vdi_11_6.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_6.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_ellarc(WORD handle, WORD x, WORD y, WORD xradius, WORD yradius, WORD begang, WORD endang)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = xradius;
X ptsin[3] = yradius;
X intin[0] = begang;
X intin[1] = endang;
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = 2;
X contrl[5] = 6;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_11_6.c || echo "restore of vdi_11_6.c fails"
echo "x - extracting vdi_11_7.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_7.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_ellpie(WORD handle, WORD x, WORD y, WORD xradius, WORD yradius, WORD begang, WORD endang)
X{
X ptsin[0] = x;
X ptsin[1] = y;
X ptsin[2] = xradius;
X ptsin[3] = yradius;
X intin[0] = begang;
X intin[1] = endang;
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = 2;
X contrl[5] = 7;
X contrl[6] = handle;
X VDI_CALL();
X}
SHAR_EOF
chmod 0644 vdi_11_7.c || echo "restore of vdi_11_7.c fails"
echo "x - extracting vdi_11_8.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_8.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_rbox(WORD handle, WORD xyarray[])
X{
X pblock[2] = xyarray;
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[5] = 8;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_11_8.c || echo "restore of vdi_11_8.c fails"
echo "x - extracting vdi_11_9.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_11_9.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_rfbox(WORD handle, WORD xyarray[])
X{
X pblock[2] = xyarray;
X contrl[0] = 11;
X contrl[1] = 2;
X contrl[3] = 0;
X contrl[5] = 9;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_11_9.c || echo "restore of vdi_11_9.c fails"
echo "x - extracting vdi_12.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_12.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vst_height(WORD handle, WORD height, WORD *char_width, WORD *char_height, WORD *cell_width, WORD *cell_height)
X{
X ptsin[0] = 0;
X ptsin[1] = height;
X contrl[0] = 12;
X contrl[1] = 1;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *char_width = ptsout[0];
X *char_height = ptsout[1];
X *cell_width = ptsout[2];
X *cell_height = ptsout[3];
X}
X
SHAR_EOF
chmod 0644 vdi_12.c || echo "restore of vdi_12.c fails"
echo "x - extracting vdi_120.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_120.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vst_unload_fonts(WORD handle, WORD select)
X{ vdi_macro_d(120, handle, select); }
SHAR_EOF
chmod 0644 vdi_120.c || echo "restore of vdi_120.c fails"
echo "x - extracting vdi_121.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_121.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vrt_cpyfm(WORD handle, WORD wr_mode, WORD pxyarray[], FDB *psrcMFDB, FDB *pdesMFDB, WORD color_index[])
X{
X LONG *tmp = (LONG *) &contrl[7];
X intin[0] = wr_mode;
X intin[1] = color_index[0];
X intin[2] = color_index[1];
X pblock[2] = pxyarray;
X *tmp++ = (LONG) psrcMFDB;
X *tmp = (LONG) pdesMFDB;
X contrl[0] = 121;
X contrl[1] = 4;
X contrl[3] = 3;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_121.c || echo "restore of vdi_121.c fails"
echo "x - extracting vdi_122.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_122.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_show_c(WORD handle, WORD reset)
X{
X intin[0] = reset;
X contrl[0] = 122;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X}
X
SHAR_EOF
chmod 0644 vdi_122.c || echo "restore of vdi_122.c fails"
echo "x - extracting vdi_123.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_123.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID v_hide_c(WORD handle)
X{ vdi_macro_a(123, handle); }
X
SHAR_EOF
chmod 0644 vdi_123.c || echo "restore of vdi_123.c fails"
echo "x - extracting vdi_124.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_124.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vq_mouse(WORD handle, WORD *pstatus, WORD *px, WORD *py)
X{
X contrl[0] = 124;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *pstatus = intout[0];
X *px = ptsout[0];
X *py = ptsout[1];
X}
SHAR_EOF
chmod 0644 vdi_124.c || echo "restore of vdi_124.c fails"
echo "x - extracting vdi_125.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_125.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vex_butv(WORD handle, LONG pusrcode, LONG *psavcode)
X{ vdi_macro_e(125, handle, pusrcode, psavcode); }
SHAR_EOF
chmod 0644 vdi_125.c || echo "restore of vdi_125.c fails"
echo "x - extracting vdi_126.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_126.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vex_motv(WORD handle, LONG pusrcode, LONG *psavcode)
X{ vdi_macro_e(126, handle, pusrcode, psavcode); }
X
SHAR_EOF
chmod 0644 vdi_126.c || echo "restore of vdi_126.c fails"
echo "x - extracting vdi_127.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_127.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vex_curv(WORD handle, LONG pusrcode, LONG *psavcode)
X{ vdi_macro_e(127, handle, pusrcode, psavcode); }
X
SHAR_EOF
chmod 0644 vdi_127.c || echo "restore of vdi_127.c fails"
echo "x - extracting vdi_128.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_128.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vq_key_s(WORD handle, WORD *pstatus)
X{
X contrl[0] = 128;
X contrl[1] = 0;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X *pstatus = intout[0];
X}
SHAR_EOF
chmod 0644 vdi_128.c || echo "restore of vdi_128.c fails"
echo "x - extracting vdi_129.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_129.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vs_clip(WORD handle, WORD clip_flag, WORD pxyarray[])
X{
X pblock[2] = pxyarray;
X intin[0] = clip_flag;
X contrl[0] = 129;
X contrl[1] = 2;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X pblock[2] = ptsin;
X}
SHAR_EOF
chmod 0644 vdi_129.c || echo "restore of vdi_129.c fails"
echo "x - extracting vdi_13.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_13.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vst_rotation(WORD handle, WORD angle)
X{ return vdi_macro_b(13, handle, angle); }
SHAR_EOF
chmod 0644 vdi_13.c || echo "restore of vdi_13.c fails"
echo "x - extracting vdi_130.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_130.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vqt_name( WORD handle, WORD element_num, char name[])
X{
X int tmp;
X contrl[0] = 130;
X contrl[1] = 0;
X contrl[3] = 1;
X contrl[6] = handle;
X VDI_CALL();
X for(tmp=0; tmp<32; tmp++)
X name[tmp]=intout[tmp+1];
X return intout[0];
X}
SHAR_EOF
chmod 0644 vdi_130.c || echo "restore of vdi_130.c fails"
echo "x - extracting vdi_131.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_131.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vqt_fontinfo( WORD handle, WORD *minADE, WORD *maxADE, WORD distances[],
XWORD *maxwidth, WORD effects[])
X{
X vdi_macro_a(131, handle);
X *minADE = intout[0];
X *maxADE = intout[1];
X *maxwidth = ptsout[0];
X distances[0] = ptsout[1];
X distances[1] = ptsout[3];
X distances[2] = ptsout[5];
X distances[3] = ptsout[7];
X distances[4] = ptsout[9];
X effects[0] = ptsout[2];
X effects[1] = ptsout[4];
X effects[2] = ptsout[6];
X}
SHAR_EOF
chmod 0644 vdi_131.c || echo "restore of vdi_131.c fails"
echo "x - extracting vdi_14.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_14.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XVOID vs_color(WORD handle, WORD index, WORD rgb_in[])
X{
X contrl[0] = 14;
X contrl[1] = 0;
X contrl[3] = 4;
X contrl[6] = handle;
X intin[0] = index;
X intin[1] = rgb_in[0];
X intin[2] = rgb_in[1];
X intin[3] = rgb_in[2];
X intin[4] = rgb_in[3];
X VDI_CALL();
X}
X
SHAR_EOF
chmod 0644 vdi_14.c || echo "restore of vdi_14.c fails"
echo "x - extracting vdi_15.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_15.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vsl_type(WORD handle, WORD style)
X{ return vdi_macro_b(15, handle, style); }
X
SHAR_EOF
chmod 0644 vdi_15.c || echo "restore of vdi_15.c fails"
echo "x - extracting vdi_16.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_16.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vsl_width(WORD handle, WORD width)
X{
X ptsin[0] = width;
X ptsin[1] = 0;
X contrl[0] = 16;
X contrl[1] = 1;
X contrl[3] = 0;
X contrl[6] = handle;
X VDI_CALL();
X return ptsout[0];
X}
X
SHAR_EOF
chmod 0644 vdi_16.c || echo "restore of vdi_16.c fails"
echo "x - extracting vdi_17.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_17.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD vsl_color(WORD handle, WORD color_index)
X{ return vdi_macro_b(17, handle, color_index); }
X
SHAR_EOF
chmod 0644 vdi_17.c || echo "restore of vdi_17.c fails"
echo "x - extracting vdi_18.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > vdi_18.c &&
X/*
X * GEM library for GNU CC on Atari ST
SHAR_EOF
echo "End of part 5"
echo "File vdi_18.c is continued in part 6"
echo "6" > s2_seq_.tmp
exit 0