'===========================================================================
' Subject: ROUTINE TO DRAW PENTAGONS         Date: 08-27-97 (14:34)       
' Author:  Moritz Muehlenhoff                Code: QB, QBasic, PDS        
' Origin:  UMuehlenhoff@t-online.de        Packet: GRAPHICS.ABC
'===========================================================================
DECLARE SUB Pent (x%, y%, size, farbe%)

' Pent by Moritz Muehlenhoff
' Can be used in any graphic mode

SCREEN 13
CLS

Pent 60, 80, 3, 4
Pent 240, 80, 3, 4
Pent 150, 90, 2, 12
                 

SUB Pent (x%, y%, size, farbe%)
 LINE (CINT(x% - (size * 19)), CINT(y% - (size * 4)))-(CINT(x% + (size * 19)), CINT(y% - (size * 4))), farbe%
 LINE (CINT(x% + (size * 19)), CINT(y% - (size * 4)))-(CINT(x% - (size * 13)), CINT(y% + (size * 17))), farbe%
 LINE (CINT(x% - (size * 13)), CINT(y% + (size * 17)))-(CINT(x%), CINT(y% - (size * 15))), farbe%
 LINE (CINT(x%), CINT(y% - (size * 15)))-(CINT(x%) + (size * 15), CINT(y% + (size * 17))), farbe%
 LINE (CINT(x%) + (size * 15), CINT(y% + (size * 17)))-(CINT(x%) - (size * 19), CINT(y% - (size * 4))), farbe%
END SUB