REFSKRIPT ;***************************************************/ ;* Aufruf: kreis */ GET_N_PARAMS GET_RESULT res IF_EQUAL_GOTO res 3 w1 RETURN 0 >w1: GET_PARAM_NR 1 GET_RESULT rad GET_PARAM_NR 2 GET_RESULT np GET_PARAM_NR 3 GET_RESULT name1 IF_LESS_GOTO rad 0.00001 error IF_LESS_GOTO np 3 error GOTO w2 >error: RETURN 0 >w2: PRINT neu_polygon( name1 ) NEU_POLYGON name1 GET_RESULT name DIV 360 np GET_RESULT delta_winkel SET_VAR winkel 0 SET_VAR i 1 >doloop: COS winkel GET_RESULT res MUL res rad GET_RESULT x SIN winkel GET_RESULT res MUL res rad GET_RESULT y SUB i 1 GET_RESULT i1 POL_PKT name i1 x y ADD winkel delta_winkel GET_RESULT winkel ADD i 1 GET_RESULT i IF_GREATER_GOTO i np fert GOTO doloop >fert: POL_SCHLIESSEN name RETURN name