十進BASIC 第2掲示板 過去ログ

!(x-a)^2+(y-b)^2<r^2の領域を描く
INPUT  PROMPT "a=":a
INPUT  PROMPT "b=":b
INPUT  PROMPT "r=":r
INPUT  PROMPT "xの値をm刻みで⇒m=":m
INPUT  PROMPT "yの値をn刻みで⇒n=":n
DEF d=SQR((x-a)^2+(y-b)^2)
SET WINDOW -8,8,-8,8
DRAW GRID2(1,1) ! 座標　←←←←←
CALL circle(a,b,r)
SET POINT STYLE 1
FOR x=-8 TO 8 STEP m
   FOR y=-8 TO 8 STEP n
      IF d<r THEN
         PLOT POINTS: x,y
      end if
   NEXT y
NEXT x
END

EXTERNAL SUB circle(a,b,r)
OPTION ANGLE DEGREES
SET LINE width 2 ! 線幅　←←←←←
FOR t=0 TO 360
   PLOT LINES: a+r*COS(t),b+r*SIN(t);
NEXT t
END SUB


!Libraryフォルダ内 GRID2.LIBより

! 1998.7.22 修正
EXTERNAL PICTURE GRID2(sx,sy)
SET LINE width 2 ! 線幅　←←←←←
ASK WINDOW L,R,B,T
ASK LINE STYLE S
ASK LINE COLOR C
SET LINE COLOR 8   ! 線色　←←←←←
ASK TEXT COLOR TC
SET TEXT COLOR 1   ! 文字　←←←←←
ASK TEXT JUSTIFY ts1$,ts2$
SET TEXT JUSTIFY "RIGHT","TOP"
SET LINE STYLE 1
PLOT LINES:L,0;R,0
PLOT LINES:0,B;0,T
SET LINE STYLE 3
FOR X=CEIL(L/sx)*sx TO INT(R/sx)*sx STEP sx
   PLOT LINES:X,B;X,T
   PLOT TEXT,AT X,0:STR$(X)
NEXT X
FOR Y=CEIL(B/sy)*sy TO INT(T/sy)*sy STEP sy
   PLOT LINES:L,Y;R,Y
   PLOT TEXT,AT 0,Y:STR$(Y)
NEXT Y
SET LINE COLOR C
SET LINE STYLE S
SET TEXT COLOR TC
SET TEXT JUSTIFY ts1$,ts2$
END PICTURE