|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T m ┃
Length: 633 (0x279)
Types: TextFile
Names: »martini.bw2dd«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/gprolog/demo/martini.bw2dd«
init :- #def(basic,BASIC), #def(noinput,NOINPUT), #def(twod,TWOD), #initialize_core(BASIC,NOINPUT,TWOD). demo :- #def(false,FALSE), #initialize_view_surface(bw2dd,FALSE), #select_view_surface(bw2dd), #set_viewport_2(0.125,0.875,0.125,0.75), #set_window(-50.0,50.0,-10.0,80.0), #create_temporary_segment, #move_abs_2(0.0,0.0), glassdx(X), glassdy(Y), #polyline_rel_2(X,Y,9), #move_rel_2(-12.0,33.0), #line_rel_2(24.0,0.0), #close_temporary_segment. done :- #deselect_view_surface(bw2dd), #terminate_core. glassdx([-10.0,9.0,0.0,-14.0,30.0,-14.0,0.0,9.0,-10.0]). glassdy([0.0,1.0,19.0,15.0,0.0,-15.0,-19.0,-1.0,0.0]).