SUBROUTINE STERN(IX,IY) C DARSTELLUNG EINES STERN (MITTELPUNKT IX,IY) C MIT ETWA 3 MM KANTENLAENGE C FORTRAN II C SR : FDIS.FT IX=IX-3 IY=IY-3 CALL FDIS(0,IX,IY) IX=IX+6 IY=IY+6 CALL FDIS(1,IX,IY) IX=IX-6 CALL FDIS(0,IX,IY) IX=IX+6 IY=IY-6 CALL FDIS(1,IX,IY) IX=IX-3 IY=IY+3 RETURN END