SUBROUTINE LD(IX0,IY0,IH,IB)
C ZEICHNET LIEGENDES (GLEICHSCHENKLIGES) DREIECK - SPITZE RECHTS
C IH = HOEHE (BASIS) , IB = BREITE
C FORTRAN II
C SR : FDIS.FT
	IX=IX0
	IY=IY0
	CALL FDIS(0,IX,IY)
	IY=IY+IH
	CALL FDIS(1,IX,IY)
	IX=IX+IB
	IY=IY-IH/2
	CALL FDIS(1,IX,IY)
	IX=IX-IB
	IY=IY-IH/2
	CALL FDIS(1,IX,IY)
	RETURN
	END