2 added 115 characters in body
source | link
PadRight[Take[RotateRight[Reverse@list, #], #], 4] & /@ Range[Length[list]]

or

    NestList[RotateRight, Reverse@list, 
   Length@list][[-Length@list ;; -1]] // LowerTriangularize
PadRight[Take[RotateRight[Reverse@list, #], #], 4] & /@ Range[Length[list]]
PadRight[Take[RotateRight[Reverse@list, #], #], 4] & /@ Range[Length[list]]

or

    NestList[RotateRight, Reverse@list, 
   Length@list][[-Length@list ;; -1]] // LowerTriangularize
1
source | link

PadRight[Take[RotateRight[Reverse@list, #], #], 4] & /@ Range[Length[list]]