NB. experiment 1
NB. A point and cross point in space
NB. draw color cross point at a given position
NB. First define drawc_point_here function
NB. and use this function in drawc_point3_here function
NB. forth and back at three axial directions to draw cross point
drawc_point_here =: 4 : 0 NB. set voxel y RGB value at x turtle intpos
x paint_here_color y
)
drawc_point3_here =: 4 : 0 NB. set voxel y RGB value at x turtle intpos
NB. 7-unit cross point
a_pos =: where_are_you_roundint x
b_turtle =. home 0
b_turtle =. b_turtle setpos a_pos
b_turtle drawc_point_here y
b_turtle =. b_turtle forward 1
b_turtle drawc_point_here y
b_turtle =. b_turtle forward _2
b_turtle drawc_point_here y
b_turtle =. b_turtle forward 1
b_turtle =. b_turtle right 90
b_turtle =. b_turtle forward 1
b_turtle drawc_point_here y
b_turtle =. b_turtle forward _2
b_turtle drawc_point_here y
b_turtle =. b_turtle forward 1
b_turtle =. b_turtle up_pitch 90
b_turtle =. b_turtle forward 1
b_turtle drawc_point_here y
b_turtle =. b_turtle forward _2
b_turtle drawc_point_here y
)
drawc_point5_here =: 4 : 0 NB. set voxel y RGB value at x turtle intpos
NB. 5-unit cross point
a_pos =: where_are_you_roundint x
b_turtle =. home 0
b_turtle =. b_turtle setpos a_pos
b_turtle =. b_turtle forward 1
b_turtle drawc_point3_here y
b_turtle =. b_turtle forward _2
b_turtle drawc_point3_here y
b_turtle =. b_turtle forward 1
b_turtle =. b_turtle right 90
b_turtle =. b_turtle forward 1
b_turtle drawc_point3_here y
b_turtle =. b_turtle forward _2
b_turtle drawc_point3_here y
b_turtle =. b_turtle forward 1
b_turtle =. b_turtle up_pitch 90
b_turtle =. b_turtle forward 1
b_turtle drawc_point3_here y
b_turtle =. b_turtle forward _2
b_turtle drawc_point3_here y
)
NB.
put_points3_here_color_random =: 4 : 0
NB. x turtle y repetion number
NB. To check quality of random with position and color
rep =. 0
a_t =. x NB. get turtle status for working
while. rep < y do.
a_pos =. ? 200 200 200 NB. random coor
NB. a_pos =. a_pos + 2 NB. secure coor within 200 200 200 world
NB. a_pos =. (0 1 { a_pos),100
a_rgb =. ? 256 256 256
a_t =. a_t setpos a_pos
NB. a_t paint_here_color a_rgb
a_t drawc_point3_here a_rgb
rep =. rep + 1
end.
)
NB.
put_points5_here_color_random =: 4 : 0
NB. x turtle y repetion number
NB. To check quality of random with position and color
rep =. 0
a_t =. x NB. get turtle status for working
while. rep < y do.
a_pos =. ? 200 200 200 NB. random coor
NB. a_pos =. a_pos + 2 NB. secure coor within 200 200 200 world
NB. a_pos =. (0 1 { a_pos),100
a_rgb =. ? 256 256 256
a_t =. a_t setpos a_pos
NB. a_t paint_here_color a_rgb
a_t drawc_point5_here a_rgb
rep =. rep + 1
end.
)
NB.
put_points_here_color_random =: 4 : 0
NB. x turtle y repetion number
NB. To check quality of random with position and color
rep =. 0
a_t =. x NB. get turtle status for working
while. rep < y do.
a_pos =. ? 200 200 200 NB. random coor
a_pos =. a_pos
NB. a_pos =. (0 1 { a_pos),100
a_rgb =. ? 256 256 256
a_t =. a_t setpos a_pos
NB. a_t paint_here_color a_rgb
a_t drawc_point_here a_rgb
rep =. rep + 1
end.
)