PROGRAM fuzzylogField_3A   ! © W.van Duyn 22nd May 2004
!adaptation from program by R.L.Bagula
!2 point minimum field fuzzy logic
SET MODE "color"
SET WINDOW 0,1199,0,903
PRINT "Input unit size(try 5), scale(try 32) (maximum size x scale = 450)"
INPUT h,f
CLEAR
SET COLOR "black"
BOX AREA 0,1199,0,903
LET q=1/2
LET dx=0   ! dx,dy center diagram in screen
LET dy=-0.5
FOR i = -h*f TO h*f
FOR j = -h*f TO h*f
LET xx = dx+i/(2*f)
LET yy = dy+j/(2*f)
LET r=1
LET mm=0
DO WHILE mm=<40
LET r1=r
LET x=xx
LET y=yy

LET xx1=1-abs((x+y)*q)
LET yy1=1-abs((-x+y)*q-1/2)
LET xx2=1-abs((-x-y)*q-1/2)
LET yy2=1-abs((x-y)*q-1)

LET xx=min(xx1,xx2)
LET yy=min(yy1,yy2)
LET r = xx + yy
LET mm = mm+1
IF r>1 OR ABS(r-r1)<10^(-3) THEN EXIT DO
LOOP

LET xi=i+600
LET yj=j+451
CALL colpatA(mm)
PLOT xi,yj
NEXT j
NEXT i
END

SUB colpatA(mm)
LET mc=MOD(mm,16)
IF mc=0 THEN SET COLOR "15"
IF mc=1 THEN SET COLOR "14"
IF mc=2 THEN SET COLOR "12"
IF mc=3 THEN SET COLOR "11"
IF mc=4 THEN SET COLOR "13"
IF mc=5 THEN SET COLOR "10"
IF mc=6 THEN SET COLOR "15"
IF mc=7 THEN SET COLOR "9"
IF mc=8 THEN SET COLOR "8"
IF mc=9 THEN SET COLOR "6"
IF mc=10 THEN SET COLOR "5"
IF mc=11 THEN SET COLOR "2"
IF mc=12 THEN SET COLOR "4"
IF mc=13 THEN SET COLOR "3"
IF mc=14 THEN SET COLOR "7"
IF mc=15 THEN SET COLOR "1"
IF mm=41 THEN SET COLOR "16"
END SUB