How to draw a constellation diagram?

This program is to draw a star map: press the left mouse button to start drawing a constellation map, and right click to end the current constellation.

Function constellation

Graph ('WindowButtonDownFcn', @wbdcb)

ah = axes('DrawMode '，' fast ')；

Axis ([110110])

Title ("Draw a constellation")

color 1 = ' brcmkgy '；

num = 1；

Function wbdcb(src, evnt)

if strcmp(get(src，' SelectionType ')，' normal ')

Set (src,' pointer',' circle')

Cp = get (ah,' current point');

xinit = cp( 1， 1)； yinit = cp( 1，2)；

hl = line('XData '，xinit，' YData '，yinit， ...

Mark',' p',' color', color1(num));

set(src，' WindowButtonMotionFcn '，@wbmcb)

set(src，' WindowButtonUpFcn '，@wbucb)

end

Function wbmcb(src, evnt)

Cp = get (ah,' current point');

xdat = [xinit，cp( 1， 1)]；

ydat = [yinit，cp( 1，2)]；

set(hl，' XData '，xdat，' YData '，ydat)； drawnow

end

Function wbucb(src, evnt)

if strcmp(get(src，' SelectionType ')，' alt ')

num = num+ 1；

If num> seven

num = 1；

end

Set (src,' pointer',' arrow')

set(src，' WindowButtonMotionFcn '，'')

set(src，' WindowButtonUpFcn '，'')

other

return

end

end

end

end