DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T m

⟦3bfb297e0⟧ TextFile

    Length: 783 (0x30f)
    Types: TextFile
    Names: »makeland.f«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire/makeland.f«

TextFile

	SUBROUTINE MAKELAND
	IMPLICIT INTEGER(A-Z)
	REAL DIVER,RAD,COSANG,SINANG

	include 'common.h'

	DO 100 I=1,39
	DO 100 J=1,39
	SUBMAP(I,J)=' '
100	CONTINUE

	SUBMAP(20,20)='+'
	VARY=2+irand(5)
	RADIUS=irand(5)+irand(5)
	START=90-irand(180)
	DO 400 ROT=START,START+360,3
		IF (RADIUS.LE.0) GOTO 300
		COSANG=COS(FLOAT(ROT)/3.14159)
		SINANG=SIN(FLOAT(ROT)/3.14159)
		RAD=0
		DIVER=.5/(ABS(COSANG)+ABS(SINANG))
200		IF (RAD.GT.RADIUS) GOTO 300
		RAD=RAD+DIVER
		SUBMAP(20+int(RAD*COSANG),20+int(RAD*SINANG))='+'
		GOTO 200
300		IF (MOD(ROT,10).NE.0) GOTO 400
		RADIUS=RADIUS+irand(VARY)-(VARY/2)
		IF (mod (VARY, 2).EQ.0) RADIUS=RADIUS+irand(2)
		IF (RADIUS.GE.12) RADIUS=11
400	CONTINUE
c	do 110 i =1, 39
c	print 111, (submap(i,j),j=1,39)
c110	continue
c111	format(39a1)
	RETURN
	END