我在xna游戏的update()部分有这个:
while (TouchPanel.IsGestureAvailable)
{
GestureSample gs = TouchPanel.ReadGesture();
switch (gs.GestureType)
{
case GestureType.Flick:
_GameMap.GameCamera.Translate(new Vector2(-gs.Delta.X/2, 0));
//moves the camera by this amount
break;
}
}
Run Code Online (Sandbox Code Playgroud)
但不出所料,当我轻弹没有滚动(如谷歌地球或愤怒的小鸟),它只是一个开始和结束.如何在轻弹中实现滚动?
我的情况如下:
我有以下功能
var showHideMemberContent = function(){
if(isHidden === false){
$("#showHideMemberContent").text("Member Content");
$("#main").css("height","-=187");
$('#mainBottom').hide('slow', function() {
isHidden = true;
});
} else {
$("#showHideMemberContent").text("Verberg");
$("#main").css("height","+=187");
$('#mainBottom').show('slow', function() {
isHidden = false;
});
}
};
Run Code Online (Sandbox Code Playgroud)
因此,当函数执行时,它会隐藏"mainBottom"div."主"div应该减少/增加其高度.它是这样做的,但我需要知道是否有办法顺利完成这项工作.
谢谢你.
我正在尝试在HTML5中创建一个平滑的画笔,下面是一个例子.

这就是我尝试过的,它是一种东西.但它并不像上面的图像那么平滑.
Editor.Drawing.Context.globalAlpha = 0.3;
var amount = 3;
for(var t = -amount; t <= amount; t += 3) {
for(var n = -amount; n <= amount; n += 3) {
Editor.Drawing.Context.drawImage(Editor.Drawing.ClipCanvas, -(n-1), -(t-1));
}
}
Run Code Online (Sandbox Code Playgroud)
它看起来像这样.

我有ctlns列表,我正在尝试生成一些数据的可视化
ctlns<-list(structure(list(level = 10, x = c(0.101666666666667, 0.06,
0.0385714285714286, 0.035, 0.035, 0.035, 0.04, 0.0433333333333333,
0.05, 0.0516666666666667, 0.06, 0.0606416584402764, 0.0606416584402764,
0.0766666666666667, 0.0766666666666667, 0.0933333333333333, 0.0933333333333333,
0.0975, 0.11, 0.110956351152526, 0.110956351152526, 0.135, 0.135
), y = c(0.01, 0.04125, 0.06, 0.11, 0.16, 0.21, 0.26, 0.31, 0.36,
0.41, 0.458123195380173, 0.46, 0.51, 0.56, 0.61, 0.66, 0.71,
0.76, 0.808123195380173, 0.81, 0.86, 0.91, 0.96)), .Names = c("level",
"x", "y")))
Run Code Online (Sandbox Code Playgroud)
然后我,
plot(ctlns[[1]]$x,ctlns[[1]]$y, xlim=c(0,.21), ylim=c(0,1), lwd=2, type="l", col="darkred" )
Run Code Online (Sandbox Code Playgroud)
我得到了情节

我想平滑红色曲线的上半部分(y> 0.2),同时保持一些弯曲结构(y <0.2)
lines(lowess(ctlns[[1]]$x,ctlns[[1]]$y,f=2/3), lwd=2, col="darkblue")
Run Code Online (Sandbox Code Playgroud)
对于前一部分做得很好,但删除了曲线的下半部分.我有以下问题:
我的问题类似于在 R 中用 ggplot 1填充两条黄土平滑线之间的区域
但是我有两个组。
g1<-ggplot(NVIQ_predict,aes(cogn.age, predict, color=as.factor(NVIQ_predict$group)))+
geom_smooth(aes(x = cogn.age, y = upper,group=group),se=F)+
geom_line(aes(linetype = group), size = 0.8)+
geom_smooth(aes(x = cogn.age, y = lower,group=group),se=F)
Run Code Online (Sandbox Code Playgroud)
我想为每个组填充红色和蓝色。
我试过:
gg1 <- ggplot_build(g1)
df2 <- data.frame(x = gg1$data[[1]]$x,
ymin = gg1$data[[1]]$y,
ymax = gg1$data[[3]]$y)
g1 + geom_ribbon(data = df2, aes(x = x, ymin = ymin, ymax = ymax),fill = "grey", alpha = 0.4)
Run Code Online (Sandbox Code Playgroud)
但它给了我错误:Aesthetics 必须是长度为 1 或与 dataProblems 相同的长度
每次我的 geom_ribbon() 数据和 ggplot() 数据不同时,我都会收到相同的错误。
有人可以帮我吗?非常感谢!
我的数据看起来像:
> NVIQ_predict
cogn.age …Run Code Online (Sandbox Code Playgroud)